Discussion :

[aurelie91220]

Bonjour cher forum!

J'ai besoin de vos lumières pour une macro.
je souhaite créer une boucle qui verrouille la ligne (format de cellule, protection, verrouillée) si dans la colonne A il y a "OUI".
Ex: ligne 2, A2 contient OUI alors la ligne 2 se verrouille
ligne 3, A3 contient NON alors la ligne reste déverrouillée
Voici le code que j'ai rédigé mais cela ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
Sub Prot_ligne()
Application.ScreenUpdating = False
dernière_ligne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For i = dernière_ligne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = "OUI" Then
Rows(i).Locked
End If
Next i
End Sub

Un petit coup de main svp

[Nico Chg]

Bonjour,

Je ne comprend pas trop la façon dont tu compte les lignes, du coup je remplacerais la ligne 1 par la 2:

Code :

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

1
2
dernière_ligne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
dernière_ligne = Worksheets("TaFeuille").Columns(X).Find("*", , , , xlByRows, xlPrevious).Row

Avec X la colonne ou tu va compter les lignes

Ensuite, je remplacerais la ligne 1 par la 2 :

Code :

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

1
2
Application.WorksheetFunction.CountA(Rows(i)) = "OUI"
Worksheets("TaFeuille").cells(i, 1).value = "OUI"

[keygen08]

Bonjour
remplacer

Code :

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

If Application.WorksheetFunction.CountA(Rows(i)) = "OUI" Then

par

Code :

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

par If cells(i,1)= "OUI" Then

ou

Code :

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

if range("a" & I)= "OUI" then

[aurelie91220]

Merci Nico d'avoir répondu!
J'ai essayé de faire les modifs que tu m'as proposé et ça ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
Sub Prot_ligne()
Application.ScreenUpdating = False
dernière_ligne = Worksheets("RenseignementsVisites").Columns(A).Find("*", , , , xlByRows, xlPrevious).Row
For i = dernière_ligne To 1 Step -1
If Worksheets("TaFeuille").Cells(i, 1).Value = "OUI" Then
Rows(i).Locked
End If
Next i
End Sub

Le débogage me montre un problème sur la ligne

Code :

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

dernière_ligne = Worksheets("RenseignementsVisites").Columns(A).Find("*", , , , xlByRows, xlPrevious).Row

Ma feuille s'appelle RenseignementsVisites et la colonne ou je compte est la colonne A.

Merci pour ton aide

[Marc-L]

Bonjour, bonjour !

Très mauvaise utilisation de la méthode Find ‼ Et pourtant tout est clair dans l'aide VBA intégrée et son exemple …

[aurelie91220]

Bonjour Keygen08,
J'ai tenté tes corrections mais j'ai une erreur d’exécution '1004 "la méthode locked de la classe range a échoué"
Merci pour ton aide.

Marc-L,
Merci pour ton commentaire constructif...
J'essaie de trouver la solution par moi même, j'ai jamais eu de formation, donc c'est pas simple pour moi.
Je tire cette macro d'un manuel de formation qu'on m'a prêté...

[Marc-L]

Merci d'indiquer les références de ce manuel afin de conseiller de ne pas l'acheter ‼


Directives (B-A-BA de l'utilisation de l'aide VBA intégrée, justement pour débutant !) :

• Placer le curseur texte clignotant dans le code sur l'instruction Find.

• Appuyer sur la touche !

• Lire en particulier la partie s'appliquant à l'objet Range …

Que renvoie cette méthode Find si rien n'est trouvé ? Déduction ?

Juste appliquer l'exemple de l'aide …


_________________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …