Avoir le numéro d'une colonne de range

Bonjour,

j'utilise cette formule :

Dim rg As Range

Dim y As Integer

Set rg = Range(Cells(n, 22), Cells(n, 34)).Find(x, Cells(n, 22))

Pour trouver la cellule contenant "x", puis pour récupérer la colonne voici ce que je fais :

y = rg.Column

Mais cela ne fonctionne pas ! Une idée?

Merci d'avance

Bonjour,

cela fonctionnera mieux avec cette petite correction :

Set rg = Range(Cells(n, 22), Cells(n, 34)).Find("x", Cells(n, 22))

Par ailleurs, l'instruction serait plus claire ainsi

Set rg = Range(Cells(n, "V"), Cells(n, "AH")).Find("x", After:=Cells(n, "V"))

cela ne change rien... le problème vient de "y = rg.Column" apparemment ! Je pense que c'est parce que rg est une range mais je sais pas comment "transformer" en cell

clemm a écrit :

Je pense que c'est parce que rg est une range mais je sais pas comment "transformer" en cell

Le résultat de la fonction Find est toujours une cellule qui est un objet Range.

Le problème est sans doute que Find ne donne aucun résultat.

    Set rg = Range(Cells(n, "V"), Cells(n, "AH")).Find("x", After:=Cells(n, "V"))
    If rg Is Nothing Then MsgBox "Erreur"

C'est ça merci beaucoup !