[VBA] Selection d'une ligne de cellules pleines et espaces

Bonjour,

Tout d'abord je tiens à dire j'adore ce forum. Mes questions reçoivent une réponse dans les 2 heures qui suivent et ça c'est vraiment génial !

le problème est le suivant :

'Colonne contennant les critères de la ComboBox
Range("B6:B26").Select
'Selection du critère choisi dans la ComboBox
Selection.Find(What:=ComboBox1.Value).Activate
'Selection de la ligne correspondante
ActiveCell.EntireRow.Select

Ce code marche très bien mais il me selectionne la ligne entière et lorsque je fais un graphique avec cette selection, la zone qui m'interesse est minuscule.

J'ai donc essayé avec un

End(xlToRight)

mais certaine des cellules de la ligne contiennent un espace " ", et ma selection s'arrête à la première cellule contenant l'espace.

J'aimerais donc que ma selection se fasse sur les cellules remplies et contenant un espace mais pas sur les cellules vides.

Est-ce possible ?

Merci pour vos réponses

Amicalement,

Calagan

Bonjour,

peut-être en remplaçant

ActiveCell.EntireRow.Select

par

ActiveCell.Resize(1, 4).Select

si tu veux 4 cellules (ActiveCell comprise)

le mieux serait de joindre ta feuille

Amicalement

Claude

Bonjour Claude,

Merci pour ta réponse

Désoler j'ai oublié de préciser que ma plage va bouger, tout les jours je rajoute une colonne en fait.

C'est pour ça que le

End(xlToRight)

ça m'allais bien

Voila un morceau de mon fichier

Amicalement,

Calagan

Bonjour

Tu peux essayer

Private Sub CommandButton2_Click()
  Range("B6:D26").Find(What:=ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Resize(1, Range("IV5").End(xlToLeft).Column - 1).Select
  Unload Me
End Sub

Banzai64 a écrit :

Bonjour

Tu peux essayer

Private Sub CommandButton2_Click()
Range("B6:D26").Find(What:=ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Resize(1, Range("IV5").End(xlToLeft).Column - 1).Select
Unload Me
End Sub

Génial !!! ça marche parfaitement

Merci Beaucoup Banzai64 t'es un Dieu !

Amicalement,

Calagan