Simplification de Code

Le
cyr1373
Bonjour,
encore besoin de vous.

j'ai essayer de le faire seul mais je me confronte
toujour à erreur 1004 ou range impossible

voici le code

'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! "au Format Avril
2009"")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "" & nomClasseurSauv
Attente (500)
Sheets("Planning").Select
ActiveSheet.Unprotect
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Range ("C25:AW66").Select
Selection.Copy
Sheets("Planning").Select
[C25].Select
ActiveSheet.Paste
Sheets("Planning 2").Select
ActiveSheet.Unprotect
Selection.AutoFilter
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range ("C25:BC66")
Selection.Copy
Sheets("Planning 2").Select
Range("C25").Select
ActiveSheet.Paste
Sheets("Planning 2").Select
Range("BD24:BE24").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True, Scenarios:=True
Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
cyr1373
Le #18990111
Oups j'ai oublié..

merci
Jacky
Le #18990581
Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------

--
Salutations
JJ


"cyr1373" news:
Bonjour,
encore besoin de vous.

j'ai essayer de le faire seul mais je me confronte
toujour à erreur 1004 ou range impossible

voici le code

'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! "au Format Avril
2009"")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "" & nomClasseurSauv
Attente (500)
Sheets("Planning").Select
ActiveSheet.Unprotect
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Range ("C25:AW66").Select
Selection.Copy
Sheets("Planning").Select
[C25].Select
ActiveSheet.Paste
Sheets("Planning 2").Select
ActiveSheet.Unprotect
Selection.AutoFilter
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range ("C25:BC66")
Selection.Copy
Sheets("Planning 2").Select
Range("C25").Select
ActiveSheet.Paste
Sheets("Planning 2").Select
Range("BD24:BE24").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False


Jacky
Le #18990561
Re..
Il manque un point devant
[AV90]
.[AV89].Value = [AV90]




--
Salutations
JJ


"Jacky"
Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------

--
Salutations
JJ


"cyr1373" news:
Bonjour,
encore besoin de vous.

j'ai essayer de le faire seul mais je me confronte
toujour à erreur 1004 ou range impossible

voici le code

'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! "au Format
Avril
2009"")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & "" & nomClasseurSauv
Attente (500)
Sheets("Planning").Select
ActiveSheet.Unprotect
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil1").Visible = True
Sheets("Feuil1").Select
Range ("C25:AW66").Select
Selection.Copy
Sheets("Planning").Select
[C25].Select
ActiveSheet.Paste
Sheets("Planning 2").Select
ActiveSheet.Unprotect
Selection.AutoFilter
[C89].Value = [C90]
[F89].Value = [F90]
[I89].Value = [I90]
[L89].Value = [L90]
[O89].Value = [O90]
[R89].Value = [R90]
[U89].Value = [U90]
[X89].Value = [X90]
[AA89].Value = [AA90]
[AD89].Value = [AD90]
[AG89].Value = [AG90]
[AJ89].Value = [AJ90]
[AM89].Value = [AM90]
[AP89].Value = [AP90]
[AS89].Value = [AS90]
[AV89].Value = [AV90]
[C137].Value = [C138]
[F137].Value = [F138]
[I137].Value = [I138]
[L137].Value = [L138]
[O137].Value = [O138]
[R137].Value = [R138]
[U137].Value = [U138]
[X137].Value = [X138]
[AA137].Value = [AA138]
[AD137].Value = [AD138]
[AG137].Value = [AG138]
[AJ137].Value = [AJ138]
[AM137].Value = [AM138]
[AP137].Value = [AP138]
[AS137].Value = [AS138]
[AV137].Value = [AV138]
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range ("C25:BC66")
Selection.Copy
Sheets("Planning 2").Select
Range("C25").Select
ActiveSheet.Paste
Sheets("Planning 2").Select
Range("BD24:BE24").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False






LSteph
Le #18990541
Salut Jacky, ;-)
On pourrait raccourcir la litanie des cellules:

'....
Dim i As Byte
'....
With Sheets(nom)
.Unprotect
For i = 3 To 48 Step 3
.Cells(89, i) = .Cells(90, i)
.Cells(137, i) = .Cells(138, i)
Next
End With
'...


'Amicales Salutations
'lSteph

Jacky a écrit :
Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------



Jacky
Le #18990741
Salut Stéphane,

Je n'ai pas poussé jusque là, mes yeux ne suivent plus ;o)
Je pense qu'en nommant les plages se serait encore plus simple
Plage2=plage1
Même que je me demande si une copie de feuille......ne ferait pas l'affaire
Attendons la réaction du demandeur
--
Bonne nuit
JJ


"LSteph" %
Salut Jacky, ;-)
On pourrait raccourcir la litanie des cellules:

'....
Dim i As Byte
'....
With Sheets(nom)
.Unprotect
For i = 3 To 48 Step 3
.Cells(89, i) = .Cells(90, i)
.Cells(137, i) = .Cells(138, i)
Next
End With
'...


'Amicales Salutations
'lSteph

