A voir également:
- [EXCEL] Sortir une liste d'un TCD
- Liste déroulante excel - Guide
- Tcd excel - Guide
- Excel liste déroulante en cascade - Guide
- Déplacer une colonne excel - Guide
- Calculer une moyenne sur excel - Guide
4 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 705
16 août 2006 à 23:43
16 août 2006 à 23:43
bonjour
si j'ai bien compris ta demande, avec tes données en feuil1,
ta liste applications, la cellule choix et le résultat en feuil2,
cela peut se faire avec la macro suivante à mettre dans la feuil2
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Address = "$B$2" Then ' si la cellule de choix est en B2
Dim i As Integer, l As Integer
Cells(2, 4).Resize(Cells(65256, 4).End(xlUp).Row, 3).ClearContents
i = 2 ' les résultats sont en ligne 2 et suivantes, colonnes D et E (4,5)
For l = 2 To Worksheets("feuil1").Cells(65256, 1).End(xlUp).Row
If Worksheets("feuil1").Cells(l, 3).Value = sel.Value Then
Cells(i, 4).Value = Worksheets("feuil1").Cells(l, 1).Value
Cells(i, 5).Value = Worksheets("feuil1").Cells(l, 2).Value
i = i + 1
End If
Next l
End If
End Sub
tu as le classeur de test à cette adresse :
https://www.cjoint.com/?iqxP6kyCMa
merci de nous tenir au courant du résultat
si j'ai bien compris ta demande, avec tes données en feuil1,
ta liste applications, la cellule choix et le résultat en feuil2,
cela peut se faire avec la macro suivante à mettre dans la feuil2
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Address = "$B$2" Then ' si la cellule de choix est en B2
Dim i As Integer, l As Integer
Cells(2, 4).Resize(Cells(65256, 4).End(xlUp).Row, 3).ClearContents
i = 2 ' les résultats sont en ligne 2 et suivantes, colonnes D et E (4,5)
For l = 2 To Worksheets("feuil1").Cells(65256, 1).End(xlUp).Row
If Worksheets("feuil1").Cells(l, 3).Value = sel.Value Then
Cells(i, 4).Value = Worksheets("feuil1").Cells(l, 1).Value
Cells(i, 5).Value = Worksheets("feuil1").Cells(l, 2).Value
i = i + 1
End If
Next l
End If
End Sub
tu as le classeur de test à cette adresse :
https://www.cjoint.com/?iqxP6kyCMa
merci de nous tenir au courant du résultat
ok, merci beaucoup!
Le code donne exactement le resultat que j'attendais (j'ai eu un peu de mal a comprendre ce que ca faisait, mais je me suis fait aider un peu).
Le fichier joint est bien fait, me reste plus qu'a transférer tout ca dans mon fichier, en changeant les references...
Encore merci a toi! ^^
Le code donne exactement le resultat que j'attendais (j'ai eu un peu de mal a comprendre ce que ca faisait, mais je me suis fait aider un peu).
Le fichier joint est bien fait, me reste plus qu'a transférer tout ca dans mon fichier, en changeant les references...
Encore merci a toi! ^^
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 705
23 août 2006 à 18:46
23 août 2006 à 18:46
bonjour Aurelien,
Merci pour ce compte rendu car cela fait toujours plaisir
de voir que l'aide a été utile et c'est bien de le commenter
comme tu l'as fait pour voir comment améliorer.
@+
Merci pour ce compte rendu car cela fait toujours plaisir
de voir que l'aide a été utile et c'est bien de le commenter
comme tu l'as fait pour voir comment améliorer.
@+
Bon, je viens de rentrer de vacances, j'avais fait les modif sur le fichier avant de partir et c'est tout bon!
Mes collegues ont commencé a exploiter le fichier et a le remplir petit a petit...
Encore merci a toi pour cette macro, j'aurais pas pu y arriver tout seul!
@+
PS: Je crois qu'on peut clore le sujet! ;)
Mes collegues ont commencé a exploiter le fichier et a le remplir petit a petit...
Encore merci a toi pour cette macro, j'aurais pas pu y arriver tout seul!
@+
PS: Je crois qu'on peut clore le sujet! ;)