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
A voir également:
- Copier - coller
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Historique copier coller windows - Accueil - Informatique
- Copier coller multiple - Guide
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:
Cdlt
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
geoalice
Messages postés
2
Statut
Membre
Merci beaucoup! Je vais tester mardi et vous reviens
