Code Visual Basic [Résolu]

258 messages
Processeur

Le 31 Mai 2010 à 18h07

Bonjour,

Avant d'entrer dans le détail, je vous félicite pour ce changement. J'ai connu l'ancien AidoForum Sourire
De plus, ça fait super longtemps que je ne suis pas venu. Alors, me revoilà.

Quel est mon soucis? Je suis en plein stage et je dois créer une base de donnée. J'utilise Excel (2003) qui est un bon élément.

J'ai crée 4 boutons à l'aide de boîte à outil de Contrôle: INSERER, SUPPRIMER la ligne, RECHERCHER, et ENREGISTRER le classeur.

De plus, ils sont cliquable. Jusqu'à là, tout va bien. Maintenant, il faut créer un script sur Visual Basic pour chaque fonctions. Et je ne suis pas un spécialiste.

Est ce possible que l'un de vous peut me faire les codes/scripts pour INSERER, SUPPRIMER la ligne, RECHERCHER, et ENREGISTRER le classeur?

Merci beaucoup. Je vous revaudrai ça Clin d'oeil

sundering

1471 messages
PC de Compèt'

AidoWindows

Le 31 Mai 2010 à 18h16

Bonjour.

Dans tous les cas, il faut plus d'informations pour pouvoir coder quelque chose Sourire

Exemple : le contenu de la ligne principale (intitulé des colonnes) + contenu seconde ligne (contenu du tableau par cellule).
(ou le fichier excel pour aller encore plus vite ^^)

Il faut également savoir le comportement qu'ont tes boutons : "ils ouvrent chacun une fenêtre contenant une textbox dans lequel tu rentres une valeur et un bouton de validation/annulation" ?

Pour résumer : il manque beaucoup trop d'informations pour faire quoi que ce soit Clin d'oeil

kéké

258 messages
Processeur

Le 31 Mai 2010 à 18h30

Ah oui, excusez moi.

Il y'a donc 5 feuilles: Notes Techniques, Plans et Dessins, Revues, Photos et Architectures et Comptes-rendu.

Voici un petit aperçu:

