Ouvir une liste de validation ou pas si....

[Christian0258]

Bonsoir à tout le forum,

Comment modifier la ligne;
If Target.Offset(0, -1)
pour ne pas ouvir l'USF3 si, sur la ligne zone de F27:NF27, le contenu des cellules est supérieur à zéro...?

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Offset(0, -1) <> "" Then Exit Sub
'If Not Intersect([F13:NF13], Target) Is Nothing And Target.Count = 1 Then
'UserForm3.Left = Target.Left + 150
'UserForm3.Top = Target.Top + 70 - Cells(ActiveWindow.ScrollRow, 1).Top
'UserForm3.Show
'End If
'End Sub

Merci pour votre aide,
Christian

 

[Paf]

Bonjour,

Vous pouvez rajouter un test sur le nombre de cellules > 0; si le test est vrai on quitte la sub sinon on active l'USF :

If WorksheetFunction.CountIf([F27:NF27], ">0") > 0 then 'il y a au moins 1 cellule > 0

A+

 

[Christian0258]

Re, le forum, Paf

Merci pour ta solution, Paf, mais je souhaiterais ouvrir ou pas l'USF...
en fonction de chaque cellules et non sur le résultat de la ligne 27

expl ;
-je clique sur F13, si cellule F27 sup à 0 alors on n'ouvre pas l'USF
-je clique sur G13, si cellule G27 vide alors on ouvre l'USF
-je clique sur H13, si cellule H27 sup à 0 alors on n'ouvre pas l'USF
ect ect

Merci pour votre aide.
Bien amicalement,
Christian

 

[Bebere]

bonjour Christian Paf

Target.Offset(0, -1)

if Target.Offset(14,0) =0 then
'UserForm3.Left = Target.Left + 150
'UserForm3.Top = Target.Top + 70 - Cells(ActiveWindow.ScrollRow, 1).Top
'UserForm3.Show
end if

 

[Christian0258]

Re, le forum, Paf, Bebere

Merci,Bebere, c'est tout à fait ça... impec
Je garde aussi la solution de Paf...

Bien à vous,
Christian

 

[Christian0258]

Re, le forum,
Je reviens vers vous, car j'ai changé ma façon d'aborder mon problème concernant
l'ouverture ou non de la liste de validation...voir le fichier joint

Je vous remercie, à nouveau, pour le temps que vous voudrez bien vouloir m'accorder
Bien amicalement,
Christian