verouiller une ligne

Rem$ · 30 Mai 2005

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é · 30 Mai 2005

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
    If Cells(i, 4).Value <> 'OUI' Then
        Rows(i).Locked = False
    Else
        Rows(i).Locked = True
    End If
Next i
ActiveSheet.Protect

End Sub

Salut

Hervé · 30 Mai 2005

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$ · 30 Mai 2005

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é · 30 Mai 2005

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$ · 30 Mai 2005

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é · 30 Mai 2005

Re

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

Salut

Rem$ · 30 Mai 2005

et voilà

Rem$ · 30 Mai 2005

Rem$ · 30 Mai 2005

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

cette fois?

Rem$ · 30 Mai 2005

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

Hervé · 30 Mai 2005

re

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

en somme : test.zip

Salut

Rem$ · 30 Mai 2005

: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é · 30 Mai 2005

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

verouiller une ligne

Rem$

XLDnaute Junior

Hervé

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Rem$

XLDnaute Junior

Hervé

XLDnaute Barbatruc

Pièces jointes

Rem$

XLDnaute Junior

Hervé

XLDnaute Barbatruc

Rem$

XLDnaute Junior

Rem$

XLDnaute Junior

Rem$

XLDnaute Junior

Rem$

XLDnaute Junior

Hervé

XLDnaute Barbatruc

Rem$

XLDnaute Junior

Hervé

XLDnaute Barbatruc

Discussions similaires