Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[RESOLU]: Remplissage automatique champs en fonction d'une valeur

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Boubix

XLDnaute Nouveau
Bonjour à tous,

j'aurais besoin d'un coup de pouce sur le sujet suivant.
Je souhaite, à partir d'une liste de choix, avoir un remplissage automatique de plusieurs cellules en fonction du choix effectué.

Je vous joint le fichier correspondant.

Pas de problèmes sur le premier choix, il me remplit bien les cellules voulues, or pour les choix suivants, il me renvoie la valeur "-4142", kesako?!
Je suppose que cela est lié au caractère événementiel de la procédure, mais mes compétences XL s'arrêtent là...
Autre piste, est-il possible de remplacer la valeur False 'x1none' par un nouveau Case?

Ci-dessous la macro en l'état actuel:

-----------

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count = 1 Then

  Select Case Target.Column
   Case 17 'Modif de la colonne Q = Léger-> Colonnes AF à AI + AP = N/A
   Range("AF" & Target.Row).Resize(1, 4) = IIf(Target = "Léger", "N/A", x1None)
   Range("AP" & Target.Row) = IIf(Target = "Léger", "N/A", xlNone)
   Case 17 'Modif de la colonne Q = Diffus -> Colonnes AF à AI + AP = N/A
   Range("AF" & Target.RowDiffus).Resize(1, 4) = IIf(Target = "Diffus", "N/A", x1None)
   Range("AP" & Target.Row) = IIf(Target = "Diffus", "N/A", xlNone)
   Case 17 'Modif de la colonne Q = Autre -> Colonnes AF + AP = N/A
   Range("AF" & Target.Row) = IIf(Target = "Autre", "N/A", xlNone)
   Range("AP" & Target.Row) = IIf(Target = "Autre", "N/A", xlNone)
  End Select
  
End If

End Sub

-------------

Nous avons donc les troix choix: Léger / Diffus / Autre, avec un remplissage par 'N/A' des colonnes AF à AI + AP dans les 2 premiers cas, et AF + AP dans le 3ème cas.

Merci d'avance !
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Help!: Remplissage automatique champs en fonction d'une valeur

Bonjour Boubix,

Je te propose d'essayer avec le code suivant :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
  Select Case Target.Value
    Case Is = "Léger", Is = "Diffus"
      Range("AF" & Target.Row & ":AI" & Target.Row & ",AP" & Target.Row) = "N/A"
    Case Is = "Autre"
      Range("AF" & Target.Row & ",AP" & Target.Row) = "N/A"
    Case Else
      Range("AF" & Target.Row & ":AI" & Target.Row & ",AP" & Target.Row).ClearContents
End Select
End If
Application.EnableEvents = True

End Sub

Je ne sais pas si j'ai bien tout compris, mais je pense que tu n'auras aucun mal à adapter ce code le cas échéant.

Ton raisonnement concernant le "Select Case" était erroné, voilà poutquoi ça ne marchait pas comme il faut.

Par ailleurs, lorsque tu utilises l'événement "Worksheet_Change", n'oublie jamais de commencer et finir le code par "Application.EnableEvents = True/False", sous peine d'avoir des dysfonctionnements car la procédure se réexécute à chaque modification demandée par cette procédure.

Espérant avoir répondu.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Help!: Remplissage automatique champs en fonction d'une valeur

En effet, je viens de voir mon erreur, j'étais parti au départ sur Target.Column car je voulais prendre en compte les modifs sur plusieurs colonnes...

Merci pour l'astuce sur la fin du code, c'était la première fois que j'utilisais Worksheet_Change 😛.
Instructif ton code en tout cas

Je vais tester ça et je te donne le résultat.

Merci beaucoup Papou-net
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
600
loreak
L
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
993
jabenj
J
D
  • Question Question
XL 2016 Button copier coller cellules indépendantes VBA autre feuille
Réponses
7
Affichages
1 K
vgendron
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
T
  • Résolu(e)
XL 2016 Affichage d'une date automatiquement en fonction du remplissage d'une ligne
Réponses
2
Affichages
1 K
Theo_citron
T
K
  • Question Question
XL 2016 liee deux macro
Réponses
3
Affichages
969
Keran
K
U
  • Question Question
[RÉSOLU] La dernière ligne du mois reste en couleur alors que...
Réponses
6
Affichages
1 K
Paritec
N
  • Question Question
bloquer une cellule en fonction de la valeur d'une autre
Réponses
2
Affichages
1 K
Neofalken
N
Y
  • Question Question
XL 2016 filtrer avec des cases a cocher :
Réponses
10
Affichages
3 K
HervéDuval
H
M
  • Question Question
XL 2013 Erreur d'exécution 9 ou 13 que je n'arrive pas à résoudre.
2
Réponses
20
Affichages
3 K
massol
M
  • Question Question
XL 2016 Champs à affichage dynamique en fonction d'une valeur choisie dans un autre champs et d'une valeur
Réponses
3
Affichages
709
Nektaar
  • Question Question
XL 2013 Accélérer ma macro en réduisant son champs de recherches.
Réponses
7
Affichages
1 K
laetitia90
L
S
  • Question Question
Copie du contenu d'une cellule dans le Presse-Papiers en fin de code + formule
Réponses
7
Affichages
2 K
Shinpi
S
S
  • Question Question
Masquer et afficher des colonnes en fonction d'une valeur d'une liste déroulante
Réponses
5
Affichages
2 K
sophia95
S
U
  • Question Question
XL 2013 Créer des fichiers CSV en fonction du liste de variables d'une feuille excel
Réponses
2
Affichages
1 K
sylvanu
E
  • Question Question
[En Pause] Diminution du temps d'éxecution d'une macro
Réponses
4
Affichages
1 K
Enerjp
E
E
  • Question Question
[RESOLU] VBA Copies de plusieurs cellules en ligne vers autre feuille
Réponses
3
Affichages
1 K
Emmanuel_3005
E
A
  • Question Question
Colorer une ligne en fonction d'une valeur
Réponses
6
Affichages
869
agnes95
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…