Selectionner une plage à coté du résultat d'un find VBA
Résolu
Kratoska
-
Kratoska -
Kratoska -
Bonjour,
Je vous remercie d'avance pour votre aide.
Voici mon problème:
je dispose d'un fichier à 2 colonnes A et B,
- Dans la colonne A il y'a une valeur numérique puis 10 ligne vide.
- Dans la colonne B il y'a 10 valeurs correspondantes à la valeur numérique de A
Cela donne:
X -----------------------> Y1
(vide) -------------------> Y2
... 10 lignes vides ---------> ....
(vide)--------------------> Y10
j'essaie avec une macro dans un autre fichier de rechercher la valeur de X dans le tableau puis de copier les 10 valeurs de Y correspondantes puis de les coller dans l'emplacement dédié avec un code de type:
......
valcellule = Wbk1.Worksheets("Scénarios").Cells(i, 12).Value
Set Trouve = Plagerecherche.Cells.Find(what:=valcellule, lookat:=xlWhole)
Adressfind = Trouve.Address
RESULTAT = Range("Adressfind").Offset(0,1)
Wbk1.Worksheets("scénarios").Cells(j, 13).Value = Résultat
.....
par contre il n'aime pas le "RESULTAT = Range("Adressfind").Offset(0,1)".
avez vous des idées pour cette manipulation?
Cordialement
Je vous remercie d'avance pour votre aide.
Voici mon problème:
je dispose d'un fichier à 2 colonnes A et B,
- Dans la colonne A il y'a une valeur numérique puis 10 ligne vide.
- Dans la colonne B il y'a 10 valeurs correspondantes à la valeur numérique de A
Cela donne:
X -----------------------> Y1
(vide) -------------------> Y2
... 10 lignes vides ---------> ....
(vide)--------------------> Y10
j'essaie avec une macro dans un autre fichier de rechercher la valeur de X dans le tableau puis de copier les 10 valeurs de Y correspondantes puis de les coller dans l'emplacement dédié avec un code de type:
......
valcellule = Wbk1.Worksheets("Scénarios").Cells(i, 12).Value
Set Trouve = Plagerecherche.Cells.Find(what:=valcellule, lookat:=xlWhole)
Adressfind = Trouve.Address
RESULTAT = Range("Adressfind").Offset(0,1)
Wbk1.Worksheets("scénarios").Cells(j, 13).Value = Résultat
.....
par contre il n'aime pas le "RESULTAT = Range("Adressfind").Offset(0,1)".
avez vous des idées pour cette manipulation?
Cordialement
1 réponse
-
Bonjour,
Dim RngFinal As Range valcellule = Wbk1.Worksheets("Scénarios").Cells(i, 12).Value Set Trouve = Plagerecherche.Cells.Find(what:=valcellule, lookat:=xlWhole) Adressfind = Trouve.Address '*********** Voici la "formule magique : Offset + Resize : Set RngFinal = Trouve.Offset(0, 1).Resize(10, 1) RngFinal.Select
