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

E

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
 
Trier par date Trier par votes

mapomme

XLDnaute Barbatruc
Supporter XLD
mapomme à dit:
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

E
  • Résolu(e)
Microsoft 365 Modification dans base
Réponses
6
Affichages
584
ChTi160
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
486
Excellearning
E
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
700
Messan
N
  • Question Question
XL 2019 Mettre en gras éléments du graphique avec macro
Réponses
4
Affichages
673
Nasseuz
N
C
  • Résolu(e)
Autres msgbox : mettre en garde du risque de fermer un fichier
Réponses
7
Affichages
765
fanch55
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
606
marie3107
M
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
456
Mika07
M
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
1 K
un internaute
U
M
  • Résolu(e)
XL 2019 Excel - générer .PDF avec envoie mail
Réponses
12
Affichages
2 K
Mika07
M
Y
  • Résolu(e)
XL 2016 Transfère des données réparties sur des lignes à une base de données
Réponses
12
Affichages
2 K
soan
S
Y
  • Question Question
XL 2019 Copie des données des différentes lignes sur une base de données
Réponses
10
Affichages
1 K
YANNISE
Y
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
885
Hasco
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
1 K
MONADESIGN82
M
A
  • Question Question
Microsoft 365 Génération d'une feuille en Pdf et envoie par outlook
Réponses
5
Affichages
1 K
patricktoulon
S
  • Résolu(e)
XL 2019 VBA envoyer un mail outlook avec une pièce jointe
Réponses
1
Affichages
2 K
dysorthographie
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
R
  • Question Question
envoi mail avec pièce jointe
Réponses
1
Affichages
2 K
fanch55
M
  • Question Question
Microsoft 365 Evolution macro - VBA - Copier/coller en fonction d'une ligne
Réponses
6
Affichages
1 K
melinavy
M
M
  • Question Question
XL 2019 VBA Remplacer des cellule par valeur tableau et Aide Userform
Réponses
1
Affichages
860
fanch55
L
  • Question Question
XL 2016 Mettre en gras et souligné la date dans une macro
Réponses
9
Affichages
899
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…