Message erreur incompatibilité de type
Philbon60
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
Philbon60 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Philbon60 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Bonjour
Je début en VBA excel
je développe une appli de compta pour une association
j'en suis à la saisie d'écriture
j'ai créé un formulaire qui alimente une listbox avec 7 champs
et j'arrive ensuite à les transférer dans ma feuille appelée "Journal"
maintenant ce que je voudrais faire c'est comparer les totaux des 2 derniers champs de ma listbox pour voir si mon écriture est équilibrée
et je me heurte toujours au meme message d'incompatibilité
j'ai essayé de faire une chose toute simple, faire apparaitre le contenu d'un de mes champs de listbox dans un message box et toujours le message d'erreur
voila le peit bout de code qui ne fonctionne pas
Dim i As Variant
Dim cible As Variant
Dim Resultat As Variant
Resultat = 0
cible = LstListeLigneEcriture.ListCount
MsgBox LstListeLigneEcriture(0, 3) c'est cette ligne qui fait apparaitre le message d'erreur
For i = 1 To cible
Resultat = Resultat + LstListeLigneEcriture(i - 1, 5)
Next
Pouvez-vous m'aide svp
Merci d'avance
Philbon
Je début en VBA excel
je développe une appli de compta pour une association
j'en suis à la saisie d'écriture
j'ai créé un formulaire qui alimente une listbox avec 7 champs
et j'arrive ensuite à les transférer dans ma feuille appelée "Journal"
maintenant ce que je voudrais faire c'est comparer les totaux des 2 derniers champs de ma listbox pour voir si mon écriture est équilibrée
et je me heurte toujours au meme message d'incompatibilité
j'ai essayé de faire une chose toute simple, faire apparaitre le contenu d'un de mes champs de listbox dans un message box et toujours le message d'erreur
voila le peit bout de code qui ne fonctionne pas
Dim i As Variant
Dim cible As Variant
Dim Resultat As Variant
Resultat = 0
cible = LstListeLigneEcriture.ListCount
MsgBox LstListeLigneEcriture(0, 3) c'est cette ligne qui fait apparaitre le message d'erreur
For i = 1 To cible
Resultat = Resultat + LstListeLigneEcriture(i - 1, 5)
Next
Pouvez-vous m'aide svp
Merci d'avance
Philbon
A voir également:
- Message erreur incompatibilité de type
- Recuperer message whatsapp supprimé - Guide
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Message du pere noel gratuit whatsapp - Accueil - Messagerie instantanée
