A
Attila
Guest
Bonjour tout le monde
je n'ai pas trop d'experience avec VBA donc j'ai quelques petits problemes ^^
J'ai créé un Userform, une sorte de rechercher remplacer comme celui d'excel auquel je veux rajouter des options comme par example mettre en gras la cellule qui contient la chaine de caracteres recherchés...
Je c pas si je m'y suis bien pris a la base et j'ai pas tout compris, le "probleme" quand on debute c qu'on fouine un peu partout et qu'on test alors le resultat est peut etre pas tres conventionel je vous colles le code en esperant ercevoir vos conseils critiques ect... le probleme etant que si je ne remplace pas le contenu de la cellule je n'arrive pas a passer a la suivante, j'ai l'impression qu'il tournes en boucle sur la cellule contenant la chaine rechercher tant que je ne remplace pas...
Private Sub bt_rechercher_Click()
With Worksheets(1).Range("a1:z6000") ' ici deja je n'arrives pas a mettre simplement toutes les cellules de la feuille active de a à z je trouves pas ca terrible lol si j'ai des infos en AA1 c mort non ?
Set c = .Find(zs_saisie)
If Not c Is Nothing Then
firstAddress = c.Address ' j'ai aps trop bien compris comment ca marche ici le firstaddress c un peu le prob des autodidacte debutant lol un peu trop de copi colle bhou... need help
Range(c.Address).Activate
If Gras = True Then
Dim activcell As Range
Set activcell = ActiveCell
Selection.Font.Bold = True
activcell.Select
Else
Selection.Font.Bold = False
End If
If zs_saisie2 = "" Then ' ca je l'ai mis au cas ou justement l'utilisateur ne renseigne pas la zone de saisie2 "remplacer" puisqu'il veut juste par ex mettre en bold
zs_saisie2 = zs_saisie
zs_saisie2.Visible = False ' et je la fais disparaitre lol ca c du luxe ^^
End If
c.Value = zs_saisie2
End If
End With
End Sub
Private Sub bt_test_Click()
End Sub
Private Sub fin_Click()
Unload Me
End Sub
Private Sub Gras_Click()
End Sub
Private Sub UserForm_Activate()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub zs_saisie2_Change()
End Sub
Voila voila... donc je c pas trop comment faire un findnext quand on click une deuxzieme fois sur le bouton il tourne en boucle sur la meme cellule ce qui est logique vu qu'il y trouves la bonne chaine de caractere
je n'ai pas trop d'experience avec VBA donc j'ai quelques petits problemes ^^
J'ai créé un Userform, une sorte de rechercher remplacer comme celui d'excel auquel je veux rajouter des options comme par example mettre en gras la cellule qui contient la chaine de caracteres recherchés...
Je c pas si je m'y suis bien pris a la base et j'ai pas tout compris, le "probleme" quand on debute c qu'on fouine un peu partout et qu'on test alors le resultat est peut etre pas tres conventionel je vous colles le code en esperant ercevoir vos conseils critiques ect... le probleme etant que si je ne remplace pas le contenu de la cellule je n'arrive pas a passer a la suivante, j'ai l'impression qu'il tournes en boucle sur la cellule contenant la chaine rechercher tant que je ne remplace pas...
Private Sub bt_rechercher_Click()
With Worksheets(1).Range("a1:z6000") ' ici deja je n'arrives pas a mettre simplement toutes les cellules de la feuille active de a à z je trouves pas ca terrible lol si j'ai des infos en AA1 c mort non ?
Set c = .Find(zs_saisie)
If Not c Is Nothing Then
firstAddress = c.Address ' j'ai aps trop bien compris comment ca marche ici le firstaddress c un peu le prob des autodidacte debutant lol un peu trop de copi colle bhou... need help
Range(c.Address).Activate
If Gras = True Then
Dim activcell As Range
Set activcell = ActiveCell
Selection.Font.Bold = True
activcell.Select
Else
Selection.Font.Bold = False
End If
If zs_saisie2 = "" Then ' ca je l'ai mis au cas ou justement l'utilisateur ne renseigne pas la zone de saisie2 "remplacer" puisqu'il veut juste par ex mettre en bold
zs_saisie2 = zs_saisie
zs_saisie2.Visible = False ' et je la fais disparaitre lol ca c du luxe ^^
End If
c.Value = zs_saisie2
End If
End With
End Sub
Private Sub bt_test_Click()
End Sub
Private Sub fin_Click()
Unload Me
End Sub
Private Sub Gras_Click()
End Sub
Private Sub UserForm_Activate()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub zs_saisie2_Change()
End Sub
Voila voila... donc je c pas trop comment faire un findnext quand on click une deuxzieme fois sur le bouton il tourne en boucle sur la meme cellule ce qui est logique vu qu'il y trouves la bonne chaine de caractere