recherche et combinaison ... Pour expert

[Freddy]

Bonjour,

Je souhaite faire une manip un peu complexe


voila j ai 2 tableau, un fixe, l autre généré en auto...

Jaimerais que le fixe fasse une opération à partir des données du tableau mobile... en fait qu'il regarde dans le tableau mobile si les colonnes A B et C correspondent à une combinaison et si tel est le cas qu'il renvoie la valeure correspondante D ... pour plus de précision et de clartées, j ai joint un fichier excel...

Merci par avance si un génie passe par la et peut m aider ! 😉

Fred

 

[porcinet82]

Re : recherche et combinaison ... Pour expert

Salut,

Tout d'abord je suis loin d'etre un expert, mais je me permet tout de meme de te répondre.
Deja, veux-tu une formule ou une macro ? (Moi, je ne peux te proposer qu'une macro...)
Ensuite, tes combinaisons sont toujours celles que tu proposes dans ton tableau 2 ? Et est-ce que ton tableau 2 se trouve toujours au meme endroit sur ta feuille?

@+

 

[Tibo]

Re : recherche et combinaison ... Pour expert

Bonjour Freddy et bienvenue, salut Romain,

En C32, sur la base d'une formule matricielle :

=INDEX($D$1:$D$25;SOMME(LIGNE($A$10:$A$25)*($A$10:$A$25&$B$10:$B$25&$C$10:$C$25="EP#X")))+INDEX($D$1:$D$25;SOMME(LIGNE($A$10:$A$25)*($A$10:$A$25&$B$10:$B$25&$C$10:$C$25="EP##")))

à valider par CTRL + MAJ + ENTREE

A adapter sur le même principe pour les autres cellules

@+

 

[porcinet82]

Re : recherche et combinaison ... Pour expert

re, Salut Tibo,

Comme Freddy ne donne pas signe de vie et que je ne veux pas que les formulistes prennent les devant, je propose une petite macro :

Sub test()
Dim combi As Variant, cpt1&, cpt2&, cpt3&, cpt4&, cpt5&
For i = 10 To Range("A65536").End(xlUp).Row
    combi = Cells(i, 1).Value & Cells(i, 2).Value & Cells(i, 3).Value
    Select Case combi
    Case "EP#X", "EP##"
        cpt1 = cpt1 + Cells(i, 4).Value
    Case "NBBX", "NBUX"
        cpt2 = cpt2 + Cells(i, 4).Value
    Case "NBFX", "NBRX", "NB#X"
        cpt3 = cpt3 + Cells(i, 4).Value
    Case "NBB#", "NBU#", "NBV#", "LP##"
        cpt4 = cpt4 + Cells(i, 4).Value
    Case "NBF#", "NBR#", "NB##", "FO##", "###"
        cpt5 = cpt5 + Cells(i, 4).Value
    End Select
Next i
Cells(32, 3).Value = cpt1
Cells(33, 3).Value = cpt2
Cells(34, 3).Value = cpt3
Cells(35, 3).Value = cpt4
Cells(36, 3).Value = cpt5
End Sub

@+

 

[Freddy]

Re : recherche et combinaison ... Pour expert

MDR bon merci merci ... ! ca fait plaisir d etre aidé ...pour la macro heu la je crois que tu m'as sur estimé 😉 ... bon histoire que je puisse tester et le cas échéant devenir moi meme un adepte de ce type de langage, purrais tu m en dire un peu plus sur la marche à suivre pour l utiliser ? :s oui oui la je passe pour un neuneu ... enfin 🙄 😛 ptet que dans un an je serais un champion 😉 lool

merci encore

Fred

 

[Staple1600]

Re : recherche et combinaison ... Pour expert

Bonjour


Puisque je suis de passage


Tu sélectionnes la macro test , tu la copies (-> CTRL+C )

Tu ouvres ton fichier Excel
Puis ALT+F11 (ouverture de l'éditeur VBE)

La tu fais Insertion/Module

Ensuite tu colles la macro dans ce module (CTRL+V)
Tu fermes VBE

Ce qui te fais retourner dans Excel
ALT+F8 et enfin tu choisis test, puis Exécuter



EDIT : Comme j'avais un peu de temps voila c'est fait

macro insérée dans le fichier joint

 

[porcinet82]

Re : recherche et combinaison ... Pour expert

re,

Alors pour utiliser la macro, il te suffit de fire Alt+F11 ou click droit sur l'onglet de la feuille (sur laquelle se trouve tes tableaux) et visualiser le code.
Ensuite, tu colles le code dans le module de la feuille concernée (dans le cas de ton fichier exemple, Feuil1).
Pour la lancer, tu fait F5 ou tu click sur le triangle vert (qui ressemble a un bouton lecture) dans la barre de menu.

Quelques détails sur le code :

Sub test()
[COLOR=seagreen]'déclaration des variables[/COLOR]
Dim combi As Variant, cpt1&, cpt2&, cpt3&, cpt4&, cpt5&
[COLOR=seagreen]'on boucle sur les cellules de la colonne A, de la ligne 10 à la derniere cellule non vide[/COLOR]
For i = 10 To Range("A65536").End(xlUp).Row
   [COLOR=seagreen]'la variable combi recoit le contenue des cellules ligne i colonne A, B et C[/COLOR]
    combi = Cells(i, 1).Value & Cells(i, 2).Value & Cells(i, 3).Value
    [COLOR=seagreen]'select case : on choisis le Case pour lequel la valeur de combi correspond[/COLOR]
    Select Case combi
    [COLOR=seagreen]'si combi vaut EP#X ou EP## alors cpt1=cpt1+la valeur de la cellule ligne i colonne D[/COLOR]
    Case "EP#X", "EP##"
        cpt1 = cpt1 + Cells(i, 4).Value
    [COLOR=seagreen]'idem que ci-dessus avec NBBX et NBUX[/COLOR]
    Case "NBBX", "NBUX"
        cpt2 = cpt2 + Cells(i, 4).Value
    Case "NBFX", "NBRX", "NB#X"
        cpt3 = cpt3 + Cells(i, 4).Value
    Case "NBB#", "NBU#", "NBV#", "LP##"
        cpt4 = cpt4 + Cells(i, 4).Value
    Case "NBF#", "NBR#", "NB##", "FO##", "###"
        cpt5 = cpt5 + Cells(i, 4).Value
    End Select
Next i
[COLOR=seagreen]'les cellules lignes 32 à 36, colonne C prend les valeurs des cpt remplit dans le Select Case[/COLOR]
Cells(32, 3).Value = cpt1
Cells(33, 3).Value = cpt2
Cells(34, 3).Value = cpt3
Cells(35, 3).Value = cpt4
Cells(36, 3).Value = cpt5
End Sub

@+

Edition : Salut Staple, pas rafraichit...

 

[Staple1600]

Re : recherche et combinaison ... Pour expert

Bonjour porcinet


T'as plus qu'a mettre ta macro commentée dans le fichier que j'ai précédemment joint avec ta macro non commentée 😛

 

[porcinet82]

Re : recherche et combinaison ... Pour expert

re,

Arf, quelle travail d'équipe tout de même !!! 🙂
Le voila alors...

@+

 

[Staple1600]

Re : recherche et combinaison ... Pour expert

Re


Rapidité, efficacité (zut je suis en train de me prendre pour Delarue 😛)


Je m'en retourne ajouter les formules de monsieur Tibo


pour avoir un fichier avec double effet (VBA/Formule)



(Tiens cette fois-ci je me prends pour Kiss cool)

 

[Freddy]

Re : recherche et combinaison ... Pour expert

Pu... j suis fan ! bon je retiens la macro ! et je m y mets de suite ! allé hop en apprentissage ! je commence today...première lecon : comment lancer la dite macro avec un bouton ! (j ai deja trouvé des tuto à ce sujet)
Avec ca y a moyen d epater la terre entiere 😉 lool

allé merci à bientot!

Fred