Microsoft 365 Mettre en cdbl avec if isnumeric

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
590
Réponses
8
Affichages
905
Retour