Discussion :

[ouskel'n'or]

Pour obtenir les cellules contenant un texte

Code :

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

1
2
3
4
5
6
Sub Test1()
Dim Plage As Range, cell as range
    Set Plage = ActiveSheet.UsedRange.SpecialCells(xlTextValues)
    For Each Cell In Plage
        MsgBox Cell.Value
    Next

On peut aussi utiliser Union pour obtenir la plage des cellules contenant des valeurs et des textes

Code :

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

1
2
3
4
5
6
7
8
Sub Test2()
Dim Plage As Range, cell as range
    Set Plage = Union(ActiveSheet.UsedRange.SpecialCells(xlTextValues), _
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlNumbers))
    For Each Cell In Plage
        MsgBox Cell.Value
    Next
End Sub

Une erreur est générée si l'un des argument n'existe pas (pas de texte ou pas de valeur)

[tirex28]

Bonjour,

Je crois qu'on peut se passer d'Union:

Code :

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

1
2
3
4
5
6
7
8
Sub Test3()
    Dim Plage As Range, cell As Range   
    Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, _
        xlNumbers + xlTextValues)
    For Each cell In Plage
        MsgBox cell.Value
    Next
End Sub

Cordialement,

Tirex28/

[ouskel'n'or]

Tu as raison. Quatre zieux valent mieux que deux