Suppression contenu cellule sur autre page

Bonjour à tous j'ai un petit problème de code, je pense rien de bien compliqué

J'ai un code existant lié à un Bouton qui me dit:

Si j'appuie sur le bouton alors copier le contenu d'une cellule sur la cellule active d'un autre onglet ("Prototype EvRP") et tu m'active cet onglet

J'aimerai juste rajouter une fonction qui dit quand j'appuie sur le bouton, alors tu me copie la valeur sur l'autre page mais en même temps supprimer le contenu des cellules C4 à C7 de l'onglet que je viens de quitter

Voici mon code actuel

Sub Bouton1_Cliquer()
Worksheets("Prototype EvRP").Activate
Selection = Worksheets("Calcul Manutentions").Range("C33").Value

End Sub
 

j'aimerai après ce code, que de C4 à C7 sur l'onglet Calcul manutentions, que le contenu se supprime sans que j'ai besoin d'y retourner

merci d'avance

bonjour

si j'ai bien compris la demande

il suffit de supprimer le contenu des cellules avant de changer de feuille, et d'ecrire le nom de la feuille a traiter pour effacer aussi le contenu

Sub Bouton1_Cliquer()
activesheet.range("C4:C7").clearcontents
sheets("Calcul manutentions").range("C4:C7").clearcontents
Worksheets("Prototype EvRP").Activate
Selection = Worksheets("Calcul Manutentions").Range("C33").Value

End Sub

fred

Ca fonctionne mais le problème c'est que vu que tu supprimes avant le copier coller, il me colle la cellule vide, et non celle remplie .. ^^


c'est bon j'ai juste inversé ton code du coup, ça fonctionne merci

Rechercher des sujets similaires à "suppression contenu page"