Copier-coller automatiquement + faire disparaitre checkbox l

salut

2 questions:

1/ j'ai une macro qui fonctionne et qui copie une cellule vers une autre dans 2 onglets différents.

mais je voudrais qu'elle copie les cellules de manière automatique dès que la cellule C8 est remplie.

J'ai placé cette macro dans un module :

Sub copy_name()

On Error Resume Next

Dim xRg As Range

Set xRg = Application.Selection

Sheet1.Range("C8").Copy Sheet3.Range("E1")

xRg.Select

End Sub

2/ dans la macro suivante, en cliquant dans une checkbox, la colonne "I" apparait (hidden=false), et j'ai une autre checkbox (ici- checkbox18) qui se trouve dans la colonne I qui doit apparaitre et disparaitre avec la colonne. Le problème c'est que la checkbox18 ne disparait pas avec la colonne et lorsque la colonne I est cachée, cette checkbox change de place...

Sub CheckBox13_Click()

If Sheet3.Range("H7").Value = True Then

Sheet3.Columns("I").EntireColumn.Hidden = False 'cette ligne fonctionne et la colonne apparait

Sheet3.Shapes("checkbox18").Visible = True

Else

Sheet3.Columns("I").EntireColumn.Hidden = True 'cette ligne fonctionne et la colonne disparait

Sheet3.Shapes("Checkbox18").Visible = False

End If

End Sub

de l'aide ?

Bonjour

Tu devrais joindre ton fichier...

Bye !

ci-joint un fichier exemple avec mes questions dedans..

en espérant que c'est plus clair

12book1.xlsm (26.07 Ko)

Bonjour

Un essai à tester. Te convient-il ?

Bye !

24book1-v1.xlsm (32.20 Ko)

c'est genial!!! merci bcp!!!!!!!!

Rechercher des sujets similaires à "copier coller automatiquement disparaitre checkbox"