XL 2010 Copier le texte de plusieurs cellules sur une autre feuille avec critère

frelon444 · 27 Décembre 2016

Bonjour,

Quelqu'un pourrait-il me donner une piste pour faire une macro qui permettrait de recopier le texte de 3 cellules d'une même ligne à partir d'une feuille B vers une autre feuille A, sachant que pour recopier les cellules dans la bonne ligne sur la feuille A, il existe un critère basé sur un identifiant unique?

Formulé comme ça, ça parait compliqué alors j'ai joint le fichier pour plus de clarté.

L'idée serait donc d'affecter une macro au bouton "Enregistrer l'overspeed" qui se trouve dans la feuille "Saisir un overspeed".

La macro en elle-même permettrait de recopier les cellules E5, F5 et G5 de la feuille "Saisir un overspeed" dans les colonnes H, I et J. de la feuille "liste des machines" et ce au bon endroit en s'aidant du critère qui se trouve en cellule 'Saisir un overspeed'!D5 (numéro de série de la machine).

La macro doit donc être capable, en plus de coller les cellules copiées dans les bonnes colonnes, de retrouver la ligne dans la feuille 'liste des machines' ou le Ser.-Nr. (col. D) correspond au critère de référence.

Je ne suis pas certain que cette demande soit bien claire ? et si oui, est-ce que Excel permet cela?

Merci d'avance pour vos réponses,

Calvus · 27 Décembre 2016

Bonsoir et bienvenue,

Regarde si cela te convient.

VB:

Sub Coller()
Dim plage As Range
Dim cel As String, dest As Range

cel = Feuil2.[D5]
Set plage = Feuil4.Columns(4)
Set dest = plage.Find(cel)

dest.Offset(, 4) = [E5]
dest.Offset(, 5) = [F5]
dest.Offset(, 6) = [G5]
End Sub

A+

frelon444 · 28 Décembre 2016

Ca répond tout à fait au besoin ! un grand merci pour cette réponse rapide et très efficace =)

XL 2010 Copier le texte de plusieurs cellules sur une autre feuille avec critère

frelon444

XLDnaute Nouveau

Pièces jointes

Calvus

XLDnaute Barbatruc

Pièces jointes

frelon444

XLDnaute Nouveau

Discussions similaires