Concernant, le bouton INSERER, ce serait bien qu'il y'a une petite fenêtre où nous pouvons mettre des renseignements: Nom/Descriptions/Date, etc... (voir l'image).

Cas particulier pour la feuille Note Technologique: il y'a la colonne NUMERO, OBJET et MOT-CLE.

Le bouton RECHERCHER est équivalent à CTRL + F, donc je ne sais pas s'il existe un code pour ça.

Merci beaucoup.

sundering

1471 messages
PC de Compèt'

AidoWindows

Le 31 Mai 2010 à 18h44

Pour ce qui est du bouton "supprimer", tu veux qu'il se passe quoi exactement ?

kéké

258 messages
Processeur

Le 31 Mai 2010 à 18h48

Une suppression de ligne. Au lieu de faire clic droit;

sundering

1471 messages
PC de Compèt'

AidoWindows

Le 31 Mai 2010 à 18h56

Donc il faudra quand même sélectionner la ligne ^^

Pour ce qui est de la sauvegarde, c'est le plus rapide...

Code

ActiveWorkbook.Save

Pour la fonction de recherche, nous lui mettrons quelques limites, je regarderai demain, là, je vais pas tarder à finir le boulot ^^

kéké

258 messages
Processeur

Le 31 Mai 2010 à 19h06

Oui bien sur. On sélectionne la ligne puis hop, SUPPRIMER. Content

Merci alors pour la sauvegarde. Je la place entre

Code

Private Sub CommandButton1_Click()

End Sub

Merci encore à toi. C'est très aimable. Tu me sauves la vie Content

Pouzy

14155 messages
No-Life
No-Life

Administrateur

Le 31 Mai 2010 à 19h12

Sujet résolu ? Clin d'oeil
Si oui, cliques sur

Joli sundering, j'avoue qu'en VB je coule complètement... Content

kéké

258 messages
Processeur

Le 31 Mai 2010 à 19h13

Pas encore. Il manque quelque autres boutons. Rassurez-vous, je mettrai RESOLU!

Merci.

sundering

1471 messages
PC de Compèt'

AidoWindows

Le 31 Mai 2010 à 19h21

Je finis demain la fonction recherche... en attendant, voici déjà de quoi mettre en place l'invite de recherche.

Pour ce qui est du bouton rechercher, tu lui créés une nouvelle macro "Rechercher". Tu te rends dans l'éditeur VBA et tu fais insertion "UserForm".

A partir de celui ci, tu places un label, une textbox et deux boutons.

Comme ceci Clin d'oeil

Pense à renommer tes boutons, textbox, label.
Exemple , moi j'ai mis : lblRechercher / txtRecherche / btnOk / btnAnnuler

Depuis l'userform toujours, fais un double clique sur "btnAnnuler" et rentre "End".

Pour btnOk, on verra ça demain.

Ça fait bien longtemps que j'ai pas fait de VBA :-P (au moins 6 mois lol)

PS : il ne faut pas non plus oublier de retourner sur le module de ta macro et d'y insérer

Code

BtRechercher.Show

BtRechercher étant le nom que tu as donné à ton userform (par défaut, userform1 je crois)

kéké

258 messages
Processeur

Le 31 Mai 2010 à 19h37

Eh ben, merci beaucoup. Ca commence bien. Tu m'épates.

P.S: Si vous voyez le "Résolu", c'est encore pas le cas, j'ai confondu avec "Répondre" Content
Sinon, j'ai rien dit! Sourire

sundering

1471 messages
PC de Compèt'

AidoWindows

Le 01 Juin 2010 à 11h10

Tu dois faire ça pour quand environ ? (aujourd'hui je ne serai pas dispo avant la fin de soirée pour travailler dessus)

PS : on va définir un champs de recherche pour le document afin de ne faire que le nécessaire et on mettra en couleur toutes les cases qui contiendront la recherche (un peu comme lorsque tu fais des recherches sur le net où ça surligne). A chaque nouvelle recherche, on réinitialisera toutes les cases qui ont été colorées.

kéké

258 messages
Processeur

Le 01 Juin 2010 à 17h37

Le chef de service a organisé une réunion pour discuter sur la structure de l'outil le vendredi 11.

A propos de recherche, c'est très bien. Merci encore.

sundering

1471 messages
PC de Compèt'

AidoWindows

Le 01 Juin 2010 à 18h58

La fonction recherche sera terminée demain je pense...

Voilà ce que ça donne pour le moment au niveau du code si tu veux essayer de comprendre un peu ce que je fais Clin d'oeil .

Code

Option Explicit
'Déclaration des variables
Private rc As Boolean
Private strMotCle As String
Private strPlage As String
Private res As Range

Private Sub btnAnnuler_Click()
End
End Sub

Private Sub btnOk_Click()
'Si le champ de recherche a été changé alors l'appuie sur le bouton OK met à jour les cellules contenant les valeurs à parcourir
If rc = True Then
Sheets("Compte-Rendu").Range("A1").Value = txtDebut.Value
Sheets("Compte-Rendu").Range("B1").Value = txtFin.Value
End If
'Appel de la méthode de recherche
Recherche
End
End Sub

Private Sub txtRecherche_Change()
rc = True
End Sub

Private Sub UserForm_Initialize()
'Si la cellule A1 ou B1 n'est pas vide alors on affecte la valeur de la cellule dans la textbox
If Not Worksheets("Compte-Rendu").Range("A1").Value = "" Or Worksheets("Compte-Rendu").Range("B1").Value = "" Then
'Affectation de la valeur contenant dans la cellule A1/B1
txtDebut.Value = Sheets("Compte-Rendu").Range("A1").Value
txtFin.Value = Sheets("Compte-Rendu").Range("B1").Value
Else
'Affectation de valeur par défaut pour la plage
txtDebut.Value = "A3"
txtFin.Value = "E3"
End If
txtRecherche.Value = "Que voulez-vous rechercher ?"
rc = False
End Sub

Private Sub Recherche()
'Initialisation de la variable contenant le champ à rechercher
strMotCle = txtRecherche.Value
strPlage = Sheets("Compte-Rendu").Range("A1").Value & ":" & Sheets("Compte-Rendu").Range("B1").Value

Set res = Sheets("Compte-Rendu").Range(strPlage).Find(what = strMotCle)
'en cours de codage
End Sub

Voilà la tête de l'userform du mode recherche :

PS : je pense que je mettrai sous forme de fichier maintenant vu que ça commence à prendre pas mal de place Sourire

sundering

1471 messages
PC de Compèt'

AidoWindows

Le 02 Juin 2010 à 15h23

J'ai encore besoin d'une information...

Quel doit être le comportement lorsque tu cliques sur le bouton "Insérer" ?

On insère à l'endroit où se trouve le curseur où en fin de document ? (Aucune colonne ne contiendra un champ non rempli ? Tous les champs sont obligatoires ? (ça a de l'importance par rapport à la gestion de l'insertion)

Pour la suppression, c'est juste pour supprimer ligne par ligne ? (là j'ai fait un truc, tu cliques dans une cellule de la ligne que tu veux supprimer et en cliquant sur supprimer ça la supprime (ça marche aussi si tu sélectionnes toi-même la ligne))

PS : méthode recherche terminée avec gestion des couleurs (chaque cellule contenant le champ de recherche est colorié et à chaque recherche, les couleurs sont réinitialisées à xlNone) Après, on peut aussi faire un bouton "Réinitialiser" pour retirer les couleurs des cellules (vaut mieux car sinon, les couleurs restent après la recherche sauf si tu sauvegardes pas).

	Informations	Messages
kéké 258 messages Processeur		Le 31 Mai 2010 à 18h07 Bonjour, Avant d'entrer dans le détail, je vous félicite pour ce changement. J'ai connu l'ancien AidoForum De plus, ça fait super longtemps que je ne suis pas venu. Alors, me revoilà. Quel est mon soucis? Je suis en plein stage et je dois créer une base de donnée. J'utilise Excel (2003) qui est un bon élément. J'ai crée 4 boutons à l'aide de boîte à outil de Contrôle: INSERER, SUPPRIMER la ligne, RECHERCHER, et ENREGISTRER le classeur. De plus, ils sont cliquable. Jusqu'à là, tout va bien. Maintenant, il faut créer un script sur Visual Basic pour chaque fonctions. Et je ne suis pas un spécialiste. Est ce possible que l'un de vous peut me faire les codes/scripts pour INSERER, SUPPRIMER la ligne, RECHERCHER, et ENREGISTRER le classeur? Merci beaucoup. Je vous revaudrai ça


sundering 1471 messages PC de Compèt' AidoWindows		Le 31 Mai 2010 à 18h16 Bonjour. Dans tous les cas, il faut plus d'informations pour pouvoir coder quelque chose Exemple : le contenu de la ligne principale (intitulé des colonnes) + contenu seconde ligne (contenu du tableau par cellule). (ou le fichier excel pour aller encore plus vite ^^) Il faut également savoir le comportement qu'ont tes boutons : "ils ouvrent chacun une fenêtre contenant une textbox dans lequel tu rentres une valeur et un bouton de validation/annulation" ? Pour résumer : il manque beaucoup trop d'informations pour faire quoi que ce soit


kéké 258 messages Processeur		Le 31 Mai 2010 à 18h30 Ah oui, excusez moi. Il y'a donc 5 feuilles: Notes Techniques, Plans et Dessins, Revues, Photos et Architectures et Comptes-rendu. Voici un petit aperçu: Concernant, le bouton INSERER, ce serait bien qu'il y'a une petite fenêtre où nous pouvons mettre des renseignements: Nom/Descriptions/Date, etc... (voir l'image). Cas particulier pour la feuille Note Technologique: il y'a la colonne NUMERO, OBJET et MOT-CLE. Le bouton RECHERCHER est équivalent à CTRL + F, donc je ne sais pas s'il existe un code pour ça. Merci beaucoup.


