Re: => DEMO Formules écrites par UserForm
re bonjour Steplof
pour le 1
critere = ListBox1.Value
Formule = "=COUNTIF(B9:B17, " & critere & " )"
=> NON erreur 1004
pour le 2
critere = ListBox1.Value
Formule = "=COUNTIF(B8:B18, """ & critere & """ )"
=> OUIIIIIIIIIIIIIIIIIIIIIIIIIII bravo !!!
à force de trafiquer moi j'avais gardé bêtement
'critere = ListBox1.Value
'Formule = "=COUNTIF(B9:B17, & """ & critere & """)"
et je tournais en rond !!! lol
tu vois comme quoi il suffit d'un tout petit truc !!! un simple
& de trop ! et crac la cata...... mais faut toujours persévérer !!! merci STeplof
Donc
SAV pour ceux / celles qui voudraient utiliser ce code !!! il marche dans l'état, mais c'est plus propre et plus rapide comme suit
Remplacer la macro CALCUL par celle-ci
Private Sub CALCUL()
'en collaboration Thierry / Steplof
Dim Formule As String
Dim critere As String
critere = ListBox1.Value
Formule = "=COUNTIF(B8:B18, """ & critere & """)"
Worksheets("feuil1").Range("b19").Formula = Formule
TextBox1.Value = Sheets("feuil1").Range("b19").Value
Label1.Caption = Sheets("feuil1").Range("b19").Value
End Sub
l'union fait la force !!! (vive la Belgique dont c'est la devise nationale !!)
@+Thierry