Problème macro

[thri]

Bonjour,
La macro fonctionne très bien quand la feuille bd n'est pas protègée, quand elle est protégée ça ne passe pas a l'endroit

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Pourtant j"ai déprotégé et reprotégé dans la macro !!!

Sub Modification()
'
' Modification Macro
If MsgBox("Confirmation de la modification de la carte,si des données sont supprimées la cellule en vert activation pour supprimer des données doit être activée. ", vbYesNo, "Modification") = vbYes Then
ActiveSheet.Unprotect
Range("A4D4").Select
Selection.Copy
Sheets("Bd").Select
ActiveSheet.Unprotect
Range("A" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Formule").Select
Application.CutCopyMode = False
Selection.Copy
Range("DE" & [param_no_ligne] + 1).Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True
Sheets("Consultation").Select
Range("O12:W12").Select
Selection.ClearContents
Range("O13:R14").Select
Selection.ClearContents
Range("S14:Z14").Select
Selection.ClearContents
Range("O15:Z32").Select
Selection.ClearContents
Range("O12").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True
End If
End Sub

Merci de votre aide, je n'arrive pas à comprendre!!!!

 

[JNP]

Re : Problème macro

Bonsoir Thri ,
A priori, ta première déprotection se fait sur l'ActiveSheet. Est-ce la bonne feuille qui est activée ? Evite tous les Active et Select que tu peux, ça augmentera la vitesse de ton code et la clarté pour la lecture...
Donc utilise plutôt Sheets("Consultation").Unprotect, Range("A44").Copy, avec éventuellement une structure With Sheets("Consultation") ... End With pour pouvoir faire appel aux cellules en .Range("A44").
Bon courage

 

[thri]

Re : Problème macro

Bonsoir JNS,
Merci pour ta réponse
J'ai configurer la macro comme tu le dis, pas de changement, elle fonctionne quand la feuille bd est déprotégée et bloque toujours au même endroit une fois protégée.
Si quelqu'un a une idée
Merci

 

[JNP]

Re : Problème macro

Re ,
En supprimant tous les Protect et Unprotect, essaie de mettre en début de macro

Dim Feuille As Worksheet
On Error Resume Next
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Unprotect
Next
On Error GoTo 0

et en fin de macro

On Error Resume Next
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
Next
On Error GoTo 0

Bête question, tu n'as pas mis de mot de passe à la protection ?
Bonne soirée

 

[thri]

Re : Problème macro

Re JNP,
Non pas de mot de passe
Merci, j'essaye
A+

 

[Etienne2323]

Re : Problème macro

Bonjour thri, JNP, le forum,
en prenant en considération les conseils de JNP, il y a moyen également de supprimer les lignes inutiles pour épurer votre code.

Voici un exemple en espérant que cela puisse vous aider.

Sub Modification()

Dim Feuille As Worksheet
On Error Resume Next
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Unprotect
Next
On Error GoTo 0


If MsgBox("Confirmation de la modification de la carte, si des données sont supprimées la cellule en vert activation pour supprimer des données doit être activée. ", vbYesNo, "Modification") = vbYes Then
    Range("A4:D4").Copy
    
    Sheets("Bd").Select
    ActiveSheet.Unprotect
    Range("A" & [param_no_ligne] + 1).PasteSpecial Paste:=xlPasteValues
    Range("Formule").Copy
    Range("DE" & [param_no_ligne] + 1).Select
    ActiveSheet.Paste
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    True

    Sheets("Consultation").Select
    Range("O12:W12").ClearContents
    Range("O13:R14").ClearContents
    Range("S14:Z14").ClearContents
    Range("O15:Z32").ClearContents
    Range("O12").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    True
End If

On Error Resume Next
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
Next
On Error GoTo 0

End Sub

Cordialement,

Étienne

 

[JNP]

Re : Problème macro

Re ,
Merci pour la condensation, mais ce serait encore plus condensé

Sub Modification()
Dim Feuille As Worksheet
On Error Resume Next
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Unprotect
Next
On Error GoTo 0
If MsgBox("Confirmation de la modification de la carte, si des données sont supprimées la cellule " & _
    "en vert activation pour supprimer des données doit être activée. ", vbYesNo, "Modification") = vbYes Then
    Sheets("Consultation").Range("A4:D4").Copy
    With Sheets("Bd")
        .Range("A" & [param_no_ligne] + 1).PasteSpecial Paste:=xlPasteValues
        .Range("Formule").Copy
        .Range("DE" & [param_no_ligne] + 1).Paste
    End With
    With Sheets("Consultation")
    .Range("O12:W12", "O13:R14", "S14:Z14", "O15:Z32").ClearContents
    .Range("O12").Select
End If
On Error Resume Next
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
Next
On Error GoTo 0
End Sub

comme cela.
Mais l'intention était très bonne .
Bonne continuation

 

[thri]

Re : Problème macro

Merci à vous deux,
Vb me dit
erreur de compilation
"End If sans bloc If"
Après range"O2".select
Avec la macro de JPN

 

[JNP]

Re : Problème macro

Re ,
Désolé, effectivement

    .Range("O12").Select
[COLOR=red]End With[/COLOR]
End If

Bonne soirée

 

[thri]

Re : Problème macro

Re
La macro simplifiée bloque a
.Range("DE" & [param_no_ligne] + 1).Paste
La première correction fonctionne, elle protège et déprotège toutes les feuilles

Merci

 

[JNP]

Re : Problème macro

Re ,
Difficile à dire sans le fichier... Un problème de compatibilité entre ta zone nommée Formule et ton Range ?
Tu peux aussi essayer

        .Range("Formule").Copy .Range("DE" & [param_no_ligne] + 1)

mais ça devrait pas changer grand chose...
Bon courage

 

[thri]

Re : Problème macro

Bonjour et merci JNP et Etienne2323
Le fichier est petit 100ko, les procédures sont rapides.
A+

 

[Etienne2323]

Re : Problème macro

Bonjour thri, JNP, le forum,
@trhi
C'est un plaisir. Si tu as d'autres questions, n'hésite pas.

@JNP
C'était un beau cours de condensation ici. Je n'ai d'autre choix que de vous lever mon chapeau. Jumeler efficacité et élégance, c'est un art
Au plaisir de vous recroiser !

Étienne

 

[JNP]

Re : Problème macro

Re ,
@Etienne : si tu voyais mes macros d'il y a quelques années à peine, j'en faisais des km ...
Petit à petit, en vieillissant, on s'économise (et le code aussi...)
Le plaisir sera pour moi