Discussion :

[rodrigue62]

Bonjour,
j'ai un probleme bien compliqué sur lequel je me casse les dents depuis plusieurs jours te c'ets pour un projet que je dois bientot presenter. Si quelqu'un pouvait m'aider ca me retirerai une sacré epine du pied.
En fait j'ai un rpogramme VBA qui se lance a partir d'un bouton dans un classeur Excel. Ce programme m'affiche tout d'abord une premiere boite de dialogue dans laquelle on entre une valeur A, apres validation appariat une seconde boite de dialogue dans laquelle on entre une valeur B. Ce que j'aimerai faire c'ets dans la feuille excel trouver la premiere ligne pour laquelle dans la colonne C j'ai la valeur A et dans la colonne D la valeur B. Recuperer les valeurs des boites de dialogue c'est pas un probleme, ce qui me pose un probleme c'ets d'executer une recherche sur deux colonnes en meme temps et trouver deux valeurs pour une meme ligne.
J'espere avoir ete assez clair et que quelqu'un pourra m'aider. Merci d'avance.

[SfJ5Rpw8]

avez vous commencez .. un début de code ...? vous pouvez par exemple parcourir les lignes de votre tableau et comparer pour chacune des lignes les valeurs contenues dans colonnes concernées...

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
 
 
Sub ChercheCD()
 Dim stC As String 'Valeur cherchée colonne C
 Dim stD As String 'Valeur cherchée colonne D
 Dim r As Range 'Ligne..du tableau
 stC = "A"
 stD = "B"
 For Each r In ThisWorkbook.Sheets("Feuil1").Range("A1").CurrentRegion.Rows
   If r.Cells(3) = stC And r.Cells(4) = stD Then
     MsgBox "ligne trouvée " & r.Row
     Exit For 'fin recherche
   End If
 Next
End Sub

[alsimbad]

salut. pas besoin de faire une recherche sur 2 colonne, un simple boucle suffit

Code :

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

1
2
3
4
5
6
7
8
sub cherche
for each c in range("C:C")
if not C = "" then
if c = valeurA and c.offset(0,1) = valeurB then msgbox "j'ai trouvé"
end
end if
next C
end sub

le code est approximatif, mais il est tard et l'essentiel y est
ciao

[rodrigue62]

Merci pour les reponses que j'ia pas vu plus tot car j'avais oublié de mettre la notification par mail.
Et lorsque l'on fait comme ca, si il n'existe aucune ligne pour laquelle la colonne c est a valeur A et l'offset(0,1) et a valeur B, il y a moyen de le detecter sans qu'il fasse une boucle infinie et de lancer une autre action?
Merci.

[ouskel'n'or]

Le code de bbil examine la plage de lignes renseignées, pas une de plus, et sort une fois l'examen terminé.
Pour le code d'alsimbad, il parcourt les 65536 lignes de la colonne C s'il ne touve pas les bonnes données.

[rodrigue62]

Donc une fois qu'il a examiné toute la colonne c il sort si il n'a rien trouvé, il ne repart pas a la premiere ligne et ainsi de suite?

[ouskel'n'or]

Tu veux qu'on teste pour toi ?