| ||||||||
Petit astucien | Salut mes amis pouvez vous me corriger cette macro qui a pour objectif d'effacer le contenu de la plage de cellules ("A1:AB74") des feuilles nommées de "F1" à "F18" :
Sub Macro1()
Sheets(Array("F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12", _ "F13", "F14", "F15", "F16", "F17", "F18")).Range("A1:AB74").ClearContents
Sheets("1").Select End Sub
merci infiniment | |||||||
Publicité | ||||||||
| ||||||||
Petit astucien | Je tiens à ajouter que les feuilles F1 à F18 sont masquées | |||||||
![]() ![]() | Bonjour Sub Macro1() Sheets(Array("F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12", "F13", "F14", "F15", "F16", "F17", "F18")).Select End Sub @ + | |||||||
Petit astucien | les feuilles F1 à F18 sont masquées le control .select ne marche pas un debogage apparait | |||||||
![]() ![]() |
Sheets("F1").Range("A1:AB74").Value = "" Sheets("F2").Range("A1:AB74").Value = "" ............................................................. Sheets("F18").Range("A1:AB74").Value = "" Pas trouvé mieux que d'écrire 18 lignes, mais ça marche avec les feuilles masquées ! | |||||||
Petit astucien | Merci infiniment poussebois | |||||||
|
Les bons plans du moment PC Astuces | Tous les Bons Plans | |||||||||||||||
|