Re : help..recherche code vba..
re-pierrot93,
le problème c'est que j'ai presque tt retirer du fichier et qu'il pèse encore 59 ko...et que la limite est de 48....
sais tu faire qq chose avec les codes ?
Private Sub CommandButton1_Click()
Unload UserForm1 'Fermer le userform1
End Sub
Private Sub CommandButton2_Click()
Dim Ligne As String ' On définie "Ligne" comme une variable
Ligne = UserForm1.TextBox8.Value 'Ligne, c'est la valeur contenue dans le TextBox8 (la ref)
' Comprenez : La valeur de la case A8 de la Feuil1 est égale à la valeur contenue dans le TextBox1 du Userform1
' Même processus pour les autres cases...
' Ainsi, à la place du numéro de ligne d'avant, on va mettre la variable ligne.
' Comme cela, si ligne=1, on ajoute sur la premiere ligne, si ligne=2 etc...
Sheets("Feuil1").Cells(Ligne, "A").Value = UserForm1.TextBox1.Value
Sheets("Feuil1").Cells(Ligne, "B").Value = UserForm1.TextBox2.Value
Sheets("Feuil1").Cells(Ligne, "C").Value = UserForm1.TextBox3.Value
Sheets("Feuil1").Cells(Ligne, "D").Value = UserForm1.TextBox4.Value
Sheets("Feuil1").Cells(Ligne, "E").Value = UserForm1.TextBox5.Value
Sheets("Feuil1").Cells(Ligne, "F").Value = UserForm1.TextBox6.Value
Sheets("Feuil1").Cells(Ligne, "G").Value = UserForm1.TextBox7.Value
Unload UserForm1
' Ca c'est une petite fenêtre gadget pour vous féliciter
MsgBox ("Votre nouveau contact est bien ajouté ! Bravo !")
End Sub
Private Sub CommandButton3_Click()
' Si rien dans le champ de saisie, alors message d'erreur
If UserForm1.TextBox9.Text = "" Then
GoTo Erreur
End If
' Recherche de la donnée puis selection de la ligne si donnée trouvée
Dim x As Long
Sheets("Feuil1").Activate
' On recherche dans la Ligne 1 colonne , si la case contient la même valeur que notre champ de recherche
For x = 1 To Range("B65535").End(xlUp).Row
If UCase(Range("B" & x)) Like "*" & UCase(UserForm1.TextBox9.Value) & "*" Then
' Si on a trouvé on va à "Trouve"
GoTo Trouve
Exit For
End If
' Sinon on passe à la ligne suivante
Next x
' Si on ne trouve rien, on va à "Erreur"
GoTo Erreur
Exit Sub
' Recherche trouvée, on retrouve notre programme pour charger le formulaire
Trouve: LigneActive = x
UserForm1.TextBox1.Value = Sheets("Feuil1").Cells(LigneActive, "A").Value
UserForm1.TextBox2.Value = Sheets("Feuil1").Cells(LigneActive, "B").Value
UserForm1.TextBox3.Value = Sheets("Feuil1").Cells(LigneActive, "C").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Cells(LigneActive, "D").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Cells(LigneActive, "E").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Cells(LigneActive, "F").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Cells(LigneActive, "G").Value
UserForm1.TextBox10.Value = Sheets("Feuil1").Cells(LigneActive, "h").Value
UserForm1.TextBox11.Value = Sheets("Feuil1").Cells(LigneActive, "i").Value
UserForm1.TextBox12.Value = Sheets("Feuil1").Cells(LigneActive, "j").Value
UserForm1.TextBox13.Value = Sheets("Feuil1").Cells(LigneActive, "k").Value
UserForm1.TextBox14.Value = Sheets("Feuil1").Cells(LigneActive, "l").Value
UserForm1.TextBox8.Value = LigneActive
Exit Sub
' Message d'erreur
Erreur: MsgBox ("Requête non trouvée et/ou Accents non acceptés !")
Sheets("Feuil1").Activate
Exit Sub
End Sub
Private Sub UserForm_Click()
End Sub[/COLOR]
à ces codes, je dois ajouter un bouton qui pourra enregsitrer les modifications apporter sur l'interface (userform) à partir du moment ou j'aurais sélectionné un fiche.
par la suite, je devrais créer un autre bouton (indépendant de celui de rechercher) qui s'appelera nouvelle inscription et qui doit consister à venir àjouter au fichier excel un nouveau bénéficiaire sans devoir aller au bout de ma liste et surtout sans devoir aller jusqu'a la colonne af puisque mes dernieres infos iront en Af.
voila..je sais pas si cela va te permettre d'y voir plius clair mais j'essai juste d'avancer..
merci à toi.
