Afficher une liste de validation si...

[Christian0258]

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

 

[pierrejean]

Bonjour Christian

Un essai

 

[Christian0258]

Re, le forum, pierrejean

Merci, pierrejean, c'est tout à fait ça....impecc

Bien à toi.
Christian

 

[Christian0258]

Re, le forum, pierrejean

J'ai une petite question dans le fichier joint....

Merci pour votre aide, si précieuse.

Cordialement.
Christian

 

[Chris401]

Bonjour

Inverse les lignes

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

Devient

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

 

[Christian0258]

Re, le forum, pierrejean, Chris401

Merci, Chris, pour ton intervention, ça fonctionne comme je le souhaite.

Bien à toi,
Christian

 

[Christian0258]

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

 

[Chris401]

Bonsoir

Peux-tu essayer

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

 

[Christian0258]

Re, le forum, Chris401,

Merci beaucoup, Chris, pour ton boulot, c'est parfait.

Bien à toi.
Cordialement,
Christian