Que dois-je modifier

Le
MEB
Bonjour,

J'utilise les deux séries de codes ci-dessous afin d'obtenir une
deuxième liste déroulante conditionnelle au résultat de la première=
.
Ça fonctionne super bien mais j'aimerais l'utiliser dans une autre
situation ou de voudrais que ma liste 1 se situe à la Cellule F12 et
que la liste conditionnelle apparaissent à la cellule F13 et non à la
cellule G12.

Comme je ne suis pas très bonne dans ce "Charabia" qui sont les code
VB, pouvez-vous me venir en aide en m'indiquant ce que je dois
modifier afin de déplacer le résultat vers le bas plutôt que vers la
droite.

Merci


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
Case Is = "Marketing"
ListeDeValidation Target.Offset(, 1), "Liste_Marketing"
Target.Offset(, 1).Activate
SendKeys "{F2}"
Case Is = "Finance"
ListeDeValidation Target.Offset(, 1), "Liste_Finance"
Target.Offset(, 1).Activate
SendKeys "{F2}"
End Select
End If
End Sub
'--
Sub ListeDeValidation(Plg As Range, Maliste As String)
With Plg.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=" & Maliste
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #21314461
Bonjour,

si j'ai bien compris

offset(1,0) au lieu de offset(,1)

Cordialement.

--
LSteph

On 4 mar, 14:31, MEB
Bonjour,

J'utilise les deux séries de codes ci-dessous afin d'obtenir une
deuxième liste déroulante conditionnelle au résultat de la premiè re.
Ça fonctionne super bien mais j'aimerais l'utiliser dans une autre
situation ou de voudrais que ma liste 1 se situe à la Cellule F12 et
que la liste conditionnelle apparaissent à la cellule F13 et non à la
cellule G12.

Comme je ne suis pas très bonne dans ce "Charabia" qui sont les code
VB, pouvez-vous me venir en aide en m'indiquant ce que je dois
modifier afin de déplacer le résultat vers le bas plutôt que vers l a
droite.

Merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F12")) Is Nothing Then
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target.Value
        Case Is = "Marketing"
           ListeDeValidation Target.Offset(, 1), "Liste_Marke ting"
           Target.Offset(, 1).Activate
           SendKeys "{F2}"
        Case Is = "Finance"
            ListeDeValidation Target.Offset(, 1), "Liste_Fina nce"
           Target.Offset(, 1).Activate
           SendKeys "{F2}"
    End Select
End If
End Sub
'--------------------------
Sub ListeDeValidation(Plg As Range, Maliste As String)
    With Plg.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
        xlBetween, Formula1:="=" & Maliste
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub
LSteph
Le #21314441
...re,
je remarque un petit inconvénient également dans ce code, ce qui est
déjà saisi reste mm si c'est pas la bpnne validation donc je
proposerais ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
Case Is = "Marketing"
ListeDeValidation Target.Offset(1, 0), "Liste_Marketing"


Case Is = "Finance"
ListeDeValidation Target.Offset(1, 0), "Liste_Finance"

End Select
End If
End Sub
'--------------------------
Sub ListeDeValidation(Plg As Range, Maliste As String)
With Plg.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:= _
xlBetween, Formula1:="=" & Maliste
.IgnoreBlank = True
.InCellDropdown = True

.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Plg.Activate
Plg.ClearContents
End Sub







On 4 mar, 16:16, LSteph
Bonjour,

si j'ai bien compris

offset(1,0) au lieu de offset(,1)

Cordialement.

--
LSteph

On 4 mar, 14:31, MEB


> Bonjour,

> J'utilise les deux séries de codes ci-dessous afin d'obtenir une
> deuxième liste déroulante conditionnelle au résultat de la premi ère.
> Ça fonctionne super bien mais j'aimerais l'utiliser dans une autre
> situation ou de voudrais que ma liste 1 se situe à la Cellule F12 et
> que la liste conditionnelle apparaissent à la cellule F13 et non à la
> cellule G12.

> Comme je ne suis pas très bonne dans ce "Charabia" qui sont les code
> VB, pouvez-vous me venir en aide en m'indiquant ce que je dois
> modifier afin de déplacer le résultat vers le bas plutôt que vers la
> droite.

> Merci

> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, Range("F12")) Is Nothing Then
>     If Target.Cells.Count > 1 Then Exit Sub
>     Select Case Target.Value
>         Case Is = "Marketing"
>            ListeDeValidation Target.Offset(, 1), "Liste_Mar keting"
>            Target.Offset(, 1).Activate
>            SendKeys "{F2}"
>         Case Is = "Finance"
>             ListeDeValidation Target.Offset(, 1), "Liste_Fi nance"
>            Target.Offset(, 1).Activate
>            SendKeys "{F2}"
>     End Select
> End If
> End Sub
> '--------------------------
> Sub ListeDeValidation(Plg As Range, Maliste As String)
>     With Plg.Validation
>         .Delete
>         .Add Type:=xlValidateList, AlertStyle:=xlValidAlert Stop,
> Operator:= _
>         xlBetween, Formula1:="=" & Maliste
>         .IgnoreBlank = True
>         .InCellDropdown = True
>         .InputTitle = ""
>         .ErrorTitle = ""
>         .InputMessage = ""
>         .ErrorMessage = ""
>         .ShowInput = True
>         .ShowError = True
>     End With
> End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
MEB
Le #21314641
Ça fonctionne, merci beaucoup !!!

