Liste Imbriquées ( code vba) aide

[Ilino]

Bonsoir Forum
ci joint un code trouvé dans ce forum , mais malheureusement ça n'a pas bien fonctionnée , puis je avoir vos commentaire ?
Merci

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Range("C382"), Target) Is Nothing And Target.Count = 1 Then
      Application.EnableEvents = False
      temp = Range(Target)(1)
      Target.Offset(0, 1) = temp
      Application.EnableEvents = True
   End If
End Sub

 

[Pierrot93]

Re : Liste Imbriquées ( code vba) aide

Bonjour,

pas ouvert ton fichier, mais peut être tout simplement ceci :

Application.EnableEvents = False
      Target(2) = Target
      Application.EnableEvents = True

bonne journée
@+

 

[Ilino]

Re : Liste Imbriquées ( code vba) aide

Bonjour
Pierrot
merci pour la réponse mais ça n' rien donnée sorry
A+

 

[Pierrot93]

Re : Liste Imbriquées ( code vba) aide

Re,

merci pour la réponse mais ça n' rien donnée sorry

cela veut dire quoi... message d'erreur ou pas le résultat attendu ? fonctionne chez moi sur ton classeur, enfin avec ce que j'ai comprs.... manque un peu d'explication sur le but à atteindre....

 

[pierrejean]

Re : Liste Imbriquées ( code vba) aide

Bonjour Ilino

Re Salut Pierrot 😉

Attention aux
Application.EnableEvents :en cas de bug avant le True
Cellules fusionnées

 

[job75]

Re : Liste Imbriquées ( code vba) aide

Bonjour Ilino, salut Pierrot,

Pas trop compris ce que tu veux faire exactement, mais inspire-toi de ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Set c = [C382] 'à adapter
If Not Intersect(c, Target) Is Nothing Then c(1, 4) = c
End Sub

Note que les Application.EnableEvents sont tout à fait inutiles ici 🙄

Edit : re-salut pierrejean

A+

 

[Ilino]

Re : Liste Imbriquées ( code vba) aide

Bonjour Pierrot, Job et pierrejean
Vous avez raison , j'ai mal exprimé mon souci
dans la cellule F382 j'ai cette formule Données:liste:=INDIRECT(C382)
j'ai crée 4 liste (pj , pj_tech , pj_admin, chambre)
dans la cellule C382 une liste déroulante "pj" (liste principale)
si je sélectionne la donnée" Site Technique" j'aurai dans la cellue F382la liste déroulante "pj_tech"
idem pour "Site Admin" j'aurai dans la cellue F382 la liste déroulante "pj_admin"
idem pour "Chambre J" j'aurai dans la cellue F382 la liste déroulante "chambre"
grazie
NB : Attention mes deux cellules sont des Cellules fusionnées

 

[Dranreb]

Re : Liste Imbriquées ( code vba) aide

Bonjour.
Ça me parait bien empirique tout ça. (ajouté une Worksheet_Change faite n'importe comment parce que ça marche pas sans…)
Chez moi j'ai réussi à faire marcher quelque chose sans, en mettant en L383:L385, validé par Ctrl+Maj+Entrée :

=TRANSPOSE(SUBSTITUE($I$382:$K$382;"_";" "))

Et dans la liste de validation de F382 :

=INDIRECT(SUBSTITUE($C$382;" ";"_"))

Si ça marche aussi chez vous mais que ça ne vous plait pas, changez les noms des listes.

Bonsoir 39Torriep

 

[Pierrot93]

Re : Liste Imbriquées ( code vba) aide

Re,
Re PierreJean,
Bonsoir Job

as tu essayé toutes les olutions proposés ??? un lien qui peut être t'aidera sur les listes en cascade....
Listes en cascade

Edition : bonsoir Bernard

 

[Ilino]

Re : Liste Imbriquées ( code vba) aide

Bonjour.
Ça me parait bien empirique tout ça. (ajouté une Worksheet_Change faite n'importe comment parce que ça marche pas sans…)
Chez moi j'ai réussi à faire marcher quelque chose sans, en mettant en L383:L385, validé par Ctrl+Maj+Entrée :

=TRANSPOSE(SUBSTITUE($I$382:$K$382;"_";" "))

Et dans la liste de validation de F382 :

=INDIRECT(SUBSTITUE($C$382;" ";"_"))

Si ça marche aussi chez vous mais que ça ne vous plait pas, changez les noms des listes.

Bonsoir 39Torriep

Bonjour Bernard,
c'est exactement ce que je cherchais
grazie
@ Pierrot: merci pour ce lien
A+