sundering 1471 messages PC de Compèt' AidoWindows		Le 31 Mai 2010 à 18h44 Pour ce qui est du bouton "supprimer", tu veux qu'il se passe quoi exactement ?


kéké 258 messages Processeur		Le 31 Mai 2010 à 18h48 Une suppression de ligne. Au lieu de faire clic droit;


sundering 1471 messages PC de Compèt' AidoWindows		Le 31 Mai 2010 à 18h56 Donc il faudra quand même sélectionner la ligne ^^ Pour ce qui est de la sauvegarde, c'est le plus rapide... Code ActiveWorkbook.Save Pour la fonction de recherche, nous lui mettrons quelques limites, je regarderai demain, là, je vais pas tarder à finir le boulot ^^


kéké 258 messages Processeur		Le 31 Mai 2010 à 19h06 Oui bien sur. On sélectionne la ligne puis hop, SUPPRIMER. Merci alors pour la sauvegarde. Je la place entre Code Private Sub CommandButton1_Click() End Sub Merci encore à toi. C'est très aimable. Tu me sauves la vie


Pouzy 14155 messages No-Life Administrateur		Le 31 Mai 2010 à 19h12 Sujet résolu ? Si oui, cliques sur Joli sundering, j'avoue qu'en VB je coule complètement...
		Devenez fan d'Aidoweb sur Facebook \o/ - N'oubliez pas de cliquer sur [Résolu] une fois votre problème réglé

kéké 258 messages Processeur		Le 31 Mai 2010 à 19h13 Pas encore. Il manque quelque autres boutons. Rassurez-vous, je mettrai RESOLU! Merci.


sundering 1471 messages PC de Compèt' AidoWindows		Le 31 Mai 2010 à 19h21 Je finis demain la fonction recherche... en attendant, voici déjà de quoi mettre en place l'invite de recherche. Pour ce qui est du bouton rechercher, tu lui créés une nouvelle macro "Rechercher". Tu te rends dans l'éditeur VBA et tu fais insertion "UserForm". A partir de celui ci, tu places un label, une textbox et deux boutons. Comme ceci Pense à renommer tes boutons, textbox, label. Exemple , moi j'ai mis : lblRechercher / txtRecherche / btnOk / btnAnnuler Depuis l'userform toujours, fais un double clique sur "btnAnnuler" et rentre "End". Pour btnOk, on verra ça demain. Ça fait bien longtemps que j'ai pas fait de VBA (au moins 6 mois lol) PS : il ne faut pas non plus oublier de retourner sur le module de ta macro et d'y insérer Code BtRechercher.Show BtRechercher étant le nom que tu as donné à ton userform (par défaut, userform1 je crois)


