Selectionner une plage à coté du résultat d'un find VBA

Résolu/Fermé
Kratoska - Modifié par Kratoska le 4/03/2016 à 15:27
 Kratoska - 4 mars 2016 à 15:39
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


1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
4 mars 2016 à 15:32
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

0
Grand grand grand merci pijaku !!!
ça fait 2 heures que je bugg dessus :)

ça marche nikel !!
0