Discussion :

[ABBATO]

Bonjour à Tous,

Je suis novice en VBA et j'aimerais bien si quelqu'un peut m'aider à écrire le code VBA qui permet :
De déverrouiller des cellules de la colonne B (qui elle-même doit rester verrouillée car elle contient une formule) en fonction du contenu des cellules de la colonne A

En vous remerciant par avance pour votre aide

[sogedic]

Tu peux d'aider du lien
https://www.developpez.net/forums/d1...les-excel-vba/

[ABBATO]

Merci sogedic de m'avoir répondu mais j'ai bien vu le lien avant de poster et cela n'a pas résolu ma question

[eriiic]

Bonjour,

Qu'as-tu dans A ? Une saisie ou une formule ?
Si c'est une saisie c'est à faire à ce moment pour la ligne ou c'est à faire sur demande pour la colonne ?

en fonction du contenu des cellules de la colonne A

Mais encore ?
eric

[ABBATO]

Bonjour Eriiic,

En Fait, les cellules de la colonne A (nommée Produit) contiennent une liste déroulante
Les cellules de la colonne B (Nommée Transport) contiennent la formule recherche V ( ce qui fait que cette colonne doit rester verrouillé )

Ce que je souhaite obtenir est que si la cellule A2 = "X1" ou "X2" ou "X3" , la cellule B2 reste verrouillée sinon si la cellule A2 ="Y1" ou "Y2" ou "Y3" alors la cellule B2 se déverrouille automatiquement. je veux ensuite reproduire cela a toute la colonne B.

Avec tous mes remerciements,

[joe.levrai]

Bonjour,

j'ai limité le test sur la plage utilisée dans la feuille au niveau de la colonne A
un exemple à adapter donc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim i As Long
    With ThisWorkbook.Worksheets("Feuil1") ' à adapter
        For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row ' à adapter si on commence pas en ligne 1 ou qu'on veut aller plus bas que la plage utilisée en colonne A
            Select Case .Cells(i, 1).Value
                Case "X1", "X2", "X3"
                    .Cells(i, 2).Locked = True
                Case Else
                    .Cells(i, 2).Locked = False
            End Select
        Next i
    End With
End Sub

une variante moins intuitive

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
Dim i As Long
    With ThisWorkbook.Worksheets("Feuil1") ' à adapter
        For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row ' à adapter si on commence pas en ligne 1
            .Cells(i, 2).Locked = .Cells(i, 1).Value Like "X?" And Val(.Cells(i, 1).Value) < 4
        Next i
    End With
End Sub