Message box d'avertissement

Bonjour,

J'ai une macro qui copie colle une plage de cellule, et ce possiblement sur des cellules à overwrite.

J'aimerais simplement éviter d'avoir cette fenêtre d'avertissement quand ma macro paste des cellules par dessus des cellules contenant déjà des valeurs.

Bonjour,

Ce message provient probablement de ton code ...

ric

La partie du code concerné :

Sub Com(Jour)
    Sheets("BDD").Range("VIDE").Copy
    Sheets("EDT").Range(Jour).PasteSpecial
End Sub

"VIDE" est un plage nommée dans le gestionnaire de nom et Jour fait référence à un String qui est également une plage nommée dans le gestionnaire de nom.

"VIDE" : Plage de 48 lignes et 1 colonne ne contenant que des cellules vides

Jour : Plage de 48 lignes et 1 colonne contenant des donnés

Bonjour Chbouli04, Ric,

Utiliser plutôt:

'Pour un effacement complet des données Jour
Sub Efface()
Sheets("EDT").Range("Jour").ClearContents
End Sub

'Pour un effacement partiel des données
Sub Efface(eff As String)
Sheets("EDT").Range(eff).ClearContents
End Sub

Dans ce dernier cas un Call Efface("A5:B10") par exemple n'effacera que 5 lignes x 2 colonnes des données de la zone Jour dont A5:B10 fait partie.