Bonjour,

Je souhaite insérer plusieurs mots de passe qui soient fonctions à des valeurs dans les cellules.

Je m'explique: si une cellule par exemple A1 contient la valeur "AAA", alors c'est toute la ligne qui aura comme mot de passe "omega",

si la cellule A40 contient la valeur "BBB", alors c'est encore toute la ligne qui aura comme mot de passe "lambda".

Bien sûr le nombre de mot de passe possible est pré-définit.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test3()
Dim i As Integer, j As Integer
Dim Cell As Range
 
Application.ScreenUpdating = False
 
    'Récupère le numero de ligne de la dernière cellule
    'non vide dans la colonne A.
    i = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
 
    'boucle de la dernière à la premiere ligne
    For j = i To 1 Step -1
        'Vérifie si les cellules de la colonne A sont vides
        'et les supprime si c'est le cas.
        If Worksheets("Feuil1").Cells(j, 1) = "GOGO" Then _
            Worksheets("Feuil1").Rows(j).Protect Password:="Toto"
 
    Next j
 
Application.ScreenUpdating = True
 
End Sub
Je ne comprend pas alors qu'il parait juste, il ne fonctionne pas au niveau de:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Rows(j).Protect
Pouvez vous m'aider svp ?