Microsoft 365 Remonter datas dans texbox sous condition

[gilles37]

Bonjour le forum

Je souhaite renseigner texbox en fonction d une condition qui est la valeur qui se trouve dans label.( nom de la personne)
Les datas sont dans un tableau (feuil1)
Colonne A nom des Personnes
Colonne B et C les donnees a remonter dans textbox de l userform2.

Avez vous un exemple? J aimerai comprendre le processus

Merci a vous

 

[sylvanu]

Bonjour Gilles,
Plutôt que de travailler dans le vide, et finalement faire un exemple que vous devrez entièrement reprendre, fournissez un petit fichier test avec au moins l'organisation des données en colonnes A et B.
"A" contient les noms, ça semble simple, mais comment alimenter la textbox ? avec quelles données de la colonne "B" ? sur quel filtre du nom choisi on lit les données de "B" ?

 

[gilles37]

Bonjour Sylvanu, le forum

ci-joint le fichier

Merci a vous

 

[sylvanu]

Re,
Un essai en PJ avec :

Private Sub CommandButton1_Click()
    Dim NomEntré$, Chaine$, Ligne%
    NomEntré = UserForm2.TextBoxNom
    With Sheets("BDD")
        For Ligne = 1 To .Range("A65500").End(xlUp).Row
            If LCase(.Cells(Ligne, "A")) = LCase(NomEntré) Then
                Chaine = Chaine & "Du  " & .Cells(Ligne, "B") & "  au   " & .Cells(Ligne, "C") & Chr(13)
            End If
        Next Ligne
    End With
    UserForm2.Astreintes = Chaine
End Sub

et le lancement userform avec :

Sub bouton2()
    With UserForm2
        .TextBoxNom = ""
        .Astreintes = ""
        .Show
    End With
End Sub

 

[sylvanu]

Re,
Une PJ plus abouti, la liste des noms est automatique, sans doublons, et dans l'ordre alphabétique. Avec :

Sub bouton2()
    Dim i%, DL%, tablo
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("A:A").Select
    DL = Sheets("BDD").Range("A65500").End(xlUp).Row
    Range("A1:A" & DL - 3) = Sheets("BDD").Range("A3:A" & DL).Value
    DL = Range("A65500").End(xlUp).Row
    ActiveSheet.Range("$A$1:$A$" & DL).RemoveDuplicates Columns:=1, Header:=xlNo
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("A1:A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A1:A" & DL)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    DL = Range("A65500").End(xlUp).Row
    tablo = Range("$A$1:$A$" & DL)
    Selection.Copy
    Columns("A:A").Delete Shift:=xlToLeft
    With UserForm2
        .ComboBoxNoms.List = tablo
        .Astreintes = ""
        .Show
    End With
    [A1].Select
    Application.EnableEvents = True
End Sub

Attention, certaines macro d'initialisation, qui devenaient redondantes, ont été inhibées.

 

[gilles37]

Bonjour Sylvanu, le forum

Je te remercie . C'est nickel.👍
Je vais essayer de comprendre certaines lignes de code.
Merci

 

[sylvanu]

C'est vrai, Ya pas trop de commentaires. Désolé.
Posez vos questions. 🙂