combobox vers feuille excel

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.

bonjour,

et tu veux envoyer quoi et ou ?

Code:

---

1 2 3

Private Sub ComboBox1_Change() [G1] = ComboBox1 End Sub

---

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.

et tu repart à chaque fois sur ligne 1 .?

Code:

---

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

---

Bonjour.

Citation:

---

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

Non je descend d'une ligne à chaque fois

à l'ouverture de l'userform initialise iLigne :

Code:

---

1 2 3

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

---

Génial, ca marche.

Dans un combobox je voulais mettre toute les dates de l'année, c'est à dire que j'allais me taper tous le calendier 2009 à taper à la main. Dans les options j'ai vu qu'il existait des controles supplémentaires dont un calendrier.

Est il possible de remplacer un de mes combox par un calendar et que l'orsque je selectionne une date et que je valide cela soit pris en compte dans ma feuil1.

tu as le contrôle DtPicker ( Microsoft date and time picker) il est comparable à un combobox, et dans le code tu peu remplacer combobox1 par DtPicker1 par exemple.

tu dis quoi.

Oui j'ai intégrer DT PICKER et j'ai rajouté quelques combo

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() iLigne = iLigne + 1 With ThisWorkbook.Sheets("feuil1") .Cells(iLigne, 1) = ComboBox1 .Cells(iLigne, 2) = ComboBox2 .Cells(iLigne, 3) = ComboBox3 .Cells(iLigne, 4) = ComboBox4 .Cells(iLigne, 5) = ComboBox5 .Cells(iLigne, 6) = DTPicker1 End With End Sub

---

Le résultat de DTPICKER dans ma cellule excel est 39774 et pas une date.
Bizar.

modifie ta cellule en format date :

Code:

---

.Cells(iLigne, 6).NumberFormat = "dd/mm/yyyy"

---

merci pour votre aide tout fonctionne nickel.

Cordialement.