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
A voir également:
- Effacer Contunues des cellules
- Verrouiller des cellules excel - Guide
- Excel additionner plusieurs cellules - Guide
- Effacer tout - Guide
- Effacer iphone - Guide
- Comment recuperer des messages effacés sur whatsapp - Guide
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 :
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
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