Discussion :

[Cantalou]

Bonjour,

Je viens de faire des recherches sur ce thème qui parait simple mais il ne semble pas y avoir de réponse aussi simples...

Comment puis-je coder une instruction qui sélectionne toutes les cellules non-vides (= contenu texte ou chiffre) de la feuille de calcul courante?

Il existe bien une façon de sélectionner les cellules vides

Code :

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

Selection.SpecialCells(xlCellTypeBlanks).Select

mais comment faire exactement le contraire ??

Merci de votre aide !

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TEST3()
Dim Cell As Range, Plage As Range, Adresse As Range
    Set Plage = Range("A1").CurrentRegion
    Set Adresse = Application.Union(Range("A1"), Range("A1"))
    For Each Cell In Plage
        If Cell <> "" Then
            Set Adresse = Application.Union(Adresse, Cell)
        End If
    Next
 
MsgBox Adresse.Address
Adresse.select
End Sub

Juste une idée. Pour fixer la plage de données, tu peux utiliser d'autres propriétés que CurrentRegion.

NB - Dans cet exemple A1 doit être renseigné et, avec CurrentRegion, aucune ligne ou colonne ne doit être entièrement vide dans la plage de données

[Cantalou]

Merci de ton intervention;.

je viens de tester ton code , mais je comprend pas le résultat:

j'ai toujours la même Msgbox avec "$A$1"

et surtout je n'ai aucune cellule sélectionnée (à part A1). Cela vient sans doute de la présence de lignes et de colonnes vides... Or justement, l'objectif est d'éviter de sélectionner une par une des cellules non contigues car justement elles sont dispersées dans la feuille et que c'est assez rébarbatif (!) de cliquer 50 fois en maintenant le Ctrl...

[edelweisseric]

Bonjour à tous
Bonjour Cantalou, ouskel'n'or

Tu peux essayer ceci :

Code :

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

1
2
3
Set CellulesNonVides = Union(Cells.SpecialCells(xlCellTypeConstants, 23), Cells.SpecialCells(xlCellTypeFormulas, 23))
 
    CellulesNonVides.Select

Eric

[ouskel'n'or]

Merci de ton intervention;.

je viens de tester ton code , mais je comprend pas le résultat:

j'ai toujours la même Msgbox avec "$A$1"

Tu as lu mes commentaires ?