Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
636
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…