XL 2016 Remplir un tableau en fonction de la valeur d'une cellule

  • Initiateur de la discussion Initiateur de la discussion xamenod
  • Date de début Date de début
X

xamenod

XLDnaute Junior
Bonsoir,
A l'aide d'une macro, je désire remplir les cellules d'un tableau en colonne I en regard de la valeur de la cellule D5.
Je joint un fichier avec des explications plus claires.
Merci pour votre aide.
Bon weekend.

1610825065182.png
 

Pièces jointes

Trier par date Trier par votes
S

soan

XLDnaute Barbatruc
Inactif
Bonsoir xamenod,

ton fichier en retour. :)

formule en i5 (déjà tirée vers le bas jusqu'en i8) :

=SI(D$5=H5;E$5;"")

je te laisse tester en choisissant successivement
les 4 valeurs A, B, C, D, de la liste déroulante.

bon weekend à toi aussi. 🍀

soan
 

Pièces jointes

Vote positif 0 Vote négatif
X

xamenod

XLDnaute Junior
Bonsoir Soan,
Merci pour ton retour. J'ai envisagé cette solution.
J'ai une macro qui fait le boulot mais qui est un peu longue.
Cela fait if range(d5) =À then
Range i5 = Range e5
If range(d5) =B then
Range i6 = range e5
Etc
J'écris avec mon téléphone, d'où les erreurs dans l'exemple de la macro. J'ai dans la liste de roulante une trantaine de choix. Je cherche à remplacer la longue instruction par une macro plus efficace et plus courte pour l'intégrer à un ensemble d'exécutions. Merci de ton aide.
Bonne soirée.
 
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir @xamenod,

Un essai dans le fichier joint via macro dans le module associé à la feuille.
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("d5"), Target) Is Nothing Then Range("e5").ClearContents: Application.EnableEvents = True: Exit Sub
If Not Intersect(Range("e5"), Target) Is Nothing Then
   Application.EnableEvents = False
   Cells(Application.Match(Range("d5").Value, Range("h:h"), 0), "i") = Range("e5")
   Range("d5:e5").ClearContents
   Application.EnableEvents = True
End If
Application.EnableEvents = True
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
X

xamenod

XLDnaute Junior
xamenod à dit:
Bonsoir ma pomme,
Merci pour ta réponse. Cela fonctionne.
S'il y a une valeur dans une cellule de la colonne I, j'ai besoin de l'additionner avec la nouvelle valeur en e5.
Merci pour ton aide.
Cliquez pour agrandir...
mapomme à dit:
Bonsoir @xamenod,

Un essai dans le fichier joint via macro dans le module associé à la feuille.
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("d5"), Target) Is Nothing Then Range("e5").ClearContents: Application.EnableEvents = True: Exit Sub
If Not Intersect(Range("e5"), Target) Is Nothing Then
   Application.EnableEvents = False
   Cells(Application.Match(Range("d5").Value, Range("h:h"), 0), "i") = Range("e5")
   Range("d5:e5").ClearContents
   Application.EnableEvents = True
End If
Application.EnableEvents = True
End Sub
mapomme à dit:
Bonsoir @xamenod,

Un essai dans le fichier joint via macro dans le module associé à la feuille.
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("d5"), Target) Is Nothing Then Range("e5").ClearContents: Application.EnableEvents = True: Exit Sub
If Not Intersect(Range("e5"), Target) Is Nothing Then
   Application.EnableEvents = False
   Cells(Application.Match(Range("d5").Value, Range("h:h"), 0), "i") = Range("e5")
   Range("d5:e5").ClearContents
   Application.EnableEvents = True
End If
Application.EnableEvents = True
End Sub
Cliquez pour agrandir...
Bonsoir Ma pomme.
Cliquez pour agrandir...
J'ai trouvé comment additionner la nouvelle valeur avec celle déjà en I.
Merci beaucoup.
Bon week-end.
Henry.
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour @xamenod, mapomme, le fil,

bon week-end, et désolé pour le retard de ma réponse, Henry. :oops:

en D5 : « A » ; met des nombres en E5 ; ils seront additionnés en i5 ;
si tu veux annuler un nombre qui a déjà été additionné, saisis-le en
négatif, par exemple -5 ; il sera alors retranché de la somme, car
total + (-5) = total - 5.


si tu changes D5, alors E5 est effacé ; puis les nombres que tu saisis
en E5 sont additionnés dans la bonne case de la colonne i, selon D5.

si tu mets d'autres cases sous H8:i8, elles seront prises en compte.

si tu saisis une valeur non numérique en E5, elle sera ignorée ;
si tu effaces D5 ou E5, il n'y aura aucun effet en colonne i.


SI tes données en colonne H sont toujours les mêmes que celles de
ta colonne R, dans le même ordre, alors tu peux construire ta liste
de D5 avec tes données de la colonne H ; utilise une plage nommée
pour prendre en compte l'extension de la liste, si ajouts ultérieurs ;
plage actuelle : H5:i8 ; supprime la colonne R devenue inutile.


code VBA du module de Feuil1 :

VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$D$5" Then .Offset(, 1).ClearContents: Exit Sub
    If .Address <> "$E$5" Then Exit Sub
    Dim chn$: chn = .Offset(, -1)
    If IsEmpty(.Value) Or chn = "" Then Exit Sub
    If Not IsNumeric(.Value) Then Exit Sub
    Dim cel As Range, dlg&, lig%
    dlg = Cells(Rows.Count, 8).End(3).Row: If dlg < 5 Then Exit Sub
    Set cel = Range("H5:H" & dlg).Find(chn, , -4163, 1, 1)
    If cel Is Nothing Then Exit Sub
    lig = cel.Row: Cells(lig, 9) = Cells(lig, 9) + .Value
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. ;)

soan
 

Pièces jointes

Vote positif 0 Vote négatif
X

xamenod

XLDnaute Junior
B
soan à dit:
Bonjour @xamenod, mapomme, le fil,

bon week-end, et désolé pour le retard de ma réponse, Henry. :oops:

en D5 : « A » ; met des nombres en E5 ; ils seront additionnés en i5 ;
si tu veux annuler un nombre qui a déjà été additionné, saisis-le en
négatif, par exemple -5 ; il sera alors retranché de la somme, car
total + (-5) = total - 5.


si tu changes D5, alors E5 est effacé ; puis les nombres que tu saisis
en E5 sont additionnés dans la bonne case de la colonne i, selon D5.

si tu mets d'autres cases sous H8:i8, elles seront prises en compte.

si tu saisis une valeur non numérique en E5, elle sera ignorée ;
si tu effaces D5 ou E5, il n'y aura aucun effet en colonne i.


SI tes données en colonne H sont toujours les mêmes que celles de
ta colonne R, dans le même ordre, alors tu peux construire ta liste
de D5 avec tes données de la colonne H ; utilise une plage nommée
pour prendre en compte l'extension de la liste, si ajouts ultérieurs ;
plage actuelle : H5:i8 ; supprime la colonne R devenue inutile.


code VBA du module de Feuil1 :

VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$D$5" Then .Offset(, 1).ClearContents: Exit Sub
    If .Address <> "$E$5" Then Exit Sub
    Dim chn$: chn = .Offset(, -1)
    If IsEmpty(.Value) Or chn = "" Then Exit Sub
    If Not IsNumeric(.Value) Then Exit Sub
    Dim cel As Range, dlg&, lig%
    dlg = Cells(Rows.Count, 8).End(3).Row: If dlg < 5 Then Exit Sub
    Set cel = Range("H5:H" & dlg).Find(chn, , -4163, 1, 1)
    If cel Is Nothing Then Exit Sub
    lig = cel.Row: Cells(lig, 9) = Cells(lig, 9) + .Value
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. ;)

soan
Cliquez pour agrandir...
Bonjour Soan, merci beaucoup pour ton code, il fonctionne parfaitement.
Je te souhaite une bonne soirée. Henry.
 
Vote positif 0 Vote négatif

Discussions similaires

N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
550
crocrocro
C
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
848
jojo4738
J
Droopyougo
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
293
Droopyougo
Droopyougo
M
  • Résolu(e)
XL 2021 copier des cellules
Réponses
9
Affichages
142
Phil69970
Phil69970
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
383
iliess
I
B
  • Question Question
XL 2016 VBA et valeur cible sur cellules différentes
Réponses
3
Affichages
220
Lolote83
L
P
  • Résolu(e)
Microsoft 365 Macro qui change l'épaisseur du contour d'une forme
Réponses
11
Affichages
282
pat66
P
Phoenix23
  • Résolu(e)
XL 2021 Classement de noms en fonction de mois ou années dans un tableau
Réponses
10
Affichages
218
AtTheOne
AtTheOne
C
  • Question Question
Microsoft 365 Change d'image en fonction du changement de valeur d'une cellule (résolu)
Réponses
5
Affichages
368
Cougar
C
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
fanch55
N
  • Question Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
283
mapomme
mapomme
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
344
Leo98
L
2
  • Résolu(e)
Microsoft 365 Filtrer plage afficher cellules avec plus d'une valeur dans une colonne
Réponses
6
Affichages
325
2pi_N
2
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
277
pvander
P
B
  • Question Question
Microsoft 365 Valeur 1er cellule d'un tableau filtré
Réponses
8
Affichages
210
TooFatBoy
TooFatBoy
L
  • Résolu(e)
Microsoft 365 compter si une plage de cellules contient, 1 valeur toute les 3 lignes
Réponses
6
Affichages
237
laplayast
L
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
657
loloboc
L
R
  • Résolu(e)
Microsoft 365 Tableau convocations
2
Réponses
29
Affichages
1 K
Rosario.
R
M
  • Question Question
XL 2021 COPIER valeur d'une cellule pour constituer un tableau de résultats
Réponses
13
Affichages
374
matlatarte
M
N
  • Question Question
XL 2016 Afficher un "X" dans un tableau semaine en fonction d'un récurrence Horaire
Réponses
2
Affichages
215
nicobush
N

Membres actuellement en ligne

Aucun membre en ligne actuellement.
0 membres et 63 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 283
Messages
2 118 012
Membres
113 408
dernier inscrit
lausablk