Allez chercher une donnée dans un tableau et l'afficher dans un UserForm

**Tony4152** · 10/03/2017, 13h33

Hello,

Je continue dans ma lancée et vous bassine derechef avec mon fichier de suivi de vols.

À chaque compagnie (3 colonnes) et pour chaque pays (8 Lignes) est attribué chaque lundi un nouveau numéro de "bon pétrole" pour les pleins. Ce qui me fait 24 cases à remplir manuellement dans un tableau que j'ai créé dans un onglet "Listes" de mon classeur (manœuvre que je voudrais automatiser mais bon !)
Sur mon UserForm, en fonction de la compagnie du pilote pour laquelle il vole et la nationalité de cette compagnie, doit s'afficher dans un TxtBox le numéro du "bon pétrole".
Je me suis dit qu'en cas de changement dans la "TxtBoxPleinCarburant", je pouvais mettre des Select Case imbriqués comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub TxtBoxPleinCarburant_Change ()
Select Case Compagnie
     Case "Air France"
         Select Case  Nation
                Case Allemagne 
                    TxtBonPetrole.value = worksheets("Listes").Cells("J8") ´ J8 = case tableau. 
                Case USA 
                     TxtBonPetrole.value = worksheets("Listes").Cells("J9") ´ J9 = case tableau. 
                 Etc...
          End select
 
     Case "Lufthansa"
           Select Case  Nation
                Case Allemagne 
                    TxtBonPetrole.value = worksheets("Listes").Cells("H8") ´ H8 = case tableau. 
                Case USA 
                     TxtBonPetrole.value = worksheets("Listes").Cells("H9") ´ H9 = case tableau. 
                 Etc...
          End select
 
      Case "British Airways"
          Select Case  Nation
                Case Allemagne 
                    TxtBonPetrole.value = worksheets("Listes").Cells("I8") ´ I8 = case tableau. 
                Case USA 
                     TxtBonPetrole.value = worksheets("Listes").Cells("I9") ´ I9 = case tableau. 
                 Etc...
          End select
End Select

Donc à chaque nouveau plein, devrait s'afficher le numéro de bon !
Ben je vous le donne en mille !?! Ça marche pô 🙃

**NenciariniL** · 11/03/2017, 09h36

Salut, je débute en VBA mais voici ce que je te propose, j'ai fais des essais et cela marche.

**Tony4152** · 11/03/2017, 11h44

Bonjour,

Je suis sur ipad donc dans l'impossibilité d'accéder à l'environnement développeur et donc au code.
Cependant, je me suis envoyé ton fichier en espérant pouvoir le réceptionner sur le PC du boulot et voir ce que cela donne cet après-midi !
Je te tiens évidemment au courant de l'aide que tu m'apportes.

Merci pour ton retour 😉

**anasecu** · 11/03/2017, 22h47

Bonsoir,

Envoyé par Tony4152

Ben je vous le donne en mille !?! Ça marche pô 🙃

Vu la façon dont tu décris tes données, j'aurais plutôt vu une formule qui me parait plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    TxtBonPetrole.Value = Application.Index(Range("bon pétrole"), Application.Match(Nation, Range("pays"), 0), Application.Match(Compagnie, Range("Compagnies"), 0))

à toi de mettre les bonnes plages aux bons endroits.

**Tony4152** · 12/03/2017, 06h09

Envoyé par NenciariniL

Salut, je débute en VBA mais voici ce que je te propose, j'ai fais des essais et cela marche.

Bojour NenciariniL,

C'est bien ce que je craignais, je n'ai pas pu récupérer ton fichier Excel car nos PC sont verrouillés et ne servent qu'à l'apprentissage. Rageant.
Donc à moins de copier ton code en direct dans un message pour que je puisse y jeter un œil, je n'ai pas d'autre solution, désolé 😞

Bonjour anasecu,

Je m'applique à regarder ta formule ce matin et te tiens au courant des que possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    TxtBonPetrole.Value = Application.Index(Range("bon pétrole"), Application.Match(Nation, Range("pays"), 0), Application.Match(Compagnie, Range("Compagnies"), 0))

Merci à toi 👍

**NenciariniL** · 14/03/2017, 15h26

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For i = 2 To 4
    If ListBox1 = Cells(1, i) Then
        VarCol = i
    End If
Next
 
For J = 2 To 9
    If ListBox2 = Cells(J, "A") Then
      VarLig = J
    End If
Next
 
TextBox1 = Cells(VarLig, VarCol)

Nom : Tony.jpg
Affichages : 231
Taille : 58,7 Ko

Dans ListBox1 Les compagnies
Dans ListBox2 Les nations
Le résultat s'affiche dans TextBox1
Donc si tu sélectionne en "compagnie" la valeur A dans la ListBox1 et dans "nation" la valeur A dans la listBox2, renvois la valeur de AA de la cellule B2.

**Tony4152** · 14/03/2017, 16h30

Envoyé par NenciariniL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For i = 2 To 4
    If ListBox1 = Cells(1, i) Then
        VarCol = i
    End If
Next
 
For J = 2 To 9
    If ListBox2 = Cells(J, "A") Then
      VarLig = J
    End If
Next
 
TextBox1 = Cells(VarLig, VarCol)

Après lecture, voilà qui simplifie grandement mes imbrications de code.
Je vais voir ça. Merci à toi. Je donnerai suite des que possible. 👍

**Tony4152** · 14/03/2017, 16h34

Bonjour anasecu,

J'ai tenté de faire quelque chose mais rien n'y fait. Je ne dois pas comprendre un truc là.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    TxtBonPetrole.Value = Application.Index(Range("bon pétrole"), Application.Match(Nation, Range("pays"), 0), Application.Match(Compagnie, Range("Compagnies"), 0))

Est-ce que ces fonction sont purement Excel ? En ce cas faut-il utiliser la formule WoksheetFunction.Application.Index… ?

**anasecu** · 14/03/2017, 21h49

Bonsoir,

Envoyé par Tony4152

Est-ce que ces fonction sont purement Excel ? En ce cas faut-il utiliser la formule WoksheetFunction.Application.Index… ?

C'est une formule excel classique INDEX / EQUIV qui semble totalement correspondre à ta description.
WorksheetFunction étant implicite, je ne l'avais pas mise mais si tu veux tu peux l'écrire ainsi en adaptant avec tes plages
et en remplaçant "Nation" et "Compagnie" par les noms de ton formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Application.WorksheetFunction
    TxtBonPetrole.Value = .Index(Range("B2:D8"), .Match(Nation, Range("A2:A8"), 0), .Match(Compagnie, Range("B1:D1"), 0))
End With

Je te joins un petit exemple.

**unparia** · 15/03/2017, 07h33

Bonjour anasecu

Je te joins un petit exemple.

Fichiers attachés Fichiers attachés

Type de fichier : xlsm tony4152.xlsm (18,7 Ko, 1 affichages)

A rapprocher de :

C'est bien ce que je craignais, je n'ai pas pu récupérer ton fichier Excel car nos PC sont verrouillés et ne servent qu'à l'apprentissage. Rageant.
Donc à moins de copier ton code en direct dans un message pour que je puisse y jeter un œil, je n'ai pas d'autre solution, désolé 😞

(ce qui exclue bien des risques que le responsable sécurité ne veut surtout bien évidemment pas courir)

**Tony4152** · 15/03/2017, 08h14

(ce qui exclue bien des risques que le responsable sécurité ne veut surtout bien évidemment pas courir)

Oui j'en sui tout à fait conscient. 😌

**Tony4152** · 15/03/2017, 08h17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Application.WorksheetFunction
    TxtBonPetrole.Value = .Index(Range("B2:D8"), .Match(Nation, Range("A2:A8"), 0), .Match(Compagnie, Range("B1:D1"), 0))
End With

Je te joins un petit exemple.[/QUOTE]

Merci pour l'exemple. En fait je crois mettre trompé dans les plages !
Je réessaie cet après-midi. 👍

**anasecu** · 15/03/2017, 08h29

Bonjour unparia,

Envoyé par unparia

(ce qui exclue bien des risques que le responsable sécurité ne veut surtout bien évidemment pas courir)

Je suis bien d'accord avec toi, encore qu'il ne faut pas être parano, mais le code il est totalement dans mon message.
Le risque d'ouvrir un classeur existe bien sûr mais la falsification d'un lien, même anodin est tout aussi important.
Seul un PC sans Internet, sans prise USB, sans lecteur CD est aseptisé mais est-ce souhaitable ?

Comme Tony4152 a du mal à le mettre en musique, je lui mets l'exemple et c'est à lui de savoir si le classeur lui donnera la clé d'utilisation.

Bonne journée.

**unparia** · 15/03/2017, 08h35

A Anasecu
Sauf qu'un classeur Excel est en soi un exécutable "indirect" (y compris sans macros) et qu'il se prête très facilement à l'installation (généralement des chevaux de Troie successifs) de ce qui serait ultérieurement utilisé pour installer du bien plus grave.

Amitiés.

EDIT : il est d'ailleurs assez probable que le même responsable sécurité a également inhibé l'exécution de certains scripts, à commencer par VBS.

Il est également probable que dans la boîte ou travaille Tony, les lots de machines (développement, qualification, etc ...) sont totalement séparés et que des freins distincts et progressifs existent en fonction de la vocation.

**anasecu** · 15/03/2017, 08h58

Bonjour unparia,

Envoyé par unparia

Sauf qu'un classeur Excel est un exécutable "indirect" (y compris sans macros) et qu'il se prête très facilement à l'installation (généralement des chevaux de Troie successifs) de ce qui serait ultérieurement utilisé pour installer du bien plus grave.

Tout à fait d'accord mais c'est beaucoup moins utilisé car les cibles potentielles sont restreintes et l'investissement en temps important.
Le même exécutable "indirect" intégré à des pages anodines (qui passent les contrôles de sécurité) est beaucoup plus efficace
car tu crois lire un excellent article et tu engranges petit à petit ce qu'il faut pour rentrer dans ton système.
Ce code est même rajouté à l'insu de l'émetteur et parfois par les services de sécurité étatiques.

Il faut en être conscient mais comme le risque d'accident ne nous empêche pas de prendre la voiture,
sinon il ne reste plus qu'à s'enterrer dans un bunker antiatomique. ;-)

**Marc-L** · 15/03/2017, 12h28

Bonjour !

Envoyé par Tony4152

En ce cas faut-il utiliser la formule WoksheetFunction.Application.Index… ?

La bonne syntaxe - juste en respectant la logique de l'aide VBA interne, tout y est ! - est Application.WorksheetFunction.Index …
Donc WorksheetFunction est superflue, source même d'erreur, mieux vaut ne pas l'utiliser !

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**unparia** · 15/03/2017, 12h44

Bonjour Marc
Comment cela ? Tu ignorais que l'on peut depuis peu développer à l'aide d'un wok ? Ce sont les Chinois, qui ont découvert cette nouvelle méthode de cuisson (au demeurant parfaite pour les codes spaghettis, mas pas seulement)

Il est vrai que depuis peu également (SMS obligeant) on ne sait plus si c'est vraiment "wok" ou ""wok" écrit pour "walk"...
OK. Je sors. Patapé.

**Marc-L** · 15/03/2017, 14h43

Salut Jacques !

Invité · 15/03/2017, 20h26

Envoyé par unparia

Bonjour Marc
Comment cela ? Tu ignorais que l'on peut depuis peu développer à l'aide d'un wok ? Ce sont les Chinois, qui ont découvert cette nouvelle méthode de cuisson (au demeurant parfaite pour les codes spaghettis, mas pas seulement)

Il est vrai que depuis peu également (SMS obligeant) on ne sait plus si c'est vraiment "wok" ou ""wok" écrit pour "walk"...
OK. Je sors. Patapé.

Et que proposes tu pour un pastaphariste?