VBA ne s'exécute pas feuille protégée

  • Initiateur de la discussion Initiateur de la discussion myexcel_
  • 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 !

myexcel_

XLDnaute Nouveau
Bonjour

Mon code VBA ne s'exécute pas quand la feuille (DATA) est protégée....j'aimerais savoir s'il y a un moyen de corriger le code. Car je souhaiterais garder la feuille DATA protégée

ci-après le code...et Merci beaucoup

VB:
Sub export_données()



Application.ScreenUpdating = False

Set Ws_User = Sheets("Data")
Set ws_CM2 = Sheets("Filliale")
Set Ws_CM1 = Sheets("Terme")

NbLigCM1 = Ws_CM1.[A1].CurrentRegion.Rows.Count
NbParam = Ws_User.[K1].CurrentRegion.Rows.Count
NbLigCM2 = ws_CM2.[A1].CurrentRegion.Rows.Count - 1

NbExport = 0

For I = 2 To NbParam
    For j = 2 To NbLigCM1
        If (Ws_CM1.Cells(j, "H") = Ws_User.Cells(I, "P")) Then
            Ws_CM1.Rows(j).Copy Destination:=ws_CM2.Rows(2 + NbLigCM2)
            NbLigCM2 = NbLigCM2 + 1
            NbExport = NbExport + 1
            Ws_CM1.Rows(j).Delete
            j = j - 1
        End If
    Next
Next

Application.ScreenUpdating = True

MsgBox (NbExport & " ligne(s) exportée(s)")

End Sub
 
- 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

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
171
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
447
Réponses
11
Affichages
1 K
Réponses
2
Affichages
546
Réponses
33
Affichages
4 K
Réponses
3
Affichages
951
Retour