Code VBA Déverouilage automatique de cellules

**ABBATO** · 08/09/2018, 16h25

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** · 08/09/2018, 17h31

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

**ABBATO** · 09/09/2018, 00h06

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** · 09/09/2018, 08h43

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** · 09/09/2018, 11h27

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** · 09/09/2018, 11h35

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

**eriiic** · 09/09/2018, 11h49

Re, bonjour joe,

une autre version qui met à jour lors du choix :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range, c As Range
    Set pl = Intersect(Target, Columns(1))
    For Each c In pl
        Target.Offset(, 1).Locked = Not Target Like "Y#"
    Next c
    Debug.Print Target.Offset(, 1).Locked
End Sub

Ici déverrouillé pour Y0 à Y9. Fonctionne également si tu colles plusieurs lignes d'un coup.
eric

**ABBATO** · 09/09/2018, 16h22

Re-bonjour à tous,

D'abord, je tiens a vous remercier pour toutes vos propositions mais avec mon niveau de débutant en VBA, je peine a mettre en place ses solutions.

Afin de vous permettre de comprendre ma demande, j'ai joins ci-dessous un exemple de mon tableau

Cordialement,

Exemple.rar

**eriiic** · 09/09/2018, 17h04

Bah tu vas apprendre... :-)
Pour ma proposition :
clic-droit sur l'onglet concerné, 'Visualiser le code', copier-coller le code dedans.
Le fait de choisir/saisir en A met à jour la protection en B.

Pour la proposition de joe : idem sauf que tu peux la mettre dans un module Standard (clic-droit sur le projet de ton classeur à gauche dans VBE, 'Insertion / Module'

Mais tout ceci me fait penser qu'on a oublié que la feuille est protégée.
Pour ne pas à avoir à l'enlever dans la macro et qu'elle ne soit pas gênée, tu vas la protéger par macro à fermeture (avec UserInterfaceOnly:=True seul l'utilisateur est bloqué).
Comme ça, même si tu oublies de reprotéger la feuille, la macro n'oubliera pas.
Double-clique sur ThisWorkbook et ajoute :

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End Sub

eric

**ABBATO** · 09/09/2018, 17h47

Re-bonjour Eric,

Je me suis appliqué et voilà ce que j'ai comme message " Impossible de définir la propriété Locked de la classe Range"

**eriiic** · 09/09/2018, 18h21

Lance au moins une fois Workbook_BeforeClose que la feuille soit protégée correctement pour la macro.
eric

**eriiic** · 09/09/2018, 18h25

Lance au moins une fois Workbook_BeforeClose que la feuille soit protégée correctement pour la macro.

Soit tu fermes et rouvres ton fichier, soit tu te fais un sub avec juste :

Code :

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

1
2
3
sub protege
    Sheets("nom_de_ta_feuille").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
end sub

Si toujours pb dépose ton fichier avec le code que tu as mis.
eric

PS : remplace ActiveSheet par Sheets("nom_de_ta_feuille") dans Workbook_BeforeClose

**ABBATO** · 09/09/2018, 20h32

Je te remercie encore une fois Eric d'être aussi patient avec moi.
Il me semble que sur l'exemple que j'ai posté, j'ai joint un texte explicatif avec le tableau ainsi que le mot de passe de protection.
Mais je le reposte comme même avec les 2 code VBA dans le workbook.
Cela vous permettra de vérifier ce que ça donne.

Cordialement,

Exemple(1).rar

**eriiic** · 09/09/2018, 22h52

Compresser un fichier de 200 ko n'est pas nécessaire. Et encore moins en .rar que tout le monde n'a pas.
Si tu protèges ta feuille avec un mot de passe il faudrait peut-être nous le fournir.
Et surtout l'indiquer à la macro puisque tu ne fais pas comme je t'ai proposé.
D'ailleurs je ne vois aucune ligne de ma proposition, dans aucun des modules indiqués...
eric

**ABBATO** · 09/09/2018, 23h21

Mais il me semble j'ai bien noté le mot de passe sur l'explication que j'ai joins au tableau quant au format rar, désolé pour. Mais voici encore une autre fois mon exemple en fichier Xlsm.

Cordialement,

Exemple.xlsm

**eriiic** · 09/09/2018, 23h46

Je n'avais pas vu ton mot de passe, désolé.
Là c'est la proposition de joe qui traite toute la colonne, je le laisse te répondre.
Moi je te proposais de ne faire que la ligne concernée.

Je dirais juste que si tu demandes pour les colonnes A et B, et qu'en vrai c'est H et N, c'est que tu comptes prendre en charge l'adaptation.
Ce qui n'est pas fait. Là tu verrouilles B selon le contenu de B (?!? bizarre). C'est Cells(ligne, colonne)
De plus tu as tout mis dans ThisWorkbook, ce n'était pas dit.

Quand on utilise un tableau structuré on ajoute pas des lignes d'avance puisqu'il s'étend automatiquement en copiant formules et formats dès l'ajout d'une ligne.
Tu perds un de ses avantage...
A vouloir alterner formules et saisies dans une colonne, je ne suis pas sûr que le tableau structuré aime ça tout le temps.
Pas impossible qu'un jour il ne mette plus la formule à l'ajout d'une ligne.
eric

**ABBATO** · 10/09/2018, 00h34

J'ai dis colonne A et B car je travaillais sur un fichier test avant de finaliser mon tableau.
Je te remercie beaucoup ERIC pour ton aide et pour tes explications.

Cordialement,

Code VBA Déverouilage automatique de cellules

Macros et VBA Excel

Discussions similaires

Partager

Partager