Rechercher dans deux colonnes deux valeurs différentes sur une même ligne

[zephir94]

Bonsoir à tous,

Je voudrais rechercher dans une colonne une valeur qui peut être présente plusieurs fois et comparer si sur la même ligne il y a une valeur pour déterminer le numéro de la ligne ou il y a cette condition.

J'ai donc écris

With Feuil5.Range("P:P")

    Set c = .Find(nu, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ii = c.Row
If Feuil5.Range("A & ii").Value = Val(numé) Then
 ds = c.Row
        Else
        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    
    End If
End If
  End With

j'ai une erreur sur Loop While
Merci pour vos aides

 

[thebenoit59]

Re : Rechercher dans deux colonnes deux valeurs différentes sur une même ligne

Bonsoir zephir94,

Tu souhaites savoir pourquoi ton code plante ?
Peux-tu joindre ton fichier ?

 

[zephir94]

Re : Rechercher dans deux colonnes deux valeurs différentes sur une même ligne

Bonsoir thebenoit59,

Hélas non je ne peux pas t'envoyer mon fichier.
C'est la première fois que j'utilise les Loop While et j'ai un soucis de méthode !
Merci pour ta réponse

 

[zephir94]

Re : Rechercher dans deux colonnes deux valeurs différentes sur une même ligne

c'est bon j'ai trouvé !
J'avais mal placé mon end if !

With Feuil5.Range("P:P")
 Set c = .Find(nu, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ii = c.Row
If Feuil5.Range("A" & ii).Value = Val(numé) Then
  ds = c.Row
        Else
        Set c = .FindNext(c)
        End If
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Merci à vous tous

 

[zephir94]

Re : Rechercher dans deux colonnes deux valeurs différentes sur une même ligne

Par contre comme sortir de la boucle si la condition est vrai sans continuer à boucler ?

 

[zephir94]

Re : Rechercher dans deux colonnes deux valeurs différentes sur une même ligne

C'est bon j'ai trouvé

With Feuil5.Range("P:P")
 Set c = .Find(nu, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ii = c.Row
If Feuil5.Range("A" & ii).Value = Val(numé) Then
  ds = c.Row
       
        Else
        Set c = .FindNext(c)
        End If
        Loop While Not c Is Nothing And Feuil5.Range("A" & ii).Value = Val(numé)
    End If
End With

Il suffisait de mettre comme condition de sortie

 Loop While Not c Is Nothing And Feuil5.Range("A" & ii).Value = Val(numé)

Merci à vous tous