Maintenant, j'ai un autre problème. Dans cette même feuille, je
voudrais insérer un peu plus bas une autre liste déroulante principale
qui m'offrira des listes conditionnelle au résultat de cette liste
principale. (pas de rapport entre la liste créée précédemment et ce tte
dernière à part le fait qu'elle soit sur la même feuille)

J'ai tenté de répéter mes deux séries de codes en dessous des premi ers
en les adaptant à mes besoins mais ça ne fonctionne pas.

Premièrement il me dit "Erreur de compilation : Nom ambigu détecté :
Worksheet_Change. J'imagine que je dois lui donner un nom différent
mais malgré cela, ça ne fonctionne toujours pas.

Pouvez-vous encore me venir en aide à ce sujet

Mille fois merci!!!!!
LSteph
Le #21314621
Bonjour,

Effectivement tu ne peux pas mettre un second change, il s'agit d'une
gestion et une seule appliquée pour un seul et même évennement.
En revanche cette gestion peut avoir englober une à une chaque action
à effectuer pour chaque autre possiblité de target (plage cible) que
F12

Cordialement.

--
LSteph


On 4 mar, 16:36, MEB
Ça fonctionne, merci beaucoup !!!

Maintenant, j'ai un autre problème. Dans cette même feuille, je
voudrais insérer un peu plus bas une autre liste déroulante principal e
qui m'offrira des listes conditionnelle au résultat de cette liste
principale. (pas de rapport entre la liste créée précédemment et cette
dernière à part le fait qu'elle soit sur la même feuille)

J'ai tenté de répéter mes deux séries de codes en dessous des pre miers
en les adaptant à mes besoins mais ça ne fonctionne pas.

Premièrement il me dit "Erreur de compilation :  Nom ambigu détect é :
Worksheet_Change. J'imagine que je dois lui donner un nom différent
mais malgré cela, ça ne fonctionne toujours pas.

Pouvez-vous encore me venir en aide à ce sujet

Mille fois merci!!!!!
MEB
Le #21314821
Concrètement, je m'y prends de quelle façon pour lui indiquer le tout.

Dois-je modifier F12:F18 pour F12:AA37 parce que mes autres listes se
situent à cet endroit
Private Sub Worksheet_Change1(ByVal Target As Range)
If Not Intersect(Target, Range("F12:F18")) Is Nothing Then
et ainsi de suite ......


Et comment j'ajoute mes autres listes de validation à celle-ci pour
qu'il reconnaisse quelle prendre et quand
Sub ListeDeValidation1(Plg As Range, Programme As String)
With Plg.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=" & Programme
.IgnoreBlank = True
et ainsi de suite.....


Je suis bien embêtée avec ces détails....

Merci encore
MEB
Le #21314951
OUBLIEZ MON DERNIER MESSAGE,

TOUT FONCTIONNE SUPER BIEN, J'AI RÉUSSI À FUSIONNER LE TOUT,

DÉSOLÉE DU DÉRANGEMENT

MERCI MERCI MERCI DE VOTRE AIDE

TRÈS APPRÉCIÉ !!!!!!!!
LSteph
Le #21315111
Re,
..je ne repasse pas sur le forum de suite.
Mets un exemple de ton classeur en cjoint avec la structure des listes
voulues; quelq'un d'autre te répondra.

Mais il n'y en aura peut etre pas besoin, mon idée que je n'ai pas le
temps de dévelloper de suite, si c'est pour une liste avec deux
possibilités comme dans ton 1er exemple, mettre un select case avec
items en dur dans le code pourquoi pas mais dès lors qu'il y a
plethore de listes possibles il serait plus dynamique de faire
correspondre directement les items de liste de pré choix avec ceux des
listes existantes et au lieu d'envisager un select case renvoyer via
la routine
Sub ListeDeValidation1(Plg As Range, Programme As String)

directement le nom reçu en choix comme parametre Plg désigné de la
sub
le cas échéant prévoir une gestion d'erreur , si ce nom ne
correspondait pas à une liste existante.

@+

--
LSteph




On 4 mar, 16:57, MEB
Concrètement, je m'y prends de quelle façon pour lui indiquer le tout .

Dois-je modifier F12:F18 pour F12:AA37 parce que mes autres listes se
situent à cet endroit
Private Sub Worksheet_Change1(ByVal Target As Range)
If Not Intersect(Target, Range("F12:F18")) Is Nothing Then
et ainsi de suite ......

Et comment j'ajoute mes autres listes de validation à celle-ci pour
qu'il reconnaisse quelle prendre et quand
Sub ListeDeValidation1(Plg As Range, Programme As String)
    With Plg.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
        xlBetween, Formula1:="=" & Programme
        .IgnoreBlank = True
    et ainsi de suite.....

Je suis bien embêtée avec ces détails....

Merci encore
Publicité
Poster une réponse
Anonyme