Faire une boucle if

Bonjour le forum,

Je suis en train d'écrire une fonction, qui est :

Function TrouveColonneCellule()
If ActiveCell.Column = 4 Then
Me.TxtColonneCellule = Sheet9.Range("D1").Value
ElseIf ActiveCell.Column = 5 Then
Me.TxtColonneCellule = Sheet9.Range("E1").Value
ElseIf ActiveCell.Column = 6 Then
Me.TxtColonneCellule = Sheet9.Range("F1").Value
ElseIf ActiveCell.Column = 7 Then
Me.TxtColonneCellule = Sheet9.Range("G1").Value
.
.
.
etc...
End If
End Function

Le problème c'est que je dois faire des elseif jusqu'à la colonne AF donc sur le code la colonne 32. Sauriez vous par hasard comment je pourrais simplifier le code? Merci d'avance.

Cordialement.

Bonjour

Me.TxtColonneCellule = Sheet9.Cells(1, ActiveCell.Column).Value

Bonjour,

En faisant une boucle --> For x=4 to 32 ...... Next x

Mais pourquoi une fonction ?

Place un fichier exemple, se sera plus parlant

Bonjour à vous deux, et merci pour vos réponses.

M12, j'ai mis une fonction pour évité que le code ou je vais appeler la fonction soit trop longue.

A oui j'ai donc pas besoin de mettre une boucle, merci Chris.

Je vais prendre la méthode de Chris, merci quand même M12.

Bon weekend à vous deux.