verouiller une ligne

[Rem$]

bonjour a tous,


j'aurais besoin d'une info : comment verouiller un tableau ligne par ligne
lorsque la derniere cellule de la ligne a pour valeur 'OUI' alors la ligne est verouillee pour ne plus etre modifiable??

cela faisait bien lontemps que je n'etais pas passé par là....
toujours autant d'activité...cela prouve l'utilité du forum...

d'avance merci

Rem$

 

[Hervé]

Bonjour tout le monde
Salut rem$

En effet ca faisait un moment que l'on ne t'avais pas vu

Pour ton souci, une proposition en partant du principe que tes OUI sont dans la colonne D :

Sub Bouton1_QuandClic()
Dim i As Integer
ActiveSheet.Unprotect

For i = 1 To Range('d65536').End(xlUp).Row
&nbsp; &nbsp; If Cells(i, 4).Value <> 'OUI' Then
&nbsp; &nbsp; &nbsp; &nbsp; Rows(i).Locked = False
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; Rows(i).Locked = True
&nbsp; &nbsp; End If
Next i
ActiveSheet.Protect

End Sub

Salut

 

[Hervé]

re

Correction :

je suppose que tu ne veux pas verrouiller les lignes vierges se trouvant à la suite des données, alors remplace :

For i = 1 To Range('d65536').End(xlUp).Row

par

For i = 1 To 1000'<==== par exemple

Salut

 

[Rem$]

Bonjour Hervé,

toujours fidelement rapide au poste

mon oui se trouve dans la colonne X et dslé ta macro ne bloque pas la ligne, je peux toujours faire des modifs.....

Rem$

 

[Hervé]

re

Comment ca la macro ne bloque pas la ligne ???

En tout cas dans l'exmple joint, si !!!!!!



Salut
[file name=Classeur2_20050530111936.zip size=10346]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050530111936.zip[/file]

 

[Rem$]

re

j'ai bien vu mais quand je place la macro dans ma feuille
'erreur 1004 : impossible de definir la propriete locked dans la classe range'

et le debog pointe : Rows(i).Locked = False

 

[Hervé]

Re

Pourrais tu placer ton code ou un fichier joint, rem$.

Salut

 

[Rem$]

et voilà

 

[Rem$]

 

[Rem$]

M:\\Groupe qualité\\FNC\\herve.zip

cette fois?

 

[Rem$]

toujours pas de fichier joint???
que se passe-t-il???

 

[Hervé]

re



rem$, fichier .zip, moins de 50 Ko, pas d'accent, pas de signes cabalistiques ('#@...), pas d'accent.

en somme : test.zip

Salut

 

[Rem$]

:huh: meme si ca fait un moment que je ne suis passé, je n'ai pas tout oublié .......

je vais me débrouiller avec ça

tch@o

 

[Hervé]

re

Pour l'histoire du bug, ton souci vient surement du fait que tu ne déprotège pas ta feuille avant le traitement.

Penses bien à mettre : ActiveSheet.Unprotect en début de macro et

ActiveSheet.protect, en fin .

salut