Discussion :

[leaprovence]

Bonjour !
Je débute en vba....et je ne sais pas par quel bout prendre mon pb...qui n'en ai peut être pas un d'ailleurs, lol...
Voilà, je souhaite mettre en place une macro qui me permettrait de verrouillé des cellules sous conditions.

En fait, je dois verrouiller les cellules de B11 à B20 selon la valeur B10, et ainsi de suite pour chaque colonne...donc verrouiller de C11 à C20 selon valeur C10...
J'ai bien trouver une fomule pour le faire sur une colonne mais je ne sais pas comment lui dire de passer à la colonne suivante en considérant la nouvelle valeur...
Je suis partie de ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Range("B10") <= [A9] + 14 Then
Range("B11:B20").Locked = True
End If

Mais je bloque après pour la boucle, laquelle dois-je utiliser et surtout comment faire pour qu'à chaque nouvelle boucle la référence de comparaison change...????

D'avance 1000 mercis pour votre aide...

[Pierre Fauconnier]

Bonjour

Il faut itérer sur les colonnes, en fonction de bornes choisies

Voici un code qui teste pour les colonnes B à E

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub verrouillage()
    Dim Colonne As Integer
 
    For Colonne = 2 To 5 ' Colonnes B à E
    If Cells(10, Colonne) <= [a9] + 14 Then
        Range(Cells(11, Colonne), Cells(20, Colonne)).Locked = True
        Else
        Range(Cells(11, Colonne), Cells(20, Colonne)).Locked = False
    End If
    Next Colonne
End Sub

J'ai ajouté le déverrouillage, car par défaut, les cellules sont verrouillées, et de plus, si elles l'ont été en fonction d'une précédente exécution de la macro, il faut les déverrouiller si elles ne répondent plus aux conditions de verrouillage

Ok?

[leaprovence]

C'est super, c'est exactement ce que je voulais !!!
Et ca marche parfaitement !!!!

Merci infiniment !!
Bonne soirée !

[Gorfael]

Salut leaprovence
Juste une question en passant :
La cellule ligne 10 d'une colonne commande le verrouillage des 10 cellules suivantes (sur les colonnes B et C).
Pourquoi ne pas commander le verrouillage/déverrouillage en automatique à chaque changement de B10 ou C10 ?
A+

[Pierre Fauconnier]

Salut Gorfaël, leaprovence,

Attention que si la cellule en ligne 10 contient une formule, la condition pourrait être rencontrée sans événement Change sur cette cellule...

[Gorfael]

Salut Pierre Fauconnier, leaprovence et le forum
Entièrement d'accord, c'est pour ça que je n'ai rien proposé, d'autres facteurs pouvant entrer en jeu. J'ai juste posé la question.
Mais, même si c'est une formule, si les modifications qui entraîne le changement de valeur de la cellule sont dans le classeur, c'est pas insoluble
A+