VBA SpecialCells xlCellTypeBlanks - je deviens fou !

Bonjour,

Ce code fonctionne normalement :

Code:

---

1 2 3 4 5 6 7

Sub test2() Dim C As Range With Sheets("Feuil1") .Range("A1").Clear Set C = .Range("A1").SpecialCells(xlCellTypeBlanks) End With End Sub

---

Celui-ci plante (erreur 1004 pas de cellules correspondantes) :

Code:

---

1 2 3 4 5 6 7

Sub test1() Dim C As Range With Sheets("Feuil1") .Range("L18:W140").Clear Set C = .Range("L18:W140").SpecialCells(xlCellTypeBlanks) End With End Sub

---

Pouvez-vous m'expliquer ? J'ai bien lu qu'il y avait un bug si la plage concernait plus de 8192 cellules non consécutives mais ce n'est évidemment pas le cas.

Merci d'avance.

NB. J'ai fermé et redémarré Excel au cas où. Sans succès.

Bonjour

Code:

---

1 2 3 4 5 6 7

Sub test1() Dim C As Range With Sheets("Feuil1") .Range("L18:W140").Clear Set C = .Range("L18:W140") '.SpecialCells(xlCellTypeBlanks) End With End Sub

---

Pourquoi le specialcells puisque l'on vient justement de vider cette selection

bonjour,
c'est exactement le but du test comprendre pourquoi!

personnellement je n'est pas réussie à le reproduire!

Celle ci fonctionne aussi

Code:

---

1 2 3 4 5 6 7

Sub test2() Dim C As Range With Sheets("Feuil1") ' .Range("L18:W140").Clear Set C = .Range("L18:W140").SpecialCells(xlCellTypeBlanks) End With End Sub

---

J'insiste, je comprends pas pourquoi le specialcell puis que l'on vient de les vider
soit je veux une selection de blanks dans cette plage, soit je les vide avant d'utiliser la plage

D'ailleurs, celle ci ne veut plus planter, louche????

Code:

---

1 2 3 4 5 6 7

Sub test2() Dim C As Range With Sheets("Feuil1") .Range("l18:w140").Clear Set C = .Range("l18:w140").SpecialCells(xlCellTypeBlanks) End With End Sub

---

il exécute ça

Code:

---

Set C = .Range("L18:W140").SpecialCells(xlCellTypeBlanks)

---

dans ça plage ce trouve des cellules vide il ne devrait pas y avoir d'erreur!

hors ce n'est pas le cas alors il force

Code:

---

.Range("L18:W140").Clear

---

pour être sur que sa plage est vide; cet linge ne lui importe pas; mais il a un problème avec

Code:

---

Set C = .Range("L18:W140").SpecialCells(xlCellTypeBlanks)

---

et il n'y a que ça qui le préoccupe!

Si j'execute sur une feuille vierge

Code:

---

1 2 3 4 5 6 7

Sub test1() Dim C As Range With ActiveSheet .Range("L18:W140").Clear Set C = .Range("L18:W140").SpecialCells(xlCellTypeBlanks) End With End Sub

---

j'ai un message d'erreur,
en revanche si je colle une valeur en x1, je n'ai plus d'erreur.

Merci. Vous avez bien compris le problème. Si ça n'est pas reproductible, je pense que ça va s'arranger avec un redémarrage de Windows. Ca m'embête seulement de le faire maintenant. Je marquerai le sujet résolu après avoir vérifié.

Robert, si tu execute sur une feuille vierge, as tu le message d'erreur ?

OUI en revanche si je clear la plage non!

Bonjour à tous,
J'ai déjà rencontré ce genre de problème aussi.
Pour s'amuser, partons d'une feuille vide et faisons tourner cette procédure

Code:

---

1 2 3 4 5 6 7 8 9

Sub test1() Dim C As Range, rng As Range Set rng =ActiveSheet.Range("A1:g1000") With rng .Clear Set C = .SpecialCells(xlCellTypeBlanks) C.Select End With End Sub

---

On obtient une erreur.
Tapons Toto dans une des cellules de plage (par exemple C5), supprimons cette valeur à l'aide de la touche Supr et refaisons tourner la procédure
La sélection se fera sur A1:C5

Repartons d'une autre feuille vierge. Faire tourner le programme; taper Toto, supprimons la valeur et ensuite faire tourner la procédure ci-dessous (Test2) et ensuite refaire tourner la procédure test1.
A nouveau une erreur. Etonnant non ?

Code:

---

1 2 3 4 5

Sub test2() Dim sht As Worksheet Set sht = ActiveSheet sht.UsedRange.Select End Sub

---

et ensuite

Je pense avoir compris la logique. La plage prise en considération doit appartenir, au moins en partie, à UsedRange. Quand on écrit en M19, la plage prise en considération est L18:M19 :

Code:

---

1 2 3 4 5 6 7 8 9 10

With Sheets("Feuil1") .Cells.Clear Debug.Print .UsedRange.Address .[M19] = 1 Debug.Print .UsedRange.Address Set C = .Range("L18:W140").SpecialCells(xlCellTypeBlanks) Debug.Print C.Address .[M19].ClearContents Debug.Print .UsedRange.Address Set C = .Range("L18:W140").SpecialCells(xlCellTypeBlanks)

---

D'où un plantage sur la dernière ligne.