Optimiser code, importer données d'un tableau structuré

Bonjour,

Existe t-il une manière d'optimiser le code dans le fichier joint ? Cela représente une dizaine de ligne de code pour une dizaine de cellule, mais si il y a plus de 200 cellules...

J'avais pensé à une macro qui se comporte de la façon suivante :

Définir une plage "Data_Formulaire" qui comprend mes cellules F2, F4....Cellule "xy" ;

Définir pour chaque cellule un ordre ; exemple F2 = 1 ; F4 = 2 ; Cellule "xy" = n ; de sorte à avoir ma cellule 1 = à ma colonne 1 ; ma cellule 2 = à ma colonne 2, etc...

Et à partir de là, utiliser une boucle.

Cependant, je ne sais pas comment m'y prendre, auriez-vous une idée ?

Merci,

Bonjour,

un petit code à vérifier :

'Données Titres
cpt = 1
For Each cel In Range("Transfert")
    cel.Value = BDD.Cells(NLine_ed, cpt)
    cpt = cpt + 1
Next

'Formulaire.Range("F2") = BDD.Cells(NLine_ed, 1) 'Titre 1
'Formulaire.Range("F4") = BDD.Cells(NLine_ed, 2) 'Titre 2
'Formulaire.Range("F6") = BDD.Cells(NLine_ed, 3) 'Titre 3
'Formulaire.Range("F8") = BDD.Cells(NLine_ed, 4) 'Titre 4
'Formulaire.Range("F10") = BDD.Cells(NLine_ed, 5) 'Titre 5

C'est une boucle for Each dans la collection range("Transfert"). transfert est une plage nommée conçue de la manière suivante :
Sélection de la cellule F2 (première donnée à inscrire) puis appuis sur la touche CTRL, puis sélection de la cellule F4, F6... bref vous l'aurez compris, selection des cellules devant recevoir les données dans l'ordre où ces données vont être récupérées...

Le fichier modifié :

@ bientôt

LouReeD

Bonjour LouReeD,

Cela fonctionne effectivement !

Merci !!

Ravise que cela vous convienne !

@ bientôt

LouReeD