Jacky a écrit :
Bonsoir,
1er épuration (non tester)
'-----------
Sub test()
'Sauvegarde du Classeur
Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
2009")
ScreenUpdating = False
nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
répertoire = ("c:Planning de Présence")
If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
'Attente(500)
Call copie("planning")
Call copie("planning 2")
With Sheets("Planning 2")
.AutoFilterMode = False
.Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
End With
Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
Scenarios:=True
End Sub
'---------------------------------------------------
Sub copie(nom)
With Sheets(nom)
.Unprotect
.[C89].Value = .[C90]
.[F89].Value = .[F90]
.[I89].Value = .[I90]
.[L89].Value = .[L90]
.[O89].Value = .[O90]
.[R89].Value = .[R90]
.[U89].Value = .[U90]
.[X89].Value = .[X90]
.[AA89].Value = .[AA90]
.[AD89].Value = .[AD90]
.[AG89].Value = .[AG90]
.[AJ89].Value = .[AJ90]
.[AM89].Value = .[AM90]
.[AP89].Value = .[AP90]
.[AS89].Value = .[AS90]
.[AV89].Value = [AV90]
.[C137].Value = .[C138]
.[F137].Value = .[F138]
.[I137].Value = .[I138]
.[L137].Value = .[L138]
.[O137].Value = .[R138]
.[U137].Value = .[U138]
.[X137].Value = .[X138]
.[AA137].Value = .[AA138]
.[AD137].Value = .[AD138]
.[AG137].Value = .[AG138]
.[AJ137].Value = .[AJ138]
.[AM137].Value = .[AM138]
.[AP137].Value = .[AP138]
.[AS137].Value = .[AS138]
.[AV137].Value = .[AV138]
End With
End Sub
'------------------------





cyr1373
Le #18996861
Bonsoir et merci à vous deux,

je vais tester le code de jachy mais je pense que
le fait de nommer les deux plage et un idée lumineuse...
mais concernant la copie de feuille ce n'est pas possible
car le but et de replacer des formules sans toucher à la
mise en page et présentation du document initial.

Cordialement

cyril


"Jacky" a écrit :

Salut Stéphane,

Je n'ai pas poussé jusque là, mes yeux ne suivent plus ;o)
Je pense qu'en nommant les plages se serait encore plus simple
Plage2=plage1
Même que je me demande si une copie de feuille......ne ferait pas l'affaire
Attendons la réaction du demandeur
--
Bonne nuit
JJ


"LSteph" %
> Salut Jacky, ;-)
> On pourrait raccourcir la litanie des cellules:
>
> '....
> Dim i As Byte
> '....
> With Sheets(nom)
> .Unprotect
> For i = 3 To 48 Step 3
> .Cells(89, i) = .Cells(90, i)
> .Cells(137, i) = .Cells(138, i)
> Next
> End With
> '...
>
>
> 'Amicales Salutations
> 'lSteph
>
> Jacky a écrit :
>> Bonsoir,
>> 1er épuration (non tester)
>> '-----------
>> Sub test()
>> 'Sauvegarde du Classeur
>> Mois = InputBox("Entrez le Mois et l'Année du Pointage !! au Format Avril
>> 2009")
>> ScreenUpdating = False
>> nomClasseurSauv = "Planning de Présence " & Mois & ".xls"
>> répertoire = ("c:Planning de Présence")
>> If Dir(répertoire, vbDirectory) = "" Then MkDir répertoire
>> ActiveWorkbook.SaveCopyAs répertoire & nomClasseurSauv
>> 'Attente(500)
>> Call copie("planning")
>> Call copie("planning 2")
>> With Sheets("Planning 2")
>> .AutoFilterMode = False
>> .Range("BD24:BE24").AutoFilter Field:=2, Criteria1:="1"
>> End With
>> Sheets("Feuil1").Range("C25:AW66").Copy Sheets("Planning").[C25]
>> Sheets("Feuil2").Range("C25:BC66").Copy Sheets("Planning 2").[C25]
>> ActiveSheet.Protect DrawingObjects:úlse, Contents:=True,
>> Scenarios:=True
>> End Sub
>> '---------------------------------------------------
>> Sub copie(nom)
>> With Sheets(nom)
>> .Unprotect
>> .[C89].Value = .[C90]
>> .[F89].Value = .[F90]
>> .[I89].Value = .[I90]
>> .[L89].Value = .[L90]
>> .[O89].Value = .[O90]
>> .[R89].Value = .[R90]
>> .[U89].Value = .[U90]
>> .[X89].Value = .[X90]
>> .[AA89].Value = .[AA90]
>> .[AD89].Value = .[AD90]
>> .[AG89].Value = .[AG90]
>> .[AJ89].Value = .[AJ90]
>> .[AM89].Value = .[AM90]
>> .[AP89].Value = .[AP90]
>> .[AS89].Value = .[AS90]
>> .[AV89].Value = [AV90]
>> .[C137].Value = .[C138]
>> .[F137].Value = .[F138]
>> .[I137].Value = .[I138]
>> .[L137].Value = .[L138]
>> .[O137].Value = .[R138]
>> .[U137].Value = .[U138]
>> .[X137].Value = .[X138]
>> .[AA137].Value = .[AA138]
>> .[AD137].Value = .[AD138]
>> .[AG137].Value = .[AG138]
>> .[AJ137].Value = .[AJ138]
>> .[AM137].Value = .[AM138]
>> .[AP137].Value = .[AP138]
>> .[AS137].Value = .[AS138]
>> .[AV137].Value = .[AV138]
>> End With
>> End Sub
>> '------------------------
>>





Publicité
Poster une réponse
Anonyme