[XL-2000] Aide pour mon UserForm svp.

1 pièce(s) jointe(s)

Aide pour mon UserForm svp.

Bonsoir amis(es) du Forum,

j'ai besoin de votre aide pour mon UseForm je voudrais qu'apparaisse dans un textbox qui se trouverai à côté du champ date l'âge automatique des personnes, l'âge est en C, dans ma base de données, je joins une miniature

merci si vous pouviez m'aider. Dan

Bonjour Danaxia, le forum,

Ce que tu souhaites corresponds à la procédure ComboBox1_Change ci-dessous
Voici une copie du code utilisé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'Cette procédure se déclenche à chaque changement de la liste déroulante "combobox1"
Private Sub ComboBox1_Change()
'Si la combobox ne comprends pas de valeur alors on sort de la procédure
If ComboBox1.Value = "" Then Exit Sub
'Les données étant situées dans la feuille "Base de données", on va y chercher
'en colonne A la valeur de notre combobox1 et retourner, dans le textbox1
'la valeur, même ligne, mais colonne C
With Sheets("Base de données")
    '.Columns(1).Cells.Find(ComboBox1) --> cherche le contenu de la combobox dans le contenu des cellules de la colonne 1 (A)
    'Offset(0, 2) --> décale de deux colonnes vers la droite et 0 ligne en dessous...
    TextBox1.Value = .Columns(1).Cells.Find(ComboBox1).Offset(0, 2).Value
End With
End Sub
'remplissage de la liste déroulante ComboBox1 à partir des valeurs contenues col A
'Se déclenche lors de l'initialisation de l'userform
Private Sub UserForm_Initialize()
'Déclaration des variables, Lign pour effectuer une boucle
'DernLig pour terminer la boucle
Dim Lign As Integer, DernLig As Integer
 
'Les données étant situées dans la feuille "Base de données", on va y chercher
'les valeurs pour remplir la liste (combobox) des noms situés en Colonne A
With Sheets("Base de données")
    'on détermine ici la dernière ligne non vide de la colonne A
    DernLig = .Cells(65536, 1).End(xlUp).Row
    'On va boucler de la ligne N°2 à la dernière Ligne Col A
    For Lign = 2 To DernLig
        'On ajoute le contenu de chaque cellule colonne A à la combobox1
        ComboBox1.AddItem .Cells(Lign, 1).Value
    'Ligne suivante
    Next Lign
'fermeture du with
End With
'fin de la procédure
End Sub

Et le fichier exemple ci-joint

Merci Franck c'est ce que je cherchais vainement sympa d'avoir pris de ton temps pour me répondre:ccool: