Verrouiller les lignes d'un tableau sous conditions

[Ilino]

Forum Bonjour
ci joint mon fichier
mon souci :comme ie titre l'indique
merci

 

[Ilino]

Re : Verrouiller les lignes d'un tableau sous conditions

Ciao Forum
est ce que mon souci est claire ?
GRAZIE

 

[Pierrot93]

Re : Verrouiller les lignes d'un tableau sous conditions

Bonjour,

un peu de patience.... ce site est animé pas des bénévoles.... nous ne sommes pas aux pièces.... de plus rien dans ton post incite à ouvrir ton fichier....

bon après midi
@+

 

[Ilino]

Re : Verrouiller les lignes d'un tableau sous conditions

Bonjour
merci d'avoir répondu PIERROT
tu as raison je dois completer mon post par altra descrizione
A+

 

[Ilino]

Re : Verrouiller les lignes d'un tableau sous conditions

Bonjour Forum
dans mon post #1
Je souhaiterai verrouiller les lignes vides d'un tableau sous condition que la cellule (M6) la somme de la colonne durée soit égale a la cellule O3 donc verrouiller les lignes du tableau a partir de la derniere ligne vide du tableau
grazie per la vostra comprensione.
A+

 

[job75]

Re : Verrouiller les lignes d'un tableau sous conditions

Bonjour Ilino, salut Pierrot,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim derlig&
derlig = Range("A" & Rows.Count).End(xlUp).Row
If Application.Sum(Range("L8:L" & derlig)) = [O3] Then _
  If Not Intersect(Target, Range("A" & derlig + 1 & ":O" & Rows.Count)) _
    Is Nothing Then [A1].Select
End Sub

Il serait peut-être mieux d'écrire >= [O3] non ?

A+

 

[job75]

Re : Verrouiller les lignes d'un tableau sous conditions

Re,

Je pense que ceci est mieux :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dercel As Range, derlig&
Set dercel = [A:O].Find("*", , xlValues, , xlByRows, xlPrevious)
If dercel Is Nothing Then Exit Sub
derlig = dercel.Row
If derlig > 7 And Application.Sum(Range("L8:L" & derlig)) = [O3] And _
  Not Intersect(Target, Range("A" & derlig + 1 & ":O" & Rows.Count)) _
    Is Nothing Then [A1].Select
End Sub

A+

 

[job75]

Re : Verrouiller les lignes d'un tableau sous conditions

Re,

Et si l'on veut limiter le tableau à la ligne 30 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dercel As Range, derlig&
Set dercel = [A8:O30].Find("*", , xlValues, , xlByRows, xlPrevious)
If dercel Is Nothing Then Exit Sub
derlig = dercel.Row
If derlig < 30 And Application.Sum([L8:L30]) = [O3] And Not _
  Intersect(Target, Range("A" & derlig + 1 & ":O30")) Is Nothing Then [A1].Select
End Sub

A+

 

[job75]

Re : Verrouiller les lignes d'un tableau sous conditions

Re,

Je corrige le post #8..

A+

 

[Ilino]

Re : Verrouiller les lignes d'un tableau sous conditions

Bonsoir Job
un Grand GRAZIE for you
super , mon pblm est résolut
A+