Effacer Contunues des cellules
microsig
-
microsig Messages postés 5 Statut Membre -
microsig Messages postés 5 Statut Membre -
Bonjour
Je suis un débutant en VBA
Voila j'ai un classeur Nome FACTURE Excel(V.2003)
Je suis sur une Feuil C
Je voudrais effacer les contenues de touts les cellules
Non Protéger d'un tableau dans la Feuil A
J'ai utiliser une boucle
Fro i=1 to Sheets.Count
Sheets(i).cells.Clear
Next i
Mais elle ne fonctionne pas
La boucle efface tout la feuil A
Je suis un débutant en VBA
Voila j'ai un classeur Nome FACTURE Excel(V.2003)
Je suis sur une Feuil C
Je voudrais effacer les contenues de touts les cellules
Non Protéger d'un tableau dans la Feuil A
J'ai utiliser une boucle
Fro i=1 to Sheets.Count
Sheets(i).cells.Clear
Next i
Mais elle ne fonctionne pas
La boucle efface tout la feuil A
3 réponses
-
bonjour
Les cellules fusionnées sont souvent sujet à problèmes et il vaut mieux utiliser d'autres méthodes que la fusion pour faire de la mise en page.
Dans ton cas, tu as de la chance, il suffit de changer ainsi :
Dim cel As Object For Each cel In Sheets("Feuil A").UsedRange If Not cel.Locked Then cel.Value = "" Next cel-
Bonjour; "gbinforme"
Cette 2eme Méthode fonctionne très bien (j'ai effacer 130 Cellule Fusionnée
$$ le problème de cette Méthode $$ il fait attendre 40seconde
Mais je peux dormir cette nuit sans ponce a trouvée une autres solution merci
et si trouve une clé comme une boucle pour rendre la commande plus rapide
une 2eme fois merci
-
-
bonjour
Tu peux essayer cette méthode qui efface le contenu des cellules non verrouilléesDim cel As Object For Each cel In Sheets("Feuil A").UsedRange If Not cel.Locked Then cel.ClearContents Next cel -
Merci "gbinforme"
Cette méthode marche très bien et je te remercie pour ton aide
Mais j'ai toujours un problème puisque mes cellules sont fusionnées
le message d'erreur est (1004)
Impossible de modifier une cellule fusionnée alors si tu as une autre solution
Une deuxième fois merci
