Afficher une liste de validation si...

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais modifier cette macro, afin d'appeler ou non la liste de validation...

voir fichier joint.

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement.
Christian
 

Pièces jointes

  • Liste validation affichée... sous condition.xlsm
    26.4 KB · Affichages: 39

Chris401

XLDnaute Accro
Bonjour

Inverse les lignes
VB:
If Target.Offset(0, -2) <> "" Then Exit Sub
If Not Intersect([E16:E40], Target) Is Nothing And Target.Count = 1 Then
Devient
Code:
If Not Intersect([E16:E40], Target) Is Nothing And Target.Count = 1 Then
If Target.Offset(0, -2) <> "" Then Exit Sub
 

Christian0258

XLDnaute Accro
Re, le forum,

Je reviens vers vous pour une autre demande, j'ai préféré rester sur le même fil...

voir fichier joint.

Merci, à nouveau, pour votre aide.
Bien amicalement,
Christian
 

Pièces jointes

  • Liste validation affichée... sous condition V.3.xlsm
    33.5 KB · Affichages: 39

Chris401

XLDnaute Accro
Bonsoir

Peux-tu essayer
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([E16:E40], Target) Is Nothing And Target.Count = 1 Then
If Target.Offset(0, -2) <> "" Then Exit Sub
  UserForm3.Left = Target.Left + 150
  UserForm3.Top = Target.Top + 70 - Cells(ActiveWindow.ScrollRow, 1).Top
  UserForm3.Show
End If
  If Target.Count > 1 Then Exit Sub
  ligne = Target.Row
  If Not Intersect([C16:C40], Target) Is Nothing Then
    Target = IIf(Target = "ü", "", "ü")
        If Target = "" Then
            Target.Offset(0, 4).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC5,tablo,6,0)),0,VLOOKUP(RC5,tablo,6,0))"
            Target.Offset(0, 5).FormulaR1C1 = "=RC[-1]*RC[-2]"
            Target.Offset(0, 6).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC5,tablo,7,0)),0,VLOOKUP(RC5,tablo,7,0))"
        Else
            Target.Offset(0, 4).Resize(1, 3) = ""
        End If
    End If
End Sub
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 885
Messages
2 093 259
Membres
105 660
dernier inscrit
moi46