XL 2019 Rechercher une valeur sur une ligne et extraire les données correspondantes

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Janvier 2020

• #2

Tout d'abord Bonsoir BChaly,
Un exemple en PJ utilisant index equiv.

 

Pièces jointes

• Extraire.xlsm

  18.5 KB · Affichages: 10

Vote positif 0 Vote négatif

B

BChaly

XLDnaute Occasionnel

• 28 Janvier 2020

• #3

Bonsoir sylvanu,

Merci pour cette suggestion.

Le résultat est bien, mais je préférerais un code VBA en raison de la multitude de colonnes/lignes que j'aurai à remplir.

 

Vote positif 0 Vote négatif

X

xuard

XLDnaute Nouveau

• 28 Janvier 2020

• #4

Bonsoir BChaly, bonsoir le forum.
Chez moi ça fonctionne à 2 conditions :
* Ajouter les guillemets autour de D8

VB:

                sh.Range("D8").PasteSpecial (xlPasteAll)

* supprimer toutes les cellules fusionnées.

 

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Janvier 2020

• #5

Bonsoir tout le monde,
Un exemple en VBA à adapter au besoin. Il est très simple à modifier.

 

Pièces jointes

• Extraire (2).xlsm

  21.1 KB · Affichages: 12

Vote positif 0 Vote négatif

B

BChaly

XLDnaute Occasionnel

• 29 Janvier 2020

• #6

Bonsoir sylvanu,

Cette nouvelle suggestion ne semble pas parfaite, car le code ne fonctionne pas toujours.

Cependant, Merci pour cet exemple!


Bonsoir xuard,

La solution se situait bien dans les guillemets autour de "D8" et la suppression des cellules fusionnées.

Merci pour cette aide précieuse!

Bonne soirée à tous.

Cordialement,

BChaly

 

Vote positif 0 Vote négatif