M
Marion
Guest
Bonjour au forum.
je souffre mais j'essai de comprendre sau le code que j'ai transformé suivant vos conseil.
je voudrais que ce code s'active a l'ouverture de la feuille, mais la il met un temps pas possible.
une autre question est-ce le bon code (je les bidoullé)
avec un bouton il marche bien.
pouvez-vous m'aider
A+Marion
Private Sub Worksheet_Activate()
Dim nbMatieres As Integer, cpt1 As Integer
Application.ScreenUpdating = False
Sheets('planning').Select
nbMatieres = Range('IV84').End(xlToLeft).Column
Sheets('besion en matiere').Select
Range('a4:c47').ClearContents
Sheets('planning').Select
For cpt1 = 38 To nbMatieres
If Cells(84, cpt1) > 0 Then
Cells(84, cpt1).Copy
Sheets('besion en matiere').Select
Range('c65536').End(xlUp)(2).PasteSpecial Paste:=xlValues
Sheets('planning').Select
Cells(3, cpt1).Copy
Sheets('besion en matiere').Select
Range('b65536').End(xlUp)(2).PasteSpecial Paste:=xlValues
Sheets('planning').Select
Cells(2, cpt1).Copy
Sheets('besion en matiere').Select
Range('a65536').End(xlUp)(2).PasteSpecial Paste:=xlValues
Sheets('planning').Select
End If
Next cpt1
Application.CutCopyMode = False
'Application.ScreenUpdating = True
Sheets('besion en matiere').Select
'Range('a1').Select
end Sub
je souffre mais j'essai de comprendre sau le code que j'ai transformé suivant vos conseil.
je voudrais que ce code s'active a l'ouverture de la feuille, mais la il met un temps pas possible.
une autre question est-ce le bon code (je les bidoullé)
avec un bouton il marche bien.
pouvez-vous m'aider
A+Marion
Private Sub Worksheet_Activate()
Dim nbMatieres As Integer, cpt1 As Integer
Application.ScreenUpdating = False
Sheets('planning').Select
nbMatieres = Range('IV84').End(xlToLeft).Column
Sheets('besion en matiere').Select
Range('a4:c47').ClearContents
Sheets('planning').Select
For cpt1 = 38 To nbMatieres
If Cells(84, cpt1) > 0 Then
Cells(84, cpt1).Copy
Sheets('besion en matiere').Select
Range('c65536').End(xlUp)(2).PasteSpecial Paste:=xlValues
Sheets('planning').Select
Cells(3, cpt1).Copy
Sheets('besion en matiere').Select
Range('b65536').End(xlUp)(2).PasteSpecial Paste:=xlValues
Sheets('planning').Select
Cells(2, cpt1).Copy
Sheets('besion en matiere').Select
Range('a65536').End(xlUp)(2).PasteSpecial Paste:=xlValues
Sheets('planning').Select
End If
Next cpt1
Application.CutCopyMode = False
'Application.ScreenUpdating = True
Sheets('besion en matiere').Select
'Range('a1').Select
end Sub