Discussion :

[steph033]

bonjour,

je galère un toujours un peu pour renvoyer mes données textes de mes combobox sur ma feuil de calcul. Dans mon useform J'ai 3 combobox et un bouton command pour valider . J'ai alimenter mes combobox en faisant un click droit propriétés , rowsource.

Si quelq'un peux m'aiguiller.

Cordialement.

[JackOuYA]

bonjour,

et tu veux envoyer quoi et ou ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
[G1] = ComboBox1
End Sub

[steph033]

je veux envoyer mes données de mon combobox 1 dans la cellule a1 combobox dans la celule b1 combobox 3 cellule c3 de ma feuil1 et à chaque fois que je click sur mon bouton valider mes donnée descende d'une ligne.

[JackOuYA]

et tu repart à chaque fois sur ligne 1 .?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim iLigne As Integer
Private Sub CommandButton1_Click()
 iLigne = iLigne + 1
 With ThisWorkbook.Sheets("feuil1")
     .Cells(iLigne, 1) = ComboBox1
     .Cells(iLigne, 2) = ComboBox2
     .Cells(iLigne, 3) = ComboBox3
 End With
End Sub

[pgz]

Bonjour.

Si quelq'un peux m'aiguiller.

Je te propose ceci :
1. tu crées une variable de portée limitée au module lRow (long)
2. procédure évènementielle Activate du ufrm : lRow = 1
3. Procédure OnClick : mySheet.cells(lRow,1) = Me.combobox1, ... et lRow = lRow +1.

Tout cela, bien sûr, dans le module associé au ufrm.

Cordialement,

PGZ

[steph033]

Non je descend d'une ligne à chaque fois

[JackOuYA]

à l'ouverture de l'userform initialise iLigne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
  iLigne = ThisWorkbook.Sheets("feuil1").Range("A1").CurrentRegion.Rows.Count
 End Sub