Bjr,
J'ai un petit souci ou je prends la tete depuis ce matin.
Dans une feuille j'ai generer des sous-totaux. Pour=20
chaque ligne de sous-total je souhaite fair du=20
copier/coller des champs E1:G17 (3 colonnes) en H1 puis K1=20
puis N1 etc ...A chaque rupture je dois avancer de 3=20
colonnes. Mon script est ci-dessous, la procedure Charg=20
rempli correctement les cellules. Quand je suis=20
l'execution, la selection de E1:G17 se fait bien mais la=20
copie !!! myst=E8re. les colonnes e & f sont des don=E9es qui=20
sont charg=E9es, la colonne G contient des formaules de=20
calculs.
Merci pour votre aide si pr=E9cieuse (je vais craqueeeerrrr)
......................................................
Wnag =3D 5
With Ws
Do Until Left(.Cells(Wi, 1), 5) =3D "Total"
If Left(.Cells(Wi, 2), 5) =3D "Somme" Then
WNAg =3D WNAg + 3
Workbooks("doc17.xls").Sheets("Agences").Range
("E1:G17").SelectWorkbooks("doc17.xls").Sheets
("Agences").Selection.Copy
Workbooks("doc17.xls").Sheets("Agences").Cells(1,=20
WNAg).Activate
Workbooks("doc17.xls").Sheets
("Agences").ActiveSheet.Paste
WLen =3D Len(.Cells(Wi, 2))
WlAg =3D Right(.Cells(Wi, 2), WLen - 6)
Workbooks("doc17.xls").Sheets("Agences").Cells(1,=20
WNAg) =3D WlAg
=20
Wr =3D WNAg
WSi =3D Wi
Charg
End If
Wi =3D Wi + 1
Loop
End With
Wr = WNAg WSi = Wi Charg End If Wi = Wi + 1 Loop End With -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Mireille qui craque" a écrit dans le message de news:0cb801c393dd$f416b450$ Bjr, J'ai un petit souci ou je prends la tete depuis ce matin. Dans une feuille j'ai generer des sous-totaux. Pour chaque ligne de sous-total je souhaite fair du copier/coller des champs E1:G17 (3 colonnes) en H1 puis K1 puis N1 etc ...A chaque rupture je dois avancer de 3 colonnes. Mon script est ci-dessous, la procedure Charg rempli correctement les cellules. Quand je suis l'execution, la selection de E1:G17 se fait bien mais la copie !!! mystère. les colonnes e & f sont des donées qui sont chargées, la colonne G contient des formaules de calculs.
Merci pour votre aide si précieuse (je vais craqueeeerrrr) ...................................................... Wnag = 5 With Ws Do Until Left(.Cells(Wi, 1), 5) = "Total" If Left(.Cells(Wi, 2), 5) = "Somme" Then WNAg = WNAg + 3 Workbooks("doc17.xls").Sheets("Agences").Range ("E1:G17").SelectWorkbooks("doc17.xls").Sheets ("Agences").Selection.Copy Workbooks("doc17.xls").Sheets("Agences").Cells(1, WNAg).Activate Workbooks("doc17.xls").Sheets ("Agences").ActiveSheet.Paste WLen = Len(.Cells(Wi, 2)) WlAg = Right(.Cells(Wi, 2), WLen - 6) Workbooks("doc17.xls").Sheets("Agences").Cells(1, WNAg) = WlAg
Wr = WNAg WSi = Wi Charg End If Wi = Wi + 1 Loop End With
Bonsoir Mireille,
Si tu copies des formules, le souci vient peut être de là ; essaye avec un collage spécial valeurs, en
remplaçant paste par :
Wr = WNAg
WSi = Wi
Charg
End If
Wi = Wi + 1
Loop
End With
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Mireille qui craque" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0cb801c393dd$f416b450$a401280a@phx.gbl...
Bjr,
J'ai un petit souci ou je prends la tete depuis ce matin.
Dans une feuille j'ai generer des sous-totaux. Pour
chaque ligne de sous-total je souhaite fair du
copier/coller des champs E1:G17 (3 colonnes) en H1 puis K1
puis N1 etc ...A chaque rupture je dois avancer de 3
colonnes. Mon script est ci-dessous, la procedure Charg
rempli correctement les cellules. Quand je suis
l'execution, la selection de E1:G17 se fait bien mais la
copie !!! mystère. les colonnes e & f sont des donées qui
sont chargées, la colonne G contient des formaules de
calculs.
Merci pour votre aide si précieuse (je vais craqueeeerrrr)
......................................................
Wnag = 5
With Ws
Do Until Left(.Cells(Wi, 1), 5) = "Total"
If Left(.Cells(Wi, 2), 5) = "Somme" Then
WNAg = WNAg + 3
Workbooks("doc17.xls").Sheets("Agences").Range
("E1:G17").SelectWorkbooks("doc17.xls").Sheets
("Agences").Selection.Copy
Workbooks("doc17.xls").Sheets("Agences").Cells(1,
WNAg).Activate
Workbooks("doc17.xls").Sheets
("Agences").ActiveSheet.Paste
WLen = Len(.Cells(Wi, 2))
WlAg = Right(.Cells(Wi, 2), WLen - 6)
Workbooks("doc17.xls").Sheets("Agences").Cells(1,
WNAg) = WlAg
Wr = WNAg
WSi = Wi
Charg
End If
Wi = Wi + 1
Loop
End With
Wr = WNAg WSi = Wi Charg End If Wi = Wi + 1 Loop End With -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Mireille qui craque" a écrit dans le message de news:0cb801c393dd$f416b450$ Bjr, J'ai un petit souci ou je prends la tete depuis ce matin. Dans une feuille j'ai generer des sous-totaux. Pour chaque ligne de sous-total je souhaite fair du copier/coller des champs E1:G17 (3 colonnes) en H1 puis K1 puis N1 etc ...A chaque rupture je dois avancer de 3 colonnes. Mon script est ci-dessous, la procedure Charg rempli correctement les cellules. Quand je suis l'execution, la selection de E1:G17 se fait bien mais la copie !!! mystère. les colonnes e & f sont des donées qui sont chargées, la colonne G contient des formaules de calculs.
Merci pour votre aide si précieuse (je vais craqueeeerrrr) ...................................................... Wnag = 5 With Ws Do Until Left(.Cells(Wi, 1), 5) = "Total" If Left(.Cells(Wi, 2), 5) = "Somme" Then WNAg = WNAg + 3 Workbooks("doc17.xls").Sheets("Agences").Range ("E1:G17").SelectWorkbooks("doc17.xls").Sheets ("Agences").Selection.Copy Workbooks("doc17.xls").Sheets("Agences").Cells(1, WNAg).Activate Workbooks("doc17.xls").Sheets ("Agences").ActiveSheet.Paste WLen = Len(.Cells(Wi, 2)) WlAg = Right(.Cells(Wi, 2), WLen - 6) Workbooks("doc17.xls").Sheets("Agences").Cells(1, WNAg) = WlAg
Wr = WNAg WSi = Wi Charg End If Wi = Wi + 1 Loop End With