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