VBA

Bonjour

Problème avec une Macro qui visiblement fonctionne, mais affiche

Bogue: Erreur d’exécution 438?

Voir fichier joint

Merci

Bonjour,

La ligne suivante ne veut rien dire

Sheets("Bon").Range ("C22:G40")

A supprimer !

Pour la lisibilité du forum, merci de modifier le titre du sujet ! Ex : " Erreur d’exécution 438"

La moitié des posts sont du VBA !

Bouben

Merci

Bonne soirée

Nonno

Bonsoir,

Je pense qu'il manque l'instruction .ClearContents à la fin de la ligne

Sheets("Bon").Range("C22:G40")

End With
Sheets("Bon").Range("C22:G40").ClearContents
Sheets("Bon").Range("C6").Value = Sheets("Bon").Range("C6")

Cordialement.

Tout à fait

Merci Zebulon

Bonne soirée

Nonno