For each cell - VBA

FoLKeN · 10 Mai 2007

Hello à tous,

Voici une nouvelle question en VBA:
- J'ai un range contenant plusieurs cellules dont certaines fusionnées.
- Je voudrais faire un For Each qui sélectionne toutes les cellules mais seulement celles qui existent réellement.

Exemple:

Code:

Dim myRange As Range
Dim cell As Range
Set myRange = ActiveSheet.Range("B2:IU2")

For Each cell In myRange
[I]' Il prendra ici toutes les cellules dans le range, ainsi que les cellules à l'intérieur des cellules fusionnées. Et j'aimerais qu'il ne prenne que la vraie cellule[/I]
Next cell

Si je ne suis aps clair, n'hésitez pas à me demander.
Merci pour votre aide !
FoLKeN

Catrice · 10 Mai 2007

Re : For each cell - VBA

Bonjour,

Le code ci-dessous permet de n'adresser que les cellules non fusionnées et la premiere cellule de chaque zone fusionnées.
Il te reste plus qu'à ajouter ton code de traitement apres le Then.

Sub test()
Dim myRange As Range
Dim cell As Range
Set myRange = ActiveSheet.Range("B2:IU2")
For Each cell In myRange
If cell.MergeArea.Cells.Resize(1, 1).Address = cell.Address Then MsgBox cell.Address
Next cell
End Sub

FoLKeN · 10 Mai 2007

Re : For each cell - VBA

Magnifique. Comme d'habitude exactement ce que je cherchais

Merchi beaucouch

For each cell - VBA

FoLKeN

XLDnaute Junior

Catrice

XLDnaute Barbatruc

FoLKeN

XLDnaute Junior

Discussions similaires