Discussion :

[adriennoob]

Bonjour,

Voila j'aimerais créer un code qui me cherche une valeur redondante dans une colonne et que à chaque valeur trouvé il me souligne la ligne.
Mais voilà je bloc un peu là.

Je suis sur un code mais je n'arrive plus à avancer...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_click()
 
With Worksheets("Base").Range("a1:a500")
    '2190 c'est la valeur que je recherche dans la colonne allant de la plage A1:A500
    Set c = .Find(2190, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
 
           c.Select
           'J'aimerais qu'il garde en mémoire cette sélection
           'puis qu'il sélectionne la suivante, ainsi de suite....
           'tant que il n'a pas terminé de trouver des valeur = 2190
           Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

[Minick]

Salut,

Tu peux comme ceci par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_click()
    Dim c As Range
    Dim firstAddress As String, Cellules As String
 
    With Worksheets("Base").Range("a1:a500")
        '2190 c'est la valeur que je recherche dans la colonne allant de la plage A1:A500
        Set c = .Find(2190, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
               Cellules = Cellules & "," & c.Address
               Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
 
            If Cellules <> "" Then
                .Range(Mid(Cellules, 2)).Select
            End If
        End If
    End With
End Sub

[babaothe]

salut

je préfèrerais personnellement, dans un tel cas, travailler avec un tableau dynamique, plutôt qu'ace Find
inspire-toi de ceci ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_click()
 tabl = Worksheets("Base").Range("a1:a500").Value
  Dim masel As Range
  For i = 1 To UBound(tabl)
    If tabl(i, 1) = 2190 Then
      If masel Is Nothing Then Set masel = Worksheets("Feuil1").Range("a" & i) Else Set masel = Application.Union(masel, Worksheets("Feuil1").Range("a" & i))
    End If
  Next
  If Not masel Is Nothing Then masel.Select
  set masel = nothing
End Sub

[adriennoob]

Bon je suis super content d'avoir vos réponse sauf que j'ai dans vos deux codes un soucis. lorsque j'essaye de l'appliquer j'ai une erreur sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            If Cellules <> "" Then
                .Range(Mid(Cellules, 2)).Select
            End If

La méthode select de la classe Range a échoué ????

D'où ça vient.

Ce problème est récurant et je sais jamais la vrai cause.

[adriennoob]

Ne vous cassé plus la tête je viens de trouver ma base de donnée commençait à A2 et pas à A1.

Merci les deux marche bien et je les garde sous le coude.
Je sais pas la meilleur solution mais en tout cas ça me permet de lire du code et d'apprendre. Merci