Bonjour à tous j'ai tenter de faire une macro qui sous condition de la collone A me verrouille ou pas ma cellule en colonne B.
ce qui est bizare c'est que la condition si vrais deverrouille fonctionne mais la condition si faux verrouille ne fonctionne pas.
pouvez vous m'aider svp merci
Code:
Dim ws As Worksheet
Sub Macro1()
For Each ws In Worksheets
With ws
For I = 1 To .Range("A65536").End(xlUp).Row
If .Cells(I, 1) = "VAI" Then
ws.Cells(I, 2).Locked = False
Else
ws.Cells(I, 2).Locked = True
End If
Next I
End With
Next ws
End Sub
Re : Probleme sur macro de condition qui me verouille mes cellules
Bonjour,
essaye peut être ceci :
Code:
Sub Macro1()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
For I = 1 To .Range("A65536").End(xlUp).Row
.Cells(I, 2).Locked = Not .Cells(I, 1)
Next I
End With
Next ws
End Sub
Re : Probleme sur macro de condition qui me verouille mes cellules
bonjour paf et pierrot93 et merci pour votre aide
j'ai teste la proposition de pierrot93 mais malheureusement je voyais pas la condition et j'ai pas compris que c'etait simplement car le mot vrai et faux etait integrer à la macro j'ai utilisé le mot vrai et faux pour ce soit plus simple mais en realite c'est des nom de famille qui sera la veritable contition c'est de ma faute j'aurais du trouver des condition moin commun.
en revanche la modification de ma macro par celle de pas à résolu mon probleme un grand merci à vous deux et à bientot
Re : Probleme sur macro de condition qui me verouille mes cellules
Bonjour,
effectivement, le code que je proposais fonctionnait chez moi avec le modèle de donnée contenu dant ton fichier.... Si différent forcement... pas le même résultat...