Je ne trouve pas la solution a mon probleme, et pourtant bien d'ame
charitable mon aider.
Voici mon code: Le but de la manip est de copier Range(Cells(11, 5),
Cells(75, 6)). sur toutes les feuilles a l'execption de trois. Mais
avec ce code , il ne copie ces cellules que sur la feuille active.
Quelqu'un peut m'aider a completer mon code ?
Sub copie()
'
' Macro enregistr=E9e le 20/04/2006 par negobazar
Dim WS As Worksheet
Dim WSource As Workbook
Application.ScreenUpdating =3D False
dat =3D (Year(Date) - 2006) * 2
Set WSource =3D ActiveWorkbook
If dat <> 0 Then
For Each WS In WSource.Worksheets
If WS.Name <> "recap*" And _
WS.Name <> "convoc*" And _
WS.Name <> "salon*" And _
WS.Name <> "acceu*" Then
Range(Cells(11, 5), Cells(75, 6)).Copy
Cells(11, 5 + dat).PasteSpecial
With Selection
.EntireColumn.AutoFit
End With
Cells(11, 5 + dat).Value =3D (Year(Date))
End If
Next
Else: Exit Sub
End If
Application.ScreenUpdating =3D True
OK MERCI A TOUS , ct juste une question de majusucule visiblement!!! ;:-)
jps
bonjour cathy je pense qu'il te faut "activate" les feuilles dans lesquelles tu veux "paster" et ce, en rajoutant une ligne après le "copy" car comme tu as écris, ce pauvre bougre d'excel comprend qu'il doit coller dans la feuille active jps
"S3com" a écrit dans le message de news:
Bonjour a tous,
Je ne trouve pas la solution a mon probleme, et pourtant bien d'ame charitable mon aider. Voici mon code: Le but de la manip est de copier Range(Cells(11, 5), Cells(75, 6)). sur toutes les feuilles a l'execption de trois. Mais avec ce code , il ne copie ces cellules que sur la feuille active.
Quelqu'un peut m'aider a completer mon code ?
Sub copie() ' ' Macro enregistrée le 20/04/2006 par negobazar Dim WS As Worksheet Dim WSource As Workbook
Application.ScreenUpdating = False dat = (Year(Date) - 2006) * 2 Set WSource = ActiveWorkbook
If dat <> 0 Then For Each WS In WSource.Worksheets If WS.Name <> "recap*" And _ WS.Name <> "convoc*" And _ WS.Name <> "salon*" And _ WS.Name <> "acceu*" Then
Range(Cells(11, 5), Cells(75, 6)).Copy Cells(11, 5 + dat).PasteSpecial With Selection .EntireColumn.AutoFit End With Cells(11, 5 + dat).Value = (Year(Date)) End If Next Else: Exit Sub End If Application.ScreenUpdating = True
End Sub
bonjour cathy
je pense qu'il te faut "activate" les feuilles dans lesquelles tu veux
"paster" et ce, en rajoutant une ligne après le "copy" car comme tu as
écris, ce pauvre bougre d'excel comprend qu'il doit coller dans la feuille
active
jps
"S3com" <cathy.atienza@scaso.fr> a écrit dans le message de news:
1145605310.134236.320090@j33g2000cwa.googlegroups.com...
Bonjour a tous,
Je ne trouve pas la solution a mon probleme, et pourtant bien d'ame
charitable mon aider.
Voici mon code: Le but de la manip est de copier Range(Cells(11, 5),
Cells(75, 6)). sur toutes les feuilles a l'execption de trois. Mais
avec ce code , il ne copie ces cellules que sur la feuille active.
Quelqu'un peut m'aider a completer mon code ?
Sub copie()
'
' Macro enregistrée le 20/04/2006 par negobazar
Dim WS As Worksheet
Dim WSource As Workbook
Application.ScreenUpdating = False
dat = (Year(Date) - 2006) * 2
Set WSource = ActiveWorkbook
If dat <> 0 Then
For Each WS In WSource.Worksheets
If WS.Name <> "recap*" And _
WS.Name <> "convoc*" And _
WS.Name <> "salon*" And _
WS.Name <> "acceu*" Then
Range(Cells(11, 5), Cells(75, 6)).Copy
Cells(11, 5 + dat).PasteSpecial
With Selection
.EntireColumn.AutoFit
End With
Cells(11, 5 + dat).Value = (Year(Date))
End If
Next
Else: Exit Sub
End If
Application.ScreenUpdating = True
bonjour cathy je pense qu'il te faut "activate" les feuilles dans lesquelles tu veux "paster" et ce, en rajoutant une ligne après le "copy" car comme tu as écris, ce pauvre bougre d'excel comprend qu'il doit coller dans la feuille active jps
"S3com" a écrit dans le message de news:
Bonjour a tous,
Je ne trouve pas la solution a mon probleme, et pourtant bien d'ame charitable mon aider. Voici mon code: Le but de la manip est de copier Range(Cells(11, 5), Cells(75, 6)). sur toutes les feuilles a l'execption de trois. Mais avec ce code , il ne copie ces cellules que sur la feuille active.
Quelqu'un peut m'aider a completer mon code ?
Sub copie() ' ' Macro enregistrée le 20/04/2006 par negobazar Dim WS As Worksheet Dim WSource As Workbook
Application.ScreenUpdating = False dat = (Year(Date) - 2006) * 2 Set WSource = ActiveWorkbook
If dat <> 0 Then For Each WS In WSource.Worksheets If WS.Name <> "recap*" And _ WS.Name <> "convoc*" And _ WS.Name <> "salon*" And _ WS.Name <> "acceu*" Then
Range(Cells(11, 5), Cells(75, 6)).Copy Cells(11, 5 + dat).PasteSpecial With Selection .EntireColumn.AutoFit End With Cells(11, 5 + dat).Value = (Year(Date)) End If Next Else: Exit Sub End If Application.ScreenUpdating = True
