Problème bouton et vba

[julman75]

Bonsoir le forum, j'espère que tout le monde va bien.

J'ai un petit problème avec un bouton et sa macro associée. A l'origine le code m'avait été donné dans un autre thread par Pierrot93 mais comme mon problème est cette fois-ci différent, je préfère créer une autre discussion.

J'ai manipulé par la suite la macro et voilà que ça ne marche plus lol

En gros, j'ai des donnés dans quatre colonnes que je désire rapatrier dans 4 autres colonnes. Pour cela, j'ai un bouton "ajouter nouvelles valeurs" qui copie les data. Celui-ci marche très bien.

Le problème se situe au niveau de l'autre bouton "effacer les données", qui me permet - comme son nom l'indique ! - d'effacer toutes les données des 4 premières colonnes. Ceci est pratique car je peux alors entrer de nouvelles données qui seront ensuite collées dans les 4 autres colonnes grâce au second bouton.

Or si j'appuie deux fois sur le bouton "effacer valeurs", il se met à effacer la moitié du document lol

Autrement dit, si j'appuie une fois, tout va bien. Mais si j'appuie une seconde fois sans avoir ajouté de données dans ces colonnes, ça ne marche plus.

J'ai du me tromper quelque part dans le code mais je ne sais pas où

merci d'avance pour votre aide, bonne soirée !

ps : je vous joins le ficher concerné

 

[Pierrot93]

Re : Problème bouton et vba

Bonjour,

modifie le code de ton bouton "effacer" ainsi :

If Not IsEmpty(Range("A7").Value) Then Range("A7:D" _
    & Range("A65536").End(xlUp).Row).ClearContents

bonne soirée
@+

 

[julman75]

Re : Problème bouton et vba

Excellent Pierre, comme d'habitude

Merci beaucoup