Bonsoir à tous,
je me permet de vous solliciter afin d'avoir un petit coup de main.
Je souhaite afficher dans une msgbox toutes les LIGNES ou se trouve une valeur que je recherche (il existe plusieurs valeurs que j'ai noté en I2 séparé par un / ).
J'ai réussi à le faire sauf que cela ne me sort que simplement les coordonnées de l’occurrence.
Est il possible par cette méthode de faire ressortir la ligne complète de l’occurrence?
Si non, comment dois je procéder pour faire ressortir la ligne complète ?
Est il également possible d'éviter les doublons ?
Exemple en colonne H il est notifié "CLOTURE" et en colonnne I "CLOTURE" à l'heure actuelle, cela me l'affiche 2 fois
Voici le code que j'ai confectionné de bric et de broc
Preneur de tout conseil pour améliorer mon code, je vous remercie par avance!
Bonne journée
je me permet de vous solliciter afin d'avoir un petit coup de main.
Je souhaite afficher dans une msgbox toutes les LIGNES ou se trouve une valeur que je recherche (il existe plusieurs valeurs que j'ai noté en I2 séparé par un / ).
J'ai réussi à le faire sauf que cela ne me sort que simplement les coordonnées de l’occurrence.
Est il possible par cette méthode de faire ressortir la ligne complète de l’occurrence?
Si non, comment dois je procéder pour faire ressortir la ligne complète ?
Est il également possible d'éviter les doublons ?
Exemple en colonne H il est notifié "CLOTURE" et en colonnne I "CLOTURE" à l'heure actuelle, cela me l'affiche 2 fois
Voici le code que j'ai confectionné de bric et de broc
Sub ARCHIVAGE()
Dim Cel As Range, Adres1 As String, Result As String
Dim G As Worksheet
Dim MC As String 'déclare la variable MC'
Dim mots As Variant
Set G = Sheets("Feuil1")
MC = G.Cells.Range("I2")
mots = Split(MC, " / ")
Set Cel = Range("H:I").Find(What:=mots, LookIn:=xlValues, LookAt:=xlWhole)
If Not Cel Is Nothing Then '<-- si "NOM" est trouvé
Adres1 = Cel.Address
Do
Result = Result & Chr(10) & Cel.Address(0, 0) '<-- on mémorise l'adresse de la ligne
Set Cel = Range("H:I").FindNext(Cel) '<-- on continue la recherche
Loop While Not Cel Is Nothing And Cel.Address <> Adres1
End If
'affichage du résultat
MsgBox "Voulez vous effacer ces données?:" & Chr(10) & Result
End Sub
Preneur de tout conseil pour améliorer mon code, je vous remercie par avance!
Bonne journée