bonjour =E0 tous,
J'ai plusieurs classeurs avec un nombre diff=E9rent de=20
feuilles (toutes nomm=E9es).chaque feuille comporte des=20
donn=E9es rang=E9es de B1 =E0 B.... Je voudrai r=E9cup=E9rer les=20
donn=E9es de chaque feuille de B1 =E0 DP1 pour la feuil1, de=20
B2 =E0 DP2 pour la feuil 2 et ainsi de suite jusqu' =E0 la=20
derni=E8re feuille du classeur.
La proc=E9dure =E9crite fonctionne bien avec le nom de=20
chaque feuille peut on automatiser pour l'ensemble des=20
feuilles du classeur ( du style for each feuilles dans le=20
classeur machin)
Sheets("RECAP").Range("A2").Activate
j =3D 2
l =3D 2
For i =3D 2 To 120
Sheets("RECAP").Cells(j, i).Value =3D Sheets("PFDR31").Range
("B" & CStr(i)).Value
ActiveCell.Offset(0, 1).Select
Next i
merci et bonne journ=E9e pour ceux qui se pencheront sur=20
mon probl=E8me.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JS
Salut, Pour travailler avec les feuilles d'un classeur :
dim wfeuilleencours as integer For wFeuilleEnCours = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(wFeuilleEnCours).Activate next wfeuilleencours Cela te permet de passer de la première à la dernière feuille du classeur. A toi de l'intégrer à ta macro
-----Message d'origine----- bonjour à tous, J'ai plusieurs classeurs avec un nombre différent de feuilles (toutes nommées).chaque feuille comporte des données rangées de B1 à B.... Je voudrai récupérer les données de chaque feuille de B1 à DP1 pour la feuil1, de B2 à DP2 pour la feuil 2 et ainsi de suite jusqu' à la dernière feuille du classeur. La procédure écrite fonctionne bien avec le nom de chaque feuille peut on automatiser pour l'ensemble des feuilles du classeur ( du style for each feuilles dans le classeur machin)
Sheets("RECAP").Range("A2").Activate j = 2 l = 2 For i = 2 To 120 Sheets("RECAP").Cells(j, i).Value = Sheets("PFDR31").Range ("B" & CStr(i)).Value ActiveCell.Offset(0, 1).Select Next i
merci et bonne journée pour ceux qui se pencheront sur mon problème. .
Salut,
Pour travailler avec les feuilles d'un classeur :
dim wfeuilleencours as integer
For wFeuilleEnCours = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(wFeuilleEnCours).Activate
next wfeuilleencours
Cela te permet de passer de la première à la dernière
feuille du classeur.
A toi de l'intégrer à ta macro
-----Message d'origine-----
bonjour à tous,
J'ai plusieurs classeurs avec un nombre différent de
feuilles (toutes nommées).chaque feuille comporte des
données rangées de B1 à B.... Je voudrai récupérer les
données de chaque feuille de B1 à DP1 pour la feuil1, de
B2 à DP2 pour la feuil 2 et ainsi de suite jusqu' à la
dernière feuille du classeur.
La procédure écrite fonctionne bien avec le nom de
chaque feuille peut on automatiser pour l'ensemble des
feuilles du classeur ( du style for each feuilles dans le
classeur machin)
Sheets("RECAP").Range("A2").Activate
j = 2
l = 2
For i = 2 To 120
Sheets("RECAP").Cells(j, i).Value = Sheets("PFDR31").Range
("B" & CStr(i)).Value
ActiveCell.Offset(0, 1).Select
Next i
merci et bonne journée pour ceux qui se pencheront sur
mon problème.
.
Salut, Pour travailler avec les feuilles d'un classeur :
dim wfeuilleencours as integer For wFeuilleEnCours = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(wFeuilleEnCours).Activate next wfeuilleencours Cela te permet de passer de la première à la dernière feuille du classeur. A toi de l'intégrer à ta macro
-----Message d'origine----- bonjour à tous, J'ai plusieurs classeurs avec un nombre différent de feuilles (toutes nommées).chaque feuille comporte des données rangées de B1 à B.... Je voudrai récupérer les données de chaque feuille de B1 à DP1 pour la feuil1, de B2 à DP2 pour la feuil 2 et ainsi de suite jusqu' à la dernière feuille du classeur. La procédure écrite fonctionne bien avec le nom de chaque feuille peut on automatiser pour l'ensemble des feuilles du classeur ( du style for each feuilles dans le classeur machin)
Sheets("RECAP").Range("A2").Activate j = 2 l = 2 For i = 2 To 120 Sheets("RECAP").Cells(j, i).Value = Sheets("PFDR31").Range ("B" & CStr(i)).Value ActiveCell.Offset(0, 1).Select Next i
merci et bonne journée pour ceux qui se pencheront sur mon problème. .
