Ouvrir et vider cellules.

[boulou]

Bonjour à tous.

"Que serais-je sans vous .... ?"

Obtenir que 2 cellules distinctes B5;F5 soient automatiquement mises à zéro à l'ouverture de mon fichier.

Merci de vos instructions.

 

[philmaure]

Re : Ouvrir et vider cellules.

bonjour,
il suffit de mettre une petite macro dans le Thisworbook => worbook open de ton fichier du type :

Private Sub Workbook_Open()
Range("a1").ClearContents
End Sub

Dans ce cas à l'ouverture la cellule A1 est vide

 

[boulou]

Re : Ouvrir et vider cellules.

Merci beaucoup à toi mais difficulté car la seconde cell "F5" est une cellule fusionnée. Comment contourner cela ?

 

[Arpette]

Re : Ouvrir et vider cellules.

Bonjour Boulou, essaies comme ceci. A mettre dans ThisWorkbook
@+

Private Sub Workbook_Open()
    Range("F5").UnMerge
    Range("B5,F5").ClearContents
    Range("F5:G5").Merge
End Sub

 

[boulou]

Re : Ouvrir et vider cellules.

Solutionné merci à vous.