Sélection cellules non vides

[cabsen]

Bonjour le forum !

Je cherche le moyen de sélectionner les cellules non vides avec une macro pour mettre en forme les données.

La première cellule est toujours la cellule A1
La dernière cellule se trouve se trouvera toujours en colonne B

Les autres cellules de la feuilles ne contiennent aucune donnée et ne sont pas formatées.

Si quelqu'un connaît la procédure, je le remercie d'avance ! 🙂

 

[pierrejean]

Re : Sélection cellules non vides

bonjour cabsen

teste:

Sub Macro1()
For Each cell In ActiveSheet.UsedRange
  If cell.Value <> "" Then
    aselectionner = aselectionner & "," & cell.Address(0, 0)
  End If
Next cell
Range(Right(aselectionner, Len(aselectionner) - 1)).Select
End Sub

 

[Cousinhub]

Re : Sélection cellules non vides

Bonjour, si tes cellules contiennent uniquement des constantes :

Columns("A:B").SpecialCells(xlCellTypeConstants, 23).Select

si elles contiennent des formules :

Columns("A:B").SpecialCells(xlCellTypeFormulas, 23).Select

si elles contiennent les deux :

Union(Columns("A:B").SpecialCells(xlCellTypeConstants, 23), Columns("A:B").SpecialCells(xlCellTypeFormulas, 23)).Select


sur une seule ligne

Edit : bonjour Pierrejean

 

[cabsen]

Re : Sélection cellules non vides

Superbe !

Merci pierrejean, ça fonctionne très bien.
Merci aussi bhbh, j'essayerai ta solution bientôt…

 

[cabsen]

Re : Sélection cellules non vides

Alors tout se passe bien sauf pour le cas où toutes les cellules sont vides… 🙁 Or, cette configuration sera plus que possible pour mon fichier.

J'ai essayé de construire un "If… Then Exit Sub" mais sans succès…

Si quelqu'un connaît une boucle de sortie ? À votre bon cœur 😉 Je suis preneur.

Edition :
Je crois avoir trouvé ! j'ai inséré ceci…

If cell.Value = "" Then Exit Sub

C'est bon ? J'ai enfin trouvé un truc presque tout seul ! 😉

 

[pierrejean]

Re : Sélection cellules non vides

re

vois si cela te convient