[AIDE] Problème d'execution d'une macro

INFINITY100

XLDnaute Occasionnel
Bonsoir à tous

Encore une fois je suis face à un problème d’exécution d'une macro, en effet dans le classeur joint j'ai deux feuilles 1 et 2 et dans le VBA j'ai ce code :

Code:
Sub Copier()

Sheets("Feuil2").Select
Range("A1").Select
 Range("C8:C18").FormulaR1C1 = _
        "=1+1"
        
End Sub

jusque là tout marche bien comme vous venez d’apercevoir il me donne le résultat correct dans feuil2 dans les cellules C8 à C18, seulement le problème que je rencontre c'est quand je protège la feuil2 et bien dans ce cas Excel me retourne la fenêtre indiquant il y a erreur parce qu’il n'arrive pas à copier la formule dans leurs cellules

Donc voila ma question est : existe t-il un moyen d'ajouter un code à la formule ci-dessus pour dire à Excel lors de la copie vers la feuil2 voici le mot de passe de la feuil2 tu déprotège et tu copie la formule puis tu protège la feuil de nouveau. Ou s'il y a une autre solution elle est la bienvenue

je joins le fichier avec feuil2 protégée mais vous pouvez ôter la protection

Merci à vous tous

Cordialement
 

Pièces jointes

  • Classeur 1.xlsm
    14.4 KB · Affichages: 46
  • Classeur 1.xlsm
    14.4 KB · Affichages: 53
  • Classeur 1.xlsm
    14.4 KB · Affichages: 53
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 206
Messages
2 086 203
Membres
103 157
dernier inscrit
youma