Problème d'incrémentation via Commandbutton

[Manak]

Bonjour,

Débutant en VBA, j'ai quelques soucis concernant une de mes macros Excel. Il s'agit via un bouton de Commande, de positionner les choix sélectionnés dans des Combo Box sur une feuille de calcule autre que celle où sont situés ET le bouton de Commande, ET les deux Combo Box. Avec le code suivant, après sélection des choix dans les Combo Box et pression sur le bouton, les choix sont copiés sur la feuille où est situé sur le bouton, pas sur la "Feuil1" sur laquelle j'aimerai que mes choix s'incrémentent :

Private Sub CommandButton1_Click()
Set cel = Sheets("Feuil1").Range("A30")

Compteur = 1

'Le bloc d'instruction suivant va se répéter

'tant que la cellule n'est pas vide

Do While cel.Offset(Compteur) <> ""

    'Si la valeur de la cellule est "" (vide), on sort

    'de la boucle
    
x = ActiveCell.Value

   

    Compteur = Compteur + 1

Loop
Cells(Compteur + 30, 1) = ComboBox1.Text 'Définir la cellule d'origine ici
Cells(Compteur + 30, 6) = "x" 'Ici aussi
Cells(Compteur + 30, 7) = ComboBox2.Text 'Et ici


End Sub

Merci pour l'aide apportée.


Manak l'omelette.

 

[Creepy]

Re : Problème d'incrémentation via Commandbutton

Hello le Forum, Manak,

Il faut donner le nom de la feuille dans tes copies comme ceci :

Sheets("Feuil1").Cells(Compteur + 30, 1) = ComboBox1.Text Cells
Sheets("Feuil1").Cells(Compteur + 30, 6) = "x"
Sheets("Feuil1").Cells(Compteur + 30, 7) = ComboBox2.Text 'Et ici

A reproduire pour toutes les valeurs que tu voudrais copier en feuil1.

A+

Creepy