Discussion :

[krakov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.


.

[Minick]

Salut,

Comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.ClearContents

++
Minick

[krakov]

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 )

[Krovax]

bonjur, essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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(.....)

[Minick]

Jai repondu a la question initiale...


Salut krovax,


Sinon comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.SpecialCells(xlCellTypeAllValidation).Validation.Delete

Edit :
Ou dans la lignee de krovax mais sans boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

++
Minick

[krakov]

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

[krakov]

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 ?

[Minick]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Interior.ColorIndex = xlNone

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

++
Minick

[krakov]

!


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


.