Microsoft 365 Mettre en cdbl avec if isnumeric

eric72

XLDnaute Accro
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
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 

Discussions similaires

Réponses
6
Affichages
384
Réponses
8
Affichages
617

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly