XL 2013 recherche multicritère dans un tableau avec des données d'un form

  • Initiateur de la discussion Initiateur de la discussion kangourou01
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

kangourou01

Guest
Bonjour à tous
Je pense que mon problème est simple mais comme je débute en VBA j'ai encore quelque soucis.
Apres avoir parcouru le site j'ai pas trouvé mon bonheur dommage.
j'ai un document avec 2 sheets le premier me sert a enregistrer des information en provenance d'un form
le second sheet me sert de Data base
mon soucis est que je n'arrive pas a aller chercher une donnée dans ma DB avec 2 information saisie dans le formulaire
j'ai essayer d'utiliser la formule
Sheets("tracking").Range("K" & L).Formula = "=SUMPRODUCT((DB!$F$2:$F$25=ComboBox2.value)*(DB!$G$2:$G$25=ComboBox1.value)*(DB!$H$2:$H$25))"
mais j'ai un superbe #name
une aide serait la bien venue car je pense mon problème est l'utilisation de donnée en provenance du form
par avance merci
 

Pièces jointes

Hello
la syntaxe pour écrire ta formule n'est pas bonne
Perso. je passe toujours par une variable "Formule" pour voir ce que j'écris

VB:
Private Sub CommandButton1_Click()
Dim L, NUM, LL As Integer
If MsgBox("Confirmez vous ajout Pots?", vbYesNo, "Demande de confirmation") = vbYes Then
    L = Sheets("tracking").Range("b65536").End(xlUp).Row + 1
    LL = Sheets("tracking").Range("A65536").End(xlUp).Row + 1
    NUM = 1
    For I = 1 To TextBox1.Value
        Range("B" & L).Value = ComboBox2
        Range("C" & L).Value = NUM
        Range("D" & L).Value = ComboBox1
        Range("E" & L).Value = ListBox1.Value
        Range("F" & L).Value = TextBox2
        formule = "=SUMPRODUCT((DB!$F$2:$F$25=""" & ComboBox2.Value & """)*(DB!$G$2:$G$25=""" & ComboBox1.Value & """)*(DB!$H$2:$H$25))"
        Sheets("tracking").Range("K" & L).Formula = formule
       
        L = L + 1
        NUM = NUM + 1
    Next
End If
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
872
Retour