Modif macro SVP

[RVL]

Bonsoir,

La macro ci-dessous m'empeche de modifier le format des cellules une fois executée, qui peux me la modifier ?

Merci

Sub f1versf2()
Sheets("Feuil1").Unprotect
Sheets("Feuil2").Unprotect
Dim plage As Range, c As Range, cSource As Range
Set plage = Feuil1.Range("A1:H25")
Application.ScreenUpdating = False
For Each c In plage
If Not IsEmpty(c) Then
Set cSource = Sheets("Feuil3").UsedRange.Find(what:=c, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not cSource Is Nothing Then
If cSource.Offset(0, 1).Value = "A" Then
c.Cut Destination:=Sheets("Feuil2").Range("I" & _
Application.Rows.Count).End(xlUp)(2)
End If
End If
End If
Next c
plage.Locked = False
Application.ScreenUpdating = True
Sheets("Feuil1").Protect
Sheets("Feuil2").Protect
End Sub

 

[MuscatMimi]

Re : Modif macro SVP

Bonsoir

Si j'ai bien compris, une fois ta macro exécutée, tu ne peu plus
modifier tes cellule dans ta Feuil!!!!

Donc supprime la protection de ta Feuille2 ou Feuille 1
a ++++++++++++

 

[CBernardT]

Re : Modif macro SVP

Bonsoir RVL,

La macro enléve la protection des feuilles en début et les protège à nouveau en fin de procédure. Pour les conserver non protégées, enlève :

Sheets("Feuil1").Protect
Sheets("Feuil2").Protect

Edit: Bonsoir vaucluse immo

 

[kjin]

Re : Modif macro SVP

Bonsoir,
Tu protèges la feuille à la fin de la procédure donc c'est à priori normal
Suivant la version excel dont tu disposes, tu peux ne pas protéger le format des cellules
Sinon, il faut choisir de protéger ou pas, ou mettre en forme les cellules directement par le biais de la macro

Edit : salut Bernard et Christian
A+
kjin

 

[RVL]

Re : Modif macro SVP

Re-

J'ai oublié de préciser "uniquement sur les cellules deverrouillées" oups...

 

[kjin]

Re : Modif macro SVP

Re,

J'ai oublié de préciser "uniquement sur les cellules deverrouillées"

N'as tu donc pas lu les réponses ! 🙄
A+
kjin

 

[CBernardT]

Re : Modif macro SVP

Bonjour à tous,

Dans ce cas, pour une protection simple, tu remplaces avec le code suivant :

With Sheets("Feuil1")
.Protect
.EnableSelection = xlUnlockedCells
end with
With Sheets("Feuil2")
.Protect
.EnableSelection = xlUnlockedCellsSheets
end with

Pour une protection avec mot de passe, tu remplaces avec le code suivant :

With Sheets("Feuil1")
.Protect Password:="***"
.EnableSelection = xlUnlockedCells
end with
With Sheets("Feuil2")
..Protect Password:="***"
.EnableSelection = xlUnlockedCells
end with

 

[Pierrot93]

Re : Modif macro SVP

Bonjour à tous,

sauf erreur, il me semble que le problème est lié au format des cellules sur feuille protégée, pour protéger en autorisant le format des cellules (attention dépendant de la version Excel) :

Sheets("Feuil1").Protect "toto", AllowFormattingCells:=True

bonne journée
@+

 

[RVL]

Re : Modif macro SVP

Bonjour,

J'ai essayé les 2 solutions,

CA MARCHE avec la sol. de Pierrot.

Merci à tous,