Discussion :

[famola]

J'ai une base de donnée avec 3 colonnes (identifiant, nom et prénoms). J'ai représenté les 3 champs sur un userform (mais le champ Identifiant est un combobox). Je voudrais qu'en cliquant sur un identifiant dans la liste déroulante, le nom et le prénom s'incrémente automatiquement.
Je ne trouve pas le code vba Excel pour le faire. Votre aide me sera d'une grande utilité.
Merci d'avance !

[Didier Gonard]

Bonjour,

ton problème se résume à avoir le N° de ligne et de colonnes, en regardant du côté de la propriété Offset, tu peux situer un élément par rapport à un autre si ta base est figée.

vois sinon cette discussion :

http://www.developpez.net/forums/d13...eur-cellule/#3 et le lien fourni

et les copies écran :
http://www.developpez.net/forums/d13...eur-cellule/#8

cordialement,

Didier

[NEC14]

Bonjour,

Voici un exemple, à toi de t'en inspirer

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
16
17
18
19
20
 
Private Sub CmbNum1_Change() 'Nom de la Combo
Dim Cell As Range
Dim A1(0 To 500, 0 To 1)
Dim I As Byte
Dim L As Byte
 
    If UFvir.CmbNum1.Value <> "" Then
        L = Len(CmbNum1)
            For Each Cell In Sheets("Recap").Range("NCred") 'zone nommée où il y a les données
                If UCase(Left(Cell.Text, L)) = UCase(CmbNum1.Text) Then
                A1(I, 0) = Cell.Offset(0, 1).Text
            I = I + 1
    End If
 
    Next
 
        UFvir.LstLib1.List = A1()
    End If
End Sub

J'espère que cela t'éclairera
René