Recuperer la valeur d'une texbox sans les guillemets en vu d'une ligne de code variable
Bonjour,
Je me rapproche de vous après quelques semaines d'essai infructueuses dans mon coin tout seul alone. :roll:
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:
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. :oops:
Merci d'avance et bonne fin de journée.
