Microsoft 365 Erreur de code

[Marvin57]

Bonjour à toutes et à tous,

alors avant de préparer un fichier modèle ( ce qui va prendre pas mal de temps), je vous place une image de l'erreur que j'ai dans un code.

Peut-être cela suffira pour me donner un conseil ou me guider, sinon il va falloir que je prépare un modèle. Bref, voila l'erreur du code :

Merci d'avance à vous.

Marvin57

 

[Compte Supprimé 979]

Bonjour Marvin57

Perso j'ajouterais un test de l'objet Result car s'il est Nothing = bug

A+

 

[Marvin57]

Bonjour Marvin57

Perso j'ajouterais un test de l'objet Result car s'il est Nothing = bug

A+

Bonjour BrunoM45,

Merci pour votre retour.

Par contre, comment je peux faire ce test de l'objet S'il vous plaît ?

 

[Compte Supprimé 979]

Re,

If Not Result Is Nothing Then
Endif

A+

 

[Marvin57]

Re,

If Not Result Is Nothing Then
Endif

A+

Re,

est-ce que j'ai bien placé votre code ?

 

[sylvanu]

Bonjour Marvin,
Par pitié, utilisez la balises </> pour le code ( à droite de l'icone GIF ), c'est quand même beaucoup mieux qu'une image. D'autant qu'un copier coller est plus rapide.

Essayez de rajouter avec le "Set result ..." :

    Test = IsError([Tab_1[ID]].Find(Listbox10, LookIn:=xlValues))
    If Test = False Then MsgBox "Valeur non trouvée."

Car Listbox10 pourrait ne pas être trouvé. Comme par ex confusion entre nombre et chaine.

 

[Compte Supprimé 979]

@Marvin57 vous êtes sérieux de vouloir faire du VBA

 

[Marvin57]

@Marvin57 vous êtes sérieux de vouloir faire du VBA

Je ne suis pas un Pro dans ce domaine ! Mais on ne peut pas être bon partout.

 

[Marvin57]

Bonjour Marvin,
Par pitié, utilisez la balises </> pour le code ( à droite de l'icone GIF ), c'est quand même beaucoup mieux qu'une image. D'autant qu'un copier coller est plus rapide.

Essayez de rajouter avec le "Set result ..." :

    Test = IsError([Tab_1[ID]].Find(Listbox10, LookIn:=xlValues))
    If Test = False Then MsgBox "Valeur non trouvée."

Car Listbox10 pourrait ne pas être trouvé. Comme par ex confusion entre nombre et chaine.

Bonjour sylvanu,

Merci pour le soutien.
Voici comment j'ai placé votre code. Est-ce correct ?
Car il me donne l'erreur suivante


[/CODE]
Private Sub CommandButton5_Click() 'SORTIE DU JOUR
Dim derligne%
Dim test%
'On Error Resume Next

If TextBox8 = "" Then
MsgBox "Merci de renseigner la quantité."
TextBox8.SetFocus
Exit Sub
End If
If CDbl(TextBox8.Value) > CDbl(TextBox4.Value) Then
MsgBox ("La quantité sortie est supérieure au stock restant, rectifiez votre donnée.")
TextBox8 = ""
TextBox8.SetFocus
Exit Sub
End If
With [Tab_S]
If .Item(1, 2) <> "" Then derligne = .Rows.Count + 1 Else derligne = 1
.Item(derligne, 1) = TextBox1
.Item(derligne, 2) = TextBox8
.Item(derligne, 3) = ComboBox2
.Item(derligne, 3) = ComboBox12
.Item(derligne, 4) = TextBox5
End With

With [Tab_1]

If Not Result Is Nothing Then
End If
test = IsError([Tab_1[ID]].Find(ListBox10, LookIn:=xlValues))
If test = False Then MsgBox "Valeur non trouvée."
Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues)
position = Result.Row - .Row + 1
.Item(position, 6) = .Item(position, 6) - CDbl(TextBox8.Value)
End With

 

[sylvanu]

Re, bonjour Bruno,
Evidemment si vous testez Result avant de le calculer, ça va pas le faire.
Remplacez par :

With [Tab_1]
  test = IsError([Tab_1[ID]].Find(ListBox10, LookIn:=xlValues))
  If test = False Then MsgBox "Valeur non trouvée."
  Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues)
  position = Result.Row - .Row + 1
  .Item(position, 6) = .Item(position, 6) - CDbl(TextBox8.Value)
End With

Le but est simplement de savoir si l'erreur vient de là. Si c'est le cas on affinera.

Car il me donne l'erreur suivante

Très intéressant. Et laquelle ?

 

[Marvin57]

Re, bonjour Bruno,
Evidemment si vous testez Result avant de le calculer, ça va pas le faire.
Remplacez par :

With [Tab_1]
  test = IsError([Tab_1[ID]].Find(ListBox10, LookIn:=xlValues))
  If test = False Then MsgBox "Valeur non trouvée."
  Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues)
  position = Result.Row - .Row + 1
  .Item(position, 6) = .Item(position, 6) - CDbl(TextBox8.Value)
End With

Le but est simplement de savoir si l'erreur vient de là. Si c'est le cas on affinera.


Très intéressant. Et laquelle ?

valeur non trouvée

 

[sylvanu]

ceci explique cela.
Que contient ListBox10 à ce moment, et que contient la cellule qu'il est censé trouvé ?
Peut être une erreur de syntaxe, peut être une chaine comme "123" comparé au nombre 123 ....

 

[Marvin57]

ceci explique cela.
Que contient ListBox10 à ce moment, et que contient la cellule qu'il est censé trouvé ?
Peut être une erreur de syntaxe, peut être une chaine comme "123" comparé au nombre 123 ....

Re,

Bizzare !!
Je viens de refaire plusieurs essais et j'ai aussi refermé et ouvert à nouveau le fichier et Mystère ! plus aucune erreur !
Alors je vais voir si demain il fonctionne et je vous tiendrai informé OK.

Listbox10 contient les données d'une bas de stock et lors du click dans la listbox il m'affiche les données des articles du stock dans des textbox au-dessus de la listbox.

Merci en tout cas pour votre aide.

A + sylvanu

Et désolé BrunoM45, mais je n'arrive pas à comprendre tout dans ces codes, même si j'y m'intéresse toutes les semaines, mais bon, peut-être un jour....

 

[Marvin57]

@Marvin57 vous êtes sérieux de vouloir faire du VBA

Et désolé BrunoM45, mais je n'arrive pas à comprendre tout dans ces codes, même si j'y m'intéresse toutes les semaines, mais bon, peut-être un jour.... qui sait.

Marvin57

 

[Marvin57]

ceci explique cela.
Que contient ListBox10 à ce moment, et que contient la cellule qu'il est censé trouvé ?
Peut être une erreur de syntaxe, peut être une chaine comme "123" comparé au nombre 123 ....

Bonjour sylvanu,

après plusieurs essais, dans tous les sens, tout fonctionne.

Merci beaucoup pour votre aide sur cette demande.

A bientôt certainement.

Marvin57