Discussion :

[Kvagne]

Bonjour,

J'ai besoin de créer une macro et je recontre un obstacle...

Sur la feuille1, j'ai une série de données : 10 colonnes et un nombre de ligne non défini.
Sur la feuille2, j'ai un formulaire de 10 cases à remplir avec les 10 données des colonnes de la feuille1.

Mon but est de remplir le formulaire de la feuille 2, et de l'imprimer, pour chaque ligne de la feuille1.
J'arrive à créer la marco pour une ligne, est il possible de faire une macro globale pour toute les lignes?

D'avance merci pour vos réponse et pour votre aide!

Pour l'instant, la seule solution que j'ai trouvé est de terminer la macro par la suppression de la ligne qui m'a servie à remplir le formulaire.
Ma macro me permet donc de remplir le formulaire, de l'imprimer, et de supprimer la ligne que j'ai utilisé.
Si j'ai 20 lignes, appuyer 20 fois sur mon raccourci répond à ma demande ... le problème est que je peux avoir beaucoup, beaucoup, beaucoup plus que 20 lignes!
Existe il une solution pour automatiser l'ensemble?

[patricktoulon]

bonjour

si j'ai bien compris ce que tu demande tu a:

une feuille("feuil1") avec 10 colonnes et X lignes

tu veux retranscrire chaque celulle d'une meme ligne dans un tableau sur la feuille 2

si c'est ca rien de plus facile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
sub faire_les_tableaux()
dim ligne as long
ligne = Sheets("feuil1").Range("A65536").End(xlUp).Row'en considerent que la premiere colonne que tu utilise est la "A" biensur
for i =1 to ligne
for e=1 to 10
 sheets(feuil2").cells(i,e).value=sheets("feuil1").cells(i,e).value
next 
next
end sub

il te rest maintenant a adapter le " i " et le "e" pour que ca coresponde a tes cellule