Signaler

Copier - coller

Posez votre question geoalice 2Messages postés mercredi 11 janvier 2017Date d'inscription 14 janvier 2017 Dernière intervention - Dernière réponse le 14 janv. 2017 à 13:04 par geoalice
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 
Utile
+0
plus moins
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 2Messages 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
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !