Bonjour le forum,
je sèche depuis presque deux heures sur un bug que je n'ai encore jamais vu.
Avec Excel 2016 sous Win seven je précise. Pas d'autre fichier Excel ouvert.
Pas trouvé d'aide en cherchant avec Google (l'erreur 1004 est assez répandue, je ne retrouve mon cas nulle part...)
Je déclenche cette macro par un raccourci clavier déjà paramétré dans ThisWorkbook, et qui a toujours marché.
L'erreur pointe sur activesheet.protect en fin de texte, et tout se passe bien quand je retire cette ligne (??!!??
)
1004 "Erreur définie par l'application ou par l'objet"
Je ne vois plus, pouvez-vous svp m'éclairer.
Voici le texte :
Sub CopieHPlanif()
'---- TOUCHE RACCOURCI F5 UNIQUEMENT, OU BOUTON BLEU EN Col 3 ----
'Maj générale de toute la ligne H planifiées, depuis les totaux des coches
'Remasque le détail des lignes planif
'ET replace le curseur sur la première ligne H travaillées à valider
'Secu hors feuille cible
If Cells(1, 1).Value <> "ENTREE" Then
MsgBox "Pas d'effet ici"
Exit Sub
End If
'DEPART
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect
'Maj ligne H planifiées
Range(Cells(47, 11), Cells(47, 376)).Select
Selection.Copy
Cells(13, 11).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Repositionnement 1ère col dispo
Dim j As Long
j = 11
If Cells(7, 6).Value = "" Then
While Cells(48, j).Value <> ""
j = j + 1
Wend 'on est sur le bon j
Else 'avec date entrée présente
For j = 11 To 376
If Cells(7, j).Value > Cells(7, 6).Value And Cells(48, j).Value = "" Then
Exit For
End If
Next j
'on est sur le bon j
End If
'Remasquage détail h planifiées
Range(Rows(14), Rows(47)).EntireRow.Hidden = True
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Protect
Cells(48, j + 40).Select 'pour sortir de l'écran afin que la selec suiv soit centrée horiz
Cells(48, j).Select 'désormais par ENTREE sur Cells(48, 1)
'MsgBox "Heures planifiées à jour"
End Sub
-------------
Bonne journée !
CC.
je sèche depuis presque deux heures sur un bug que je n'ai encore jamais vu.
Avec Excel 2016 sous Win seven je précise. Pas d'autre fichier Excel ouvert.
Pas trouvé d'aide en cherchant avec Google (l'erreur 1004 est assez répandue, je ne retrouve mon cas nulle part...)
Je déclenche cette macro par un raccourci clavier déjà paramétré dans ThisWorkbook, et qui a toujours marché.
L'erreur pointe sur activesheet.protect en fin de texte, et tout se passe bien quand je retire cette ligne (??!!??
)1004 "Erreur définie par l'application ou par l'objet"
Je ne vois plus, pouvez-vous svp m'éclairer.
Voici le texte :
Sub CopieHPlanif()
'---- TOUCHE RACCOURCI F5 UNIQUEMENT, OU BOUTON BLEU EN Col 3 ----
'Maj générale de toute la ligne H planifiées, depuis les totaux des coches
'Remasque le détail des lignes planif
'ET replace le curseur sur la première ligne H travaillées à valider
'Secu hors feuille cible
If Cells(1, 1).Value <> "ENTREE" Then
MsgBox "Pas d'effet ici"
Exit Sub
End If
'DEPART
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect
'Maj ligne H planifiées
Range(Cells(47, 11), Cells(47, 376)).Select
Selection.Copy
Cells(13, 11).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Repositionnement 1ère col dispo
Dim j As Long
j = 11
If Cells(7, 6).Value = "" Then
While Cells(48, j).Value <> ""
j = j + 1
Wend 'on est sur le bon j
Else 'avec date entrée présente
For j = 11 To 376
If Cells(7, j).Value > Cells(7, 6).Value And Cells(48, j).Value = "" Then
Exit For
End If
Next j
'on est sur le bon j
End If
'Remasquage détail h planifiées
Range(Rows(14), Rows(47)).EntireRow.Hidden = True
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Protect
Cells(48, j + 40).Select 'pour sortir de l'écran afin que la selec suiv soit centrée horiz
Cells(48, j).Select 'désormais par ENTREE sur Cells(48, 1)
'MsgBox "Heures planifiées à jour"
End Sub
-------------
Bonne journée !
CC.
