Discussion :

[juliematlab]

Bonjour,

J'ai créer un Useform composé d'un ComboBox ( liste déroulante) et d'un Bouton de commande.

Le principe :
Sous excel un "bouton" m'ouvre mon userform.
Userform est ouvert.
Je choisi dans mon Combobox un texte.
Quand je clik sur mon bouton de commande dans mon Userform je copie la valeur choisie de mon combobox dans une cellule dans une autre feuille que celle active.

Mon problème :
La valeur choisie dans mon combobox va être copier dans la même cellule à chaque fois.

Ce que je voudrais faire:
a chaque fois que je clik sur le bouton commande cela me copie dans la cellule i+1

Mon Code :

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub CommandButton1_Click()
 
 
Worksheets("Listing").Range("N2").Value = ComboBox1.Value
Worksheets("Listing").Range("O2").Value = ComboBox2.Value
 
Unload UserForm1
 
End Sub

Ce que je veux changer c'est N2 et O2 . Une boucle est sans doute la solution mais je vois pas comment l'appliquer.

Merci d'avance pour vos renseignements.

[fring]

Bonjour,

Essaie comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim DerLig As Integer
 
With Worksheets("Listing")
    DerLig = .Range("N" & Rows.Count).End(xlUp).Row + 1
    .Range("N" & DerLig).Value = ComboBox1.Value
    .Range("O" & DerLig).Value = ComboBox2.Value
End With
 
Unload UserForm1
 
End Sub

[Kimy_Ire]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim lastcell As Range
 
Set lastcell = Worksheets("Listing").Cells(2, .Cells.Columns.count).End(xlToLeft)
Worksheets("Listing").lastcell.Offset(0, 1) = ComboBox1.Value
Worksheets("Listing").lastcell.Offset(0, 2) = ComboBox2.Value
 
Unload UserForm1
 
End Sub

2 choses :
- Il faut que ta cellule M2 soit pleine
- Tes valeurs se placeront en P2/Q2 puis en R2/S2, etc...

Je n'ai pas testé, tiens moi au courant !

[juliematlab]

Merci déjà à tous les deux pour vos réponses. Cela m'a aidé.

@ fring : cette méthode fonctionne. J'essaye de l'adapter pour au lieu de copier dans colonne "N" et "O", copier dans la même colonne ( donc sur ligne successive) "N1","N2", "N3"... pour le moment cela fonctionne moyen...cela copie "N1", "N15"... je suis dessus en ce moment et essaye de trouver une solution.

@ Kimy : le code ne fonctionne pas, il y a une erreur 438 pour la ligne de code

Code :

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

1
2
 
Worksheets("Listing").lastcell.Offset(0, 1) = ComboBox1.Value

J'ai essayer de voir pour résoudre le problème mais pas réussi.

A bientôt