XL 2010 j ai besoin de une formule de recherchev en vba excel avec le nom et Prénom

kahlouch

XLDnaute Occasionnel
Bonjour
s'il vous plait
j ai besoin de une formule de recherchev en vba excel avec le nom et Prénom
 

Pièces jointes

  • Classeur2017.xlsm
    25.7 KB · Affichages: 56

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Kahlouch, bonjour le forum,

En pièce jointe ton fichier modifié avec le code ci-dessous :
VB:
Private Sub TextBox5_Change() 'au changement dans la Textbox
 
Dim O As Worksheet 'déclare la variable O (Onglet)
 
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
 
Dim I As Integer 'déclare la variable I (Incrément)
 
Dim J As Byte 'déclare la variable J (incrément)
 
Dim NC As Byte 'déclare la variable NC (Nombre de caractères)
 [/COLOR]

[COLOR=#000000] 
Call effac 'lance la procédure [effac]
 
If Me.TextBox5.Value = "" Then Exit Sub 'si la Textbox5 est effacée, sort de la procédure
 
Set O = Worksheets("Feuil1") 'définit l'onglet O
 
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
 
NC = Len(TextBox5.Value) 'définit le nombre de caracteres NC
 
For I = 2 To UBound(TV, 1) 'boucle 1 : sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
 
    'condition : si le texte édié correspond aux premiers caractères du nom ou du prénom (convertis en majuscule)
 
    If UCase(Me.TextBox5.Value) = UCase(Left(TV(I, 1), NC)) Or UCase(Me.TextBox5.Value) = UCase(Left(TV(I, 2), NC)) Then
 
        For J = 1 To 4 'boucle 2 sur les 4 colonnes du tableau des valeurs TV
 
            Me.Controls("TextBox" & J).Value = TV(I, J) 'alimente la TextBox avec la valeur correspondante
 
        Next J 'prochaine colonne de la boucle 2
 
    End If 'fin de la condition
 
Next I 'prochane ligne de la boucle 1
 
End Sub
 [/COLOR]

[COLOR=#000000] 
Public Sub effac() 'procédure d'effacement
 
Dim I As Byte 'déclare la variable I (Incrément)
 
For I = 1 To 4 'boucle sur les 4 textboxes
 
    UserForm1.Controls("Textbox" & I).Value = "" 'efface la textbox de la boucle
 
Next I 'prochaine textbox de la boucle
 
End Sub

le fichier :
 

Pièces jointes

  • Kahlouch_v01.xlsm
    24.1 KB · Affichages: 41

Discussions similaires

  • Question
Microsoft 365 Nom et prénom
Réponses
3
Affichages
250
Réponses
7
Affichages
371

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof