Problème d'incrémentation sur 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

 

[Jeannot45]

Re : Problème d'incrémentation sur CommandButton

Bonjour Manak,

Il faudrait activer ta feuille cible, c'est à dire celle qui va recevoir les valeurs, par l'instruction

Sheets("Nom de la feuille cible").activate

A+

Jeannot

 

[JeanMarie]

Re : Problème d'incrémentation sur CommandButton

Bonjour

Tu as pas besoin d'activer une feuille pour écrire dedans 🙄

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

With Sheets("Feuil1")
   .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 With

End Sub

@+Jean-Marie

 

[Manak]

Re : Problème d'incrémentation sur CommandButton

Merci, Jeannot je teste ça. D'ailleurs je place la commande à la fin du code sur le Command Button ? Juste avant la boucle d'incrémentation ?

[j'en profite pour m'excuser du double poste, ça mérite des coups de fouet]

Encore merci Jeannot, si un jour Dieu ou n'importe qui d'autre veut qu'on se croise, je te payerai un Cola Freeway 😀

 

[Manak]

Re : Problème d'incrémentation sur CommandButton

Jean-Marie, l'incrémentation semble encore s'effectuer sur la Feuil 2 dans laquelle sont situés les Combobox et le Commandbutton.

 

[Manak]

Re : Problème d'incrémentation sur CommandButton

Autant pour moi, je te payerai un club Sandwich végétarien, car ça marche !!!

Merci beaucoup, c'est vraiment aimable à vous d'avoir su répondre à ma question et de faire face à ma médiocrité informatique.

 

[Jeannot45]

Re : Problème d'incrémentation sur CommandButton

Re

Bien vu Jean-Marie ...
Quant à toi, Manak, ne fais pas de complexe d'infériorité, toute personne venant sur ce forum partage et reçoit des connaissances

Bon courage pour la suite

Jeannot