Jump to content

Problème d'incrémentation via Commandbutton


Recommended Posts

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...