Récupérer valeur d'une variable de type range

Bonjour le Forum,

J'essaie de créer une macro qui a pour but d'extraire une chaine dans une chaine plus longue.

Elle fonctionne mais il semble que celle-ci se focalise sur une colonne que j'essaie de rendre dynamique à travers un UserForm qui demande la colonne à découper.

Le code fonctionne mais se focalise sur la colonne B bien que je lui dise que c'est la colonne L qu'il faut "Analyser".

Pour information je récupère bien les éléments suivants :

Colonne = Variable qui prend bien la valeur imposée
source = Variable qui prend bien la valeur imposée
celfin= Variable qui prend la valeur attendue

Je souhaite donc voir la valeur de la variable "Cel2" dans un MsgBox par exemple.

Voici le code :

Sub extrait_prenom(Colonne As String, source As String)
Dim Cel2 As Range
Dim celfin As String

celfin = source & 65536

     For Each Cel2 In Range(source & "1:" & source & Range(celfin).End(xlUp).Row)
        Cells(Cel2.Row, Colonne) = Trim(Left(Cells(Cel2.Row, 2), InStr(2, Cells(Cel2.Row, 2), " ")))

    Next Cel2

End Sub

Merci à vous!

Bonjour Bidouilleur, bonjour le forum,

Si tu avais eu la lumineuse idée de joindre un fichier exemple on aurait peut-être compris où tu voulais en venir. Parce que là j'avoue...

Bonjour ThauThème,

Pas besoin du fichier, j'ai trouvé mon erreur qui explique la focalisation.

La colonne de

(Cells(Cel2.Row, 2)

est fixée à 2 soit à la colonne B.

Ce qui fait que ça marchait pas comme attendu.