Discussion :

[Dragonouest]

Bonjour,

J'ai des références dans une feuille excel dans la colonne A. J'aimerais que mon programme compte le nombre de référence ayant la même ref que dans une ComboBox (ChoixFRAISE) et que le résultat soit afficher dans une TextBox (TextBox10).

Ma ligne de code qui bug est :

Code :

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

1
2
y = Me.ChoixFRAISE.Value
Application.WorksheetFunction.CountIf(Range("A2:A65000"), y) = Me.TextBox10.Value

Quand je lance mon programme, un message d'erreur apparait avec marqué : "Affectation à une constante non autorisée" (le programme est lancé à partir d'un bouton).

J'ai essayé en affectant une variable y pour la valeur qui sera sélectionnée dans la combobox mais je sais pas si c'est la bonne solution... De plus, j'ai aussi essayé avec Range(A2,A65000), ça ne marche pas non plus.

Merci d'avance pour votre aide !

[riaolle]

Bonjour,
Attention :

Code :

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

1
2
3
Range("A1").Value = "toto"            'j'affecte la valeur "toto" à la cellule A1
Range("A1").Value = Range("A2").Value    'j'affecte la valeur de la cellule A2 à la cellule A1
Range("A2").Value = Range("A1").Value    'j'affecte la valeur de la cellule A1 à la cellule A2

Regarde bien ton égalité.

[antonysansh]

Bonjour,

Cette ligne :

Code :

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

Application.WorksheetFunction.CountIf(Range("A2:A65000"), y) = Me.TextBox10.Value

n'a pas de sens.

Tu es en train de dire que le résultat de la formule doit être la valeur de la TextBox10. Donc impossible.

Tu dois donc écrire l'inverse :

Code :

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

Me.TextBox10.Value = Application.WorksheetFunction.CountIf(Range("A2:A65000"), y)

[Dragonouest]

Merci à tous pour vos réponses, ca marche parfaitement ! Désolé pour la question bete mais je débute en VBA et j'apprends tout seul ^^

Merci !

[Marc-L]

Bonjour,

la ligne n°2 telle quelle n'a aucun sens !   La destination du résultat devant être à gauche du signe égal …

Et .WorksheetFunction est inutile, Application suffisant largement …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …