Liste validation J. Boisgontier...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide afin de modifier un code dans une liste de validation de Mr J. Boisgontier.

voir fichier...

Je vous remercie, par avance, pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[job75]

Re : Liste validation J. Boisgontier...

Bonsoir,

JB ne semble pas dans le coin, essayez :

- 1ère macro, 2ème ligne :

If Not Intersect(Target, [B15:B34]) Is Nothing And Target.Count = 1 Then

- 2ème macro, 2ème ligne :

If Target.Column = [COLOR="Red"]2[/COLOR] And Target.Count = 1 Then

A+

 

[Christian0258]

Re : Liste validation J. Boisgontier...

Re, le forum, job75,

Merci, job75, pour ces deux lignes de commande.

ça fonctionne parfaitement.

bien à toi, encore merci
à+
Christian

 

[Christian0258]

Re : Liste validation J. Boisgontier...

ReBonjour à tout le forum,

jOb75, m'a donné la solution pour que je puisse adapter cette liste de validation de "JB".
Je souhaiterais, maintenant, récupérer la TVA placée en colonne 3.
Que faut-il modifier dans les codes, j'ai fait ;

If Target.Column = 3 And Target.Count = 1 Then

mais ça ne fonctionne pas...

Pourriez-vous m'éclairer?

Bien à vous,
Christian

 

[JCGL]

Re : Liste validation J. Boisgontier...

Bonjour à tous,
Salut Christian,

Peux-tu essyer avec :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [B15:B34]) Is Nothing And Target.Count = 1 Then
     If Not IsError(Application.Match(Target.Value, [marque], 0)) Then
       Target.Offset(, 1) = ""
       ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
     Else
       Target.Offset(, 1) = Range([mémo])(Application.Match(Target.Value, Range([mémo]), 0)).Offset(, 1)
       [B][COLOR=Blue]Target.Offset(, 2) = Range([mémo])(Application.Match(Target.Value, Range([mémo]), 0)).Offset(, 2)[/COLOR][/B]
     End If
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
    ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
  End If
End Sub

Il faut renseigner la troisième colonne des tes tables

A++
A+ à tous

 

[Christian0258]

Re : Liste validation J. Boisgontier...

Re, le forum, JCGL,

Salut Jean-Claude, et merci pour cette ligne de commande.

C'est impecc.

Bien à toi,
à+

Christian