Erreur de compîlation

Bonjour à tous,

Depuis 2 h00 je rame sur ce code alors que je l'ai toujours utilisé

Voici le Code :

Private Sub Image5_Click()
Sheets("Articles").Select
If Me.ComboBoxArtFacturée.ListIndex = -1 Then Exit Sub
MsgBox ComboBoxArtFacturée
ligne = Me.ComboBoxArtFacturée.ListIndex + 4   ' Le 1er élément (numéro 0) de la ComboBox est sur la ligne 1
 With Sheets("Articles")
' Rectifie les cellules correspondantes dans la feuille Article
    .Range("K" & ligne) = Me.Qté ' Adresse
  End With
End Sub

l'erreur donnée voir fichier joint.

Quelqu'un pourrait me dire qu'est e que j'ai zappé?

Merci d'avance

Amicalement

Noel

bonjour

Vérifier si vous avez toujours

1. Un control (ComboBox) nommé ComboBoxArtFacturée

2. Un contrôle nommé Qté

3. un variable "ligne" bien déclarer ou initialiser

pour le variable "ligne" vous pouvez le vérifier par

msgbox ligne

Bonjour à tous

Noel tu devrais savoir qu'un fichier est toujours plus utile qu'une copie d’écran.... pour qu'on puisse t'aider

fred

Re

Bonjourt Fred,

Je sais mais j'ai essayé de faire un fichier qui fonctionne avec ces éléments.

Mais dans mon projet il ne fonctionne pas je ne sais pas pourquoi . De plus "Ligne" n'est aucune part.

Amir, j'ai mis MsgBox Ligne il me donne toujours la même erreur.

Je vais essayer de voir tout ça à tête reposée.

@+

Amicalement

Noel

Bonjour

Veut dire quoi : De plus "Ligne" n'est aucune part.

Lancer ce code et dit moi ce que les msgbox donnent

Private Sub Image5_Click()
MsgBox Me.ComboBoxArtFacturée
If Me.ComboBoxArtFacturée.ListIndex = -1 Then Exit Sub
MsgBox Me.ComboBoxArtFacturée.ListIndex + 4   
End Sub

Dans ce cas précise au moins la ligne surlignée dans l'erreur de compilation... cela pourrais aiguillé un peu plus...

fred

Bonjour à tous,

Cause la plus probable de l'erreur : Qté n'existe pas !

Cordialement.

Bonjour à tous,

Bonjour Amir,

Pour ton code le 1er résultat MsgBox de ComboBoxArtFacturée me donne bien le contenu choisi

2ème MsgBox me donne bien la quantité.

Bonjour Fred,

C'est sur cette ligne de code qui pose problème : ligne = Me.ComboBoxArtFacturée.ListIndex + 4

Bonjour Ferrand,

La preuve ce que le TextBox "Qté existe belle et bien par rapport au MSG que m'a demandé d'essayer AMir.

Merci de votre aide. C'e'st bien la 1ère fois que ce type de problème apparaît, car j'ai essayé de faire la même chose en créant un nouveau fichier et ça fonctionne très bien.

En tout cas je ne comprends pas le pourquoi.

@+

Amicalement

Noel

Re,

C'est bon j'ai trouvé la solution.

voici le code qui me permet de gérer le stock.

Dim ligne As Integer
If Me.ComboBoxArtFacturée.ListIndex = -1 Then Exit Sub
ligne = Me.ComboBoxArtFacturée.ListIndex + 4   ' Le 1er élément (numéro 0) de la ComboBox est sur la ligne 1
 With Sheets("articles")
' Rectifie les cellules correspondantes dans la feuille Article
    .Range("K" & ligne) = Format(Me.Qté, "#") + CDbl(.Range("K" & ligne))
  End With

Merci beaucoup de votre aide

Amicalement

Noel