Discussion :

[legillou]

Bonjour je débute en VBA et j'ai un soucis pour effectuer une selection sur une colonne.

Voici mon code

Code :

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

1
2
3
4
5
For Each Cellule In Range("A5").EntireRow.SpecialCells(xlCellTypeConstants).Areas(1).Cells
    If Cellule = "Prefix" Then
    MsgBox (Range(R[4]C, R[4]C.End(xlDown)).Count)
    End If
Next

Il me met une erreur de syntaxe sur la ligne MsgBox(Range(R[4]C,R[4]C.End(xlDown)).Count) et bien évidement je ne comprend pas pourquoi.

Pour expliquer ma démarche, je veux trouver la colonne qui a pour titre "prefix" situé sur la ligne 5 et je veux selectionner cette colonne à partir de la ligne 9 jusqu'a la fin.

Voila merci d'avance pour vos réponses

[ouskel'n'or]

Essaie ça, c'est plus simple

Code :

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

1
2
3
4
5
    With Rows(5)
        Set c = .Find(What:="prefix")
    End With
    If Not c Is Nothing Then NoCol = c.Column
    MsgBox NoCol

A+

Edit
J'ai oublié la sélection :

Code :

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

1
2
    Range(Cells(9, NoCol), Cells(Cells(9, NoCol).SpecialCells _
         (xlCellTypeLastCell).Row, NoCol)).Select

[legillou]

Merci beaucoup ca marche super bien !!