Transférer des données d'un tableau à un autre d'une autre feuille
Bonjour Tout le monde,
Je suis débutante en VBA et j'ai besoin d'aide de votre part pour un transfert de données d'une colonne C (feuille 1), vers la colonne J (de ma feuille de calcul 2).
Dans la feuille 1 j'ai :
Des prénoms de personnes rangés par ordre alphabétique dans la colonne A
Leurs Noms (s'ils y'en a )dans la colonne C.
et une colonne B qui indique s'ils ont des noms ou pas.
Dans ma feuille 2 j'ai:
leurs prénoms en désordre dans la colonne H,
leurs ages dans la colonne I,
Et la colonne J (Noms) qui est vide.
JE VOUDRAIS TRANSFERER LES NOMS DE LA COLONNE C (FEUIL1) à La COLONNE J de la (feuil2) en respectant ceci:
chacun doit avoir le nom qu'il avait, s'il n'avait pas de nom aussi on met rien comme avant.
Je vous remercie par avance de votre aide.
Bonjour
Pourquoi pas tout simplement une formule avec RECHERCHEV ?
Bonjour ,
Au fait C'est pour mieux me familiariser avec les macros.
Merci pour votre réponse
RE
Dans un tel cal on calculera la formule dans VBA (Application.WorksheetFunction) car cela reste plus rapide que des boucle ou des find
Une des 1ères choses à apprendre en VBA c'est à ne pas réinventer la roue
J'aimerai bien utiliser des calculs , mais mon employeur me demande d'utiliser des macros pour que ça soit de façon automatique ( et mieux si le tableau a plusieurs lignes ).
Je suis nouvelle apprentie et je ne suis pas très forte en vba , faudra que j'apprenne.
Bonjour Henri,
Ta proposition Marche très bien ,
Merci beaucoup à toi.
Merci bcp aussi à 78Chris.
De rien.
Henri
RE
J'aimerai bien utiliser des calculs , mais mon employeur me demande d'utiliser des macros ...
Ce pourquoi j'ai proposé de faire le calcul dans VBA
Par ailleurs avec 2016, il est plus que conseillé d'utiliser des tableau structurés
Une fois une formule saisie sur la première ligne, toute nouvelle ligne en hérite automatiquement et même en VBA la gestion est bien plus souple
Avec des tableaux structurés nommés Tableau1 et T_Résultat ce code suffit
Sub test()
Dim cellule As Range
Application.ScreenUpdating = False
For Each cellule In [T_résultat].ListObject.ListColumns("Nom").DataBodyRange.Cells
cellule = Application.WorksheetFunction.VLookup(cellule.Offset(0, -2).Value, [Tableau1].ListObject.DataBodyRange, 3, 0)
Next
End Sub