Microsoft 365 Mettre en cdbl avec if isnumeric

[eric72]

Bonjour à tous,

J'ai un anmalie evec ce code récupéré et je ne comprends pas pourquoi, auriez-vous une idée sur cette question???
Dim V, I&, reponse
reponse = MsgBox(" Confirmer la Modification de ce Produit", vbYesNo + vbCritical)
If reponse = vbYes Then
V = Array(CbClient, TxtCompteClient, TxtPrixHTClient, CbTVAClient, TxtPrixTTCClient)
For I = 0 To UBound(V)
If IsNumeric(V(I)) Then V(I) = CDbl(V(I))
Next
With [TbClient].ListObject
.ListRows(ListClient.ListIndex + 1).Range.Value = V
End With
Merci beaucoup
Eric

 

[sousou]

C'est sans doute ceci
For I = 0 To UBound(V)-1
ubound(v) renvoi 5
de o à 5 ca fait 6

 

[eric72]

Bonjour et Merci sousou

Ce qui veut dire? Comment dois je corriger?
J e ne comprends pas bien
Merci

 

[sousou]

tu mets
For I = 0 To UBound(V)-1

 

[eric72]

Ca ne change rien il s'arrete la dessus:
If IsNumeric(V(I)) Then
L'indice n'appartient pas à la sélection!!!
Moi pas comprendre...

 

[sousou]

Quelle est la valeur de i à cet instant ?

Si tu peux envoyer le fichier....

 

[eric72]

Et Voilà
Merci beaucoup

 

[sousou]

autant pour moi c'est quant on utilise une listebox le -1

donc pour toi:
For I = 1To UBound(V)

 

[eric72]

Ah super ça marche!!!!
Merci sousou
Très bonne soirée à tous...

 

[mapomme]

autant pour moi c'est quant on utilise une listebox le -1

Bonjour @sousou 🙂

Aucun rapport avec une Listbox.
L'auteur a utilisé l'option Option Base 1
Donc les arrays avec dimensions non déclarées explicitement commencent à l'indice 1 et non 0.

 

[sousou]

Yes

 

[mapomme]

L'auteur a utilisé l'option Option Base 1
Donc les arrays avec dimensions non déclarées explicitement commencent à l'indice 1 et non 0.

Pour ma part, j'ai renoncé à l'option "Option base 1" :

• donc mes tableaux commencent toujours avec des indices depuis 0
• sauf si je veux autre chose et alors je déclare explicitement les indices
• avec : Dim monTablo ( 1 to 5) ou Dim autreTablo (- 5 to 3) par exemple

 

[patricktoulon]

Bonsoir à tous
de toute tacon quand on doute
for i= lbound(v) to ubound(v)

y a plus de base 1 ou 0 a se soucier
😉