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
A voir également:
- Selectionner une plage à coté du résultat d'un find VBA
- Resultat foot - Télécharger - Vie quotidienne
- Find and mount - Télécharger - Récupération de données
- Dans le document à télécharger, placez les 2 images côte à côte et donnez-leur la même hauteur. marie a gagné un lot à l’un des trois tirages. qu’a-t-elle gagné ? ✓ - Forum Word
- Selectionner du texte sur un pdf - Guide
- Pourquoi mon casque bluetooth ne marche que d'un coté ✓ - Forum Casque et écouteurs
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
ça fait 2 heures que je bugg dessus :)
ça marche nikel !!