kéké 258 messages Processeur		Le 31 Mai 2010 à 19h37 Eh ben, merci beaucoup. Ca commence bien. Tu m'épates. P.S: Si vous voyez le "Résolu", c'est encore pas le cas, j'ai confondu avec "Répondre" Sinon, j'ai rien dit!


sundering 1471 messages PC de Compèt' AidoWindows		Le 01 Juin 2010 à 11h10 Tu dois faire ça pour quand environ ? (aujourd'hui je ne serai pas dispo avant la fin de soirée pour travailler dessus) PS : on va définir un champs de recherche pour le document afin de ne faire que le nécessaire et on mettra en couleur toutes les cases qui contiendront la recherche (un peu comme lorsque tu fais des recherches sur le net où ça surligne). A chaque nouvelle recherche, on réinitialisera toutes les cases qui ont été colorées.


kéké 258 messages Processeur		Le 01 Juin 2010 à 17h37 Le chef de service a organisé une réunion pour discuter sur la structure de l'outil le vendredi 11. A propos de recherche, c'est très bien. Merci encore.


sundering 1471 messages PC de Compèt' AidoWindows		Le 01 Juin 2010 à 18h58 La fonction recherche sera terminée demain je pense... Voilà ce que ça donne pour le moment au niveau du code si tu veux essayer de comprendre un peu ce que je fais. Code Option Explicit 'Déclaration des variables Private rc As Boolean Private strMotCle As String Private strPlage As String Private res As Range Private Sub btnAnnuler_Click() End End Sub Private Sub btnOk_Click() 'Si le champ de recherche a été changé alors l'appuie sur le bouton OK met à jour les cellules contenant les valeurs à parcourir If rc = True Then Sheets("Compte-Rendu").Range("A1").Value = txtDebut.Value Sheets("Compte-Rendu").Range("B1").Value = txtFin.Value End If 'Appel de la méthode de recherche Recherche End End Sub Private Sub txtRecherche_Change() rc = True End Sub Private Sub UserForm_Initialize() 'Si la cellule A1 ou B1 n'est pas vide alors on affecte la valeur de la cellule dans la textbox If Not Worksheets("Compte-Rendu").Range("A1").Value = "" Or Worksheets("Compte-Rendu").Range("B1").Value = "" Then 'Affectation de la valeur contenant dans la cellule A1/B1 txtDebut.Value = Sheets("Compte-Rendu").Range("A1").Value txtFin.Value = Sheets("Compte-Rendu").Range("B1").Value Else 'Affectation de valeur par défaut pour la plage txtDebut.Value = "A3" txtFin.Value = "E3" End If txtRecherche.Value = "Que voulez-vous rechercher ?" rc = False End Sub Private Sub Recherche() 'Initialisation de la variable contenant le champ à rechercher strMotCle = txtRecherche.Value strPlage = Sheets("Compte-Rendu").Range("A1").Value & ":" & Sheets("Compte-Rendu").Range("B1").Value Set res = Sheets("Compte-Rendu").Range(strPlage).Find(what = strMotCle) 'en cours de codage End Sub Voilà la tête de l'userform du mode recherche : PS : je pense que je mettrai sous forme de fichier maintenant vu que ça commence à prendre pas mal de place


sundering 1471 messages PC de Compèt' AidoWindows		Le 02 Juin 2010 à 15h23 J'ai encore besoin d'une information... Quel doit être le comportement lorsque tu cliques sur le bouton "Insérer" ? On insère à l'endroit où se trouve le curseur où en fin de document ? (Aucune colonne ne contiendra un champ non rempli ? Tous les champs sont obligatoires ? (ça a de l'importance par rapport à la gestion de l'insertion) Pour la suppression, c'est juste pour supprimer ligne par ligne ? (là j'ai fait un truc, tu cliques dans une cellule de la ligne que tu veux supprimer et en cliquant sur supprimer ça la supprime (ça marche aussi si tu sélectionnes toi-même la ligne)) PS : méthode recherche terminée avec gestion des couleurs (chaque cellule contenant le champ de recherche est colorié et à chaque recherche, les couleurs sont réinitialisées à xlNone) Après, on peut aussi faire un bouton "Réinitialiser" pour retirer les couleurs des cellules (vaut mieux car sinon, les couleurs restent après la recherche sauf si tu sauvegardes pas).