faire un tableau avec condition

[alaumajo]

Bonjour,

la demande du jour concerne la création d'un tableau rempli par des données qui seront sélectionnées par un choix.
Comme c'est pas forcement claire je joint un fichier.

Si le tableau pouvais être dimensionné au résultat ce serait idéal, mais je rêve peut être 🙄

Merci de votre aide

 

[pierrejean]

Re : faire un tableau avec condition

Bonjour alaumajo

Vois si cela te convient

 

[alaumajo]

Re : faire un tableau avec condition

C'est juste génial Pierrejean 🙂

Un grand merci pour cette aide.

 

[Celeda]

Re : faire un tableau avec condition

Bonjour,

SVP, Une petite variante PierreJean : si la liste était dans une autre feuille ? (feuille toto par ex)
quel ajout de code à apporter, svp.
Merci

 

[Gorfael]

Re : faire un tableau avec condition

Salut Celeda et le forum
Pas sûr de comprendre ta question
En VBA, la valeur par défaut est Activesheet => si tu veux que ça concerne une autre feuille, il faut le lui dire :
Range("A1") : concerne la cellule A1 de la feuille active.
Sheets("Toto").range("A1") : concerne la cellule A1 de l'onglet nommé Toto
A+
Edit :

Private Sub ComboBox1_Change()
Dim F As Worksheet
Dim Ligne As Long, Col As Integer

Set F = Sheets("Feuil2")
Ligne = 11
Col = 7

With F
    .Range("G11:H65536").Clear
    For n = 7 To Range("A65536").End(xlUp).Row
        If Range("C" & n) = ComboBox1 Then
            Range("A" & n & ":B" & n).Copy Destination:=.Cells(Ligne, Col)
            Ligne = Ligne + 1
        End If
    Next n
    .Range("G11:H" & .Range("G65536").End(xlUp).Row).Borders.LineStyle = xlContinuous
End With
End Sub

 

[pierrejean]

Re : faire un tableau avec condition

Bonjour Celeda

Et bise si tu le permets

Modification de la macro combo pour une liste située en feuille toto colonne A

Sub combo()
Sheets("Feuil1").ComboBox1.Clear
Set dico = CreateObject("Scripting.dictionary")
For n = 1 To Sheets("toto").Range("A65536").End(xlUp).Row
x = Sheets("toto").Range("A" & n)
dico(x) = x
Next
Sheets("Feuil1").ComboBox1.List = dico.keys
End Sub

Edit : Salut Gorfael

 

[Celeda]

Re : faire un tableau avec condition

Bonjour,

Merci PierreJean et bise en retour

J'allais remercier Gorfaël pour son coup de main et j'allais lui dire,
super cela marche quand j'ai vu ta réponse.
Voilà ce que j'ai fais :

Sub combo()
Sheets("Operator").ComboBox1.Clear
Set dico = CreateObject("Scripting.dictionary")
For n = 15 To Sheets("STATUS").Range("C65536").End(xlUp).Row
x = Sheets("STATUS").Range("F" & n)
dico(x) = x
Next
Sheets("Operator").ComboBox1.List = dico.keys
End Sub

Et jusqu'à là tout va bien car j'arrive à avoir la liste Operator dans la combo :
ouf!!! (vous savez que je décortique pour y arriver).

Seulement maintenant je n'obtiens pas les données à afficher qui se trouvent à partir de c15 et d15.
Et voilà ce que j'ai fait :

Private Sub ComboBox1_Change()
ligne = 11
col = 7
Range("G11:H65536").Clear
For n = 15 To Range("F65536").End(xlUp).Row
If Range("F" & n) = ComboBox1 Then
Range("C" & n & "😀" & n).Copy Destination:=Cells(ligne, col)
ligne = ligne + 1
End If
Next n
Range("G11:H" & Range("G65536").End(xlUp).Row).Borders.LineStyle = xlContinuous
End Sub

Il y a quelque chose que je fais mal....😕
Les données se trouvent dans la feuille STATUS, la combo dans la feuille Operator,
les noms sont en F15:F..............., les données à afficher sont en C15 et D15.

Merci à tous les deux.


Allo alaumajo : sorry pour ma petite intrusion.🙂

 

[pierrejean]

Re : faire un tableau avec condition

Re

Si toutes les données sont dans la feuille Status

.....
For n = 15 To Sheets("STATUS").Range("F65536").End(xlUp).Row
If Sheets("STATUS").Range("F" & n) = ComboBox1 Then
Sheets("STATUS").Range("C" & n & ":D" & n).Copy Destination:=Cells(ligne, col)
....

C'est un peu ce que te disais Gorfael à savoir que si tu t'adresses a la feuille active tu peux omettre de specifier son nom mais dans le cas contraire ne pas oublier de le specifier

 

[Celeda]

Re : faire un tableau avec condition

Bonjour,

Yes, oui :
"C'est un peu ce que te disais Gorfael à savoir que si tu t'adresses a la feuille active tu peux omettre de spécifier son nom mais dans le cas contraire ne pas oublier de le specifier"

Oui, oui, oui!!!! le nom de la feuille!!!

Merci à vous deux.
Zibous!!!