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 :
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
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
Dernière édition: