Copier - coller

geoalice 2 Messages postés mercredi 11 janvier 2017Date d'inscription 14 janvier 2017 Dernière intervention - 11 janv. 2017 à 19:03 - Dernière réponse : geoalice 2 Messages postés mercredi 11 janvier 2017Date d'inscription 14 janvier 2017 Dernière intervention
- 14 janv. 2017 à 13:04
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
Afficher la suite 

2 réponses

Répondre au sujet
Frenchie83 1718 Messages postés lundi 6 mai 2013Date d'inscription 13 décembre 2017 Dernière intervention - 14 janv. 2017 à 04:29
0
Utile
1
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
geoalice 2 Messages postés mercredi 11 janvier 2017Date d'inscription 14 janvier 2017 Dernière intervention - 14 janv. 2017 à 13:04
Merci beaucoup! Je vais tester mardi et vous reviens
Commenter la réponse de Frenchie83