Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion thri
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

thri

XLDnaute Junior
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("A4😀D4").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!!!!
 
Trier par date Trier par votes
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("A4😀4").Copy, avec éventuellement une structure With Sheets("Consultation") ... End With pour pouvoir faire appel aux cellules en .Range("A4😀4").
Bon courage 😎
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Problème macro

Re 🙂,
En supprimant tous les Protect et Unprotect, essaie de mettre en début de macro
Code: 
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
Code: 
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 😎
 
Vote positif 0 Vote négatif
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.

Code: 
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
 
Vote positif 0 Vote négatif
Re : Problème macro

Re 🙂,
Merci pour la condensation, mais ce serait encore plus condensé
Code: 
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 😎
 
Vote positif 0 Vote négatif
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
Code: 
        .Range("Formule").Copy .Range("DE" & [param_no_ligne] + 1)
mais ça devrait pas changer grand chose...
Bon courage 😎
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 😎
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
222
Magic_Doctor
C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
186
Constantin
C
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
208
sylvanu
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
463
juju91
J
F
Fdaga
Réponses
2
Affichages
140
dysorthographie
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
344
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
773
Nounours4173
N
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
598
sylvanu
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
191
eastwick
F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
539
cdric78
C
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
700
micie1509
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
401
MICHIS
M
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
309
sylvanu
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
746
Valter
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…