Bonjour,

Je me rapproche de vous après quelques semaines d'essai infructueuses dans mon coin tout seul alone.

J'ai balayé le net et cherché une solution à mon problème sans y arriver.

Mon problème : compéter une feuille Excel grâce à une seconde feuille

Le soucis est que les cellules sources et cibles ne sont jamais les mêmes, c'est pour cela que je voulais passer pas

un USF et y indiquer les paramètres avant de lancer ma macro de récupération.

Un bout de code serait plus compréhensible peut être :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
With Worksheets(Sh_Source)
        Set Rg = .Range("B1:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
    End With
 
    With Rg
        Set Trouve = .Find(What:=ActiveCell.Value, LookIn:=xlValues, LookAt:=xlWhole, _
                           SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
        'Si la méthode "find" a trouvé
        If Not Trouve Is Nothing Then
 
            ActiveCell.Offset(0, -1).Value = Trouve.Offset(0, -1).Value
Dans cette partie de code, la partie (0,-1) evolue et donc si je prend l'information depuis une

textbox, il y ajoute des guillemets : ActiveCell.Offset("0, -1").Value et ça ne marche pas

Idem pour Set Rg, comment y faire évoluer la colonne de recherche sans y avoir les guillemets

imposées à la recuperation de la valeur d'une autre textbox ??

Je suis certain que ce qui est clair pour moi, ne l'est pas forcement pour tous le monde.

N'hésitez pas à mon poser toutes les questions possibles, je suis vraiment en peine de trouver tout seul la soluce.

Merci d'avance et bonne fin de journée.