CheckBox1_Click - créer une macro unique pour toutes les checkbox

Bonjour à tous

J'ai besoin de votre aide,car là je ne trouve pas la solution depuis plusieurs jours...

Je mets en place un fichier de mise à jour de donnée.

Par article j'ai deux lignes, une ligne avec la donnée déjà existante en dessous une ligne identique vide pour mettre la donnée que l'on veut ou garder la donnée existante.

J'aimerais que si l’utilisateur clique sur la Checkbox, "keep data", la ligne se remplisse automatiquement avec la donnée de la ligne supérieure

J'ai réussi à écrire un code qui fonctionne (ci-dessous), par contre mon code n'est pas variabilisé et donc doit être modifié pour chaque checkbox inséré.

-------------------------------------------------------------------------------

Sub CheckBox1_Click()

Dim col As Long

If Range("H23").Value = "True" Then
Arret = False
colonnedemarrage = 10
Dernierecolonne = Range("A" & 20).End(xlToRight).Column

For col = colonnedemarrage To Dernierecolonne + 1
If Range("A2").Value > Cells(2, colonnedemarrage).Value Then
Arret = True
colonnedemarrage = colonnedemarrage + 1
End If
Next col
colonnetraitee = colonnedemarrage
While colonnetraitee < Dernierecolonne + 1

Cells(23, colonnetraitee).Value = Cells(22, colonnetraitee).Value

colonnetraitee = colonnetraitee + 1
Wend

Else
While colonnetraitee < Dernierecolonne + 1
colonnetraitee = colonnetraitee + 1
Wend
Cells(23, colonnetraitee).Value = ""

End If
End Sub

J'essaye donc de rendre "automatique ou variable" les éléments que j'ai mis en gras

J'aimerais un code générique que je pourrais associer à toutes les macros et que lorsque la checkbox est activé il identifie la ligne associée et copie colle la data de la ligne au-dessus.

Pour info, dans mon code, la checkbox est en ligne 23, le code copie colle la donnée en ligne 22

J'espère que je suis claire

Merci par avance pour votre aide,

Excellente journée,

Marie

Bonjour,

sans doute qu'avec un fichier on y verrait plus clair.
Déjà je peux te dire que multiplier les objets sur une feuille est rarement une bonne idée. Excel en a rapidement marre...
Utilise plutôt l'événement double-clic qui, en plus, te simplifiera tout.
eric

Merci beaucoup

Ca marche c'est vraiment top ! et beaucoup plus rapide que les checkbox

Excellente journée,

Marie

Rechercher des sujets similaires à "checkbox1 click creer macro unique toutes checkbox"