code VBA aussi rapide que manuellement ?

Bonjour tout le monde

Je voudrais savoir s'il existe un moyen de réaliser rapidement une action sur toutes les cellules d'une feuille à la fois.

Par exemple, lorsque par VBA, on note

Code:

---

1 2 3 4 5

For i = 1 To 65536 For j = 1 To 256 Cells(i, j) = "" Next j Next i

---

Cela prend un nombre incalculable de secondes, alors qu'il est, manuellement, si rapide de cliquer sur la case en haut à gauche pour tout sélectionner, et d'appuyer sur suppr...


Pourquoi une telle différence ? Y a-t-il un moyen de faire, par VBA, aussi rapide que manuellement ? (s'il peut le faire comme ça, j'imagine qu'il le peut aussi par code, mais il faudrait qu'il reprenne exactement le même algorithme...)


Merci d'avance pour votre aide.


.

Salut,

Comme ca

Code:

---

Cells.ClearContents

---

++
Minick

En fait, c'était juste un exemple.
Ce que je cherche réellement à faire sur de très nombreuses cellules est un Validation.Delete, pour effacer les listes qui s'y trouvent.
(mais merci quand même ;))

bonjur, essaye ceci

Code:

---

1 2 3 4

Dim cel as range for each cel in Union(range("A1:D8"),range("G10:J14")) cel.Validation.Delete next cel

---

J'utilise union juste pour te montrer la commande tu peut très bien directement mettre Rang(.....)

Jai repondu a la question initiale...


Salut krovax,


Sinon comme ca :

Code:

---

Cells.SpecialCells(xlCellTypeAllValidation).Validation.Delete

---

Edit :
Ou dans la lignee de krovax mais sans boucle

Code:

---

Union(Range("A1:D8"), Range("G10:J14")).SpecialCells(xlCellTypeAllValidation).Validation.Delete

---

++
Minick

C'est infiniment plus rapide, sans comparaison :ccool:
merci beaucoup à tous les deux :D

Moins important pour moi, mais est-ce que je peux quand même encore vous demander s'il existe des fonctions similaires pour effacer les bordures, enlever le fond coloré, ou la couleur de police, le gras, etc ?

Salut,

Si tu veux pour l'ensemble des cellules de la feuille ou une selection manuelle oui

par exemple comme ceci pour toute la feuille pour enlever le fond :

Code:

---

Cells.Interior.ColorIndex = xlNone

---

Ou pour la selection manuelle pour enlever la couleur de police:

Code:

---

Selection.Font.ColorIndex = 0

---

Ou encore si c'est sur tes liste de validations, avant de supprimer les listes de validation, pour les bordures :

Code:

---

1 2	Cells.SpecialCells(xlCellTypeAllValidation).Borders.LineStyle = xlNone Cells.SpecialCells(xlCellTypeAllValidation).Validation.Delete

---

++
Minick

:D !


Tu as mon entière et complète gratitude ... u_u


.