Copier - coller
geoalice
Messages postés
2
Statut
Membre
-
geoalice Messages postés 2 Statut Membre -
geoalice Messages postés 2 Statut Membre -
bonjour,
J'ai des checkbox que je veux copier dans une autre feuille si la valeur=true
toutefois, je suis incapable de le coller à la prochaine cellule vide à partir de E15
voici le code actuel - qui ne prend pas ma ligne 5
1-If CheckBox1 = True Then
2-ActiveSheet.Shapes.Range(Array("checkbox1")).Select
3-Selection.Copy
4-Sheets("Lettre Francais (2)").Select
5-Range("e15").End(xlDown).Offset(1, 0).Select
6-ActiveSheet.Paste
7-End If
8-End Sub
J,ai une liste de checkbox et dès qu'ils sont activés, ils doivent se reporter dans ma feuille nommée Lettre francaos 2 - toutefois, sans être activé (= false).
Merci à l'avance
J'ai des checkbox que je veux copier dans une autre feuille si la valeur=true
toutefois, je suis incapable de le coller à la prochaine cellule vide à partir de E15
voici le code actuel - qui ne prend pas ma ligne 5
1-If CheckBox1 = True Then
2-ActiveSheet.Shapes.Range(Array("checkbox1")).Select
3-Selection.Copy
4-Sheets("Lettre Francais (2)").Select
5-Range("e15").End(xlDown).Offset(1, 0).Select
6-ActiveSheet.Paste
7-End If
8-End Sub
J,ai une liste de checkbox et dès qu'ils sont activés, ils doivent se reporter dans ma feuille nommée Lettre francaos 2 - toutefois, sans être activé (= false).
Merci à l'avance
1 réponse
-
Bonjour
La Cellule E15 est-elle toujours pleine? si ce n'est pas le cas il faut traiter cette condition pour forcer la copie dans la cellule[E15], par exemple:If CheckBox1 = True Then ActiveSheet.Shapes.Range(Array("checkbox1")).Select Selection.Copy Sheets("Lettre Francais (2)").Select If [E15] = "" Then [E15].Select ActiveSheet.Paste Else Range("e15").End(xlDown).Offset(1, 0).Select ActiveSheet.Paste End If End If
Cdlt
