Code VBA Déverouilage automatique de cellules

Version imprimable

08/09/2018, 16h25
ABBATO

Code VBA Déverouilage automatique de cellules

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

Tu peux d'aider du lien
https://www.developpez.net/forums/d1...les-excel-vba/
09/09/2018, 00h06
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
09/09/2018, 08h43
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 ?

Citation:

en fonction du contenu des cellules de la colonne A

Mais encore ?
eric
09/09/2018, 11h27
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,

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:

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:

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

Re, bonjour joe,

une autre version qui met à jour lors du choix :
Code:

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

09/09/2018, 16h22
ABBATO

1 pièce(s) jointe(s)

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,

Pièce jointe 410264
09/09/2018, 17h04
eriiic
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:

1 2 3 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True End Sub
eric
09/09/2018, 17h47
ABBATO

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"
09/09/2018, 18h21
eriiic

Lance au moins une fois Workbook_BeforeClose que la feuille soit protégée correctement pour la macro.
eric
09/09/2018, 18h25
eriiic
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:

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
09/09/2018, 20h32
ABBATO

1 pièce(s) jointe(s)

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,

Pièce jointe 410305
09/09/2018, 22h52
eriiic

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
09/09/2018, 23h21
ABBATO

1 pièce(s) jointe(s)

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,

Pièce jointe 410326
09/09/2018, 23h46
eriiic

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
10/09/2018, 00h34
ABBATO

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,