fournisseur.Range("D6:O12,D16:O22,D26:O32,D36:O42,D46:O48").ClearContents
devrait le faire.Sheets("fournisseur").Range("D6:O12,D16:O22,D26:O32,D36:O42,D46:O48").ClearContents
oui effectivement tu a entièrement raison bonjour avec mes plus plate excuse je manque a mon devoir :/Bonjour le fil, chef-gael
chef-gael
Tu as souci qui prime sur les autres
Voir le point 3) de la charte du forum (section pour tous)
Sinon pour ta question
Il y a des erreurs de syntaxe dans ton code
• Une suggestion pour finir (pour simplifier les choses)
Nommer les plages de cellules pour facilement les identifier et donc les effacer
Sub Effacer()
Sheets(1).Range("A1:B10,C3:D5").Name = "zone1": [zone1] = ""
Sheets(2).Range("F3:F8,C4:D10,A1").Name = "zone2": [zone2] = ""
'etc...
End Sub
Sub Effacer_II()
Sheets("fournisseur").Range("D6:O12,D16:O22,D26:O32,D36:O42,D46:O48").Name = "zone1": [zone1] = ""
'tu reproduis la même syntaxe pour les autres plages de cellules en faisnt les changements idoines
'Sheets(nomfeuille).Range(adresse des cellules).Name = "zoneX": [zoneX] = ""
'etc...
End Sub
Sub test()
Sheets(1).Cells.Clear
Sheets(1).Range("A1:F40") = "=ADDRESS(ROW(),COLUMN(),4)"
Sheets(1).Range("A3:C10").Name = "zone1"
Sheets(1).Range("A28:D31").Name = "zone2"
Sheets(1).Range("F20:F25").Name = "zone3"
Union([zone1], [zone2], [zone3]).Interior.Color = vbGreen
MsgBox "Effacement du contenu des cellules des plages nommées?"
[zone1] = ""
[zone2] = ""
[zone3] = ""
End Sub