Faire une recherche dans deux colonnes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zephir94

XLDnaute Impliqué
Bonjour à tous,

Continuant à chercher une solution de vérification dans deux colonnes j'ai un peu progressé mais il me reste un point à corriger, j'arrive à trouver deux valeurs et la ligne ou elles sont écrites.
Mon soucis est que si j'ai deux Lambert l'un Didier et l'autre Antoine ma recherche va s'arrêter sur le premier Lambert voici mon code :

Code:
Sub CommandButton1_Click()
Dim Nom As String, Cell As Range, DC&
Dim x As Range, a As String, i As Integer
Dim L As Integer
Dim V As Integer
Dim prenon As String
Application.ScreenUpdating = False

Nom = InputBox("Veuillez Saisir le Nom")
prenom = InputBox("Veuillez Saisir le prénom ")
If Nom = "" Then
    MsgBox "Vous n'avez pas saisi de Nom !!!", _
    "test", vbExclamation
    Exit Sub
End If
If prenom = "" Then
Exit Sub
End If



L = Columns("B").Find(Nom, lookat:=xlWhole).Row
V = Columns("c").Find(prenom, lookat:=xlWhole).Row
MsgBox L ' test de la valeur de la ligne
MsgBox V ' teste de la valeur de la ligne

If L = V Then Exit Sub ' si les deux valeurs sont sur la même ligne
MsgBox " trouvé"

End Sub

Si il n'y a qu'un seul Lambert ou un seul Antoine ça marche, si non très logiquement il s'arrête à la première valeur trouvée ! je pense sans le maitriser que je dois faire une boucle peut-être en comparant ligne par ligne ?
Merci pour vos aides
 
Dernière édition:
Re : Faire une recherche dans deux colonnes

Bonjour Zephir,

voir fichier joint

à+
Philippe

Edit: fais un test avec le prénom Michel, il s'y trouve plusieurs fois
tu peux compléter les colonnes B & C avec d'autres noms

Edit 2: nouveau fichier ( réparation d'une faute d'orthographe)
 

Pièces jointes

Dernière édition:
Re : Faire une recherche dans deux colonnes

Bonjour zephir94,

Si vous avez un peu de mémoire ceci devrait vous rappeler quelque chose :

Code:
Option Compare Text 'la casse est ignorée

Private Sub CommandButton1_Click()
Dim nom$, prenom$, t, x$, i&
nom = InputBox("Veuillez saisir le nom")
If nom = "" Then Exit Sub
prenom = InputBox("Veuillez saisir le prénom")
If prenom = "" Then Exit Sub
With Sheets("base2") 'nom de la feuille à adapter
  t = Intersect(.[B:C], .Range("A1", .UsedRange).EntireRow)
End With
x = nom & Chr(1) & prenom
For i = 1 To UBound(t)
  If t(i, 1) & Chr(1) & t(i, 2) = x Then
    MsgBox "Trouvés en ligne n° " & i
    Exit Sub
  End If
Next
MsgBox "Pas trouvés..."
End Sub
Edit : hello Philippe, pas rafraîchi...

A+
 
Dernière édition:
Re : Faire une recherche dans deux colonnes

Bonjour le fil, bonjour le forum,

Bien en retard, j'envoie malgré tout ma proposition qui utilise une UserForm. Un double-clic dans un élément de la ListBox1 permet de sélectionner la ligne dans le tableau.

Le fichier :
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
154
Réponses
4
Affichages
225
Réponses
5
Affichages
241
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
163
Retour