[VBA] Problème de programmation
Fermé
Cassie
-
21 avril 2006 à 16:26
Armojax Messages postés 1860 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 2 octobre 2024 - 22 avril 2006 à 11:51
Armojax Messages postés 1860 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 2 octobre 2024 - 22 avril 2006 à 11:51
A voir également:
- [VBA] Problème de programmation
- Application de programmation - Guide
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
5 réponses
Lust
Messages postés
243
Date d'inscription
mercredi 28 septembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007
123
21 avril 2006 à 18:14
21 avril 2006 à 18:14
Commence déjà par allez dans le menu débogage... compiler... y a un tas d'erreur au niveau des variables non déclarée...je me suis arreter à 3 mais je suis sur qu'apres les correction de variable non déclarée il va peut etre te trouver d'autres erreur .
Poour éviter ces probleme la, fais tjr compiler avant de tester ton codeet vérifer les erreurs.
Poour éviter ces probleme la, fais tjr compiler avant de tester ton codeet vérifer les erreurs.
Utilisateur anonyme
21 avril 2006 à 19:42
21 avril 2006 à 19:42
Bonjour,
ici : Dim Date_séjour, datefact As Date
et : Date_séjour(Num_sej) = Cells(i, "f")
la variable est un tableau ou pas ?
de plus, comme me rappelait un talentueux CCMiste, les déclaration sont incomplète.
Dim Nom_client(30), Adresse_client(30), CP_client(30), Ville_client(30), Num_sej, Num_séjour, numfact As String
Dim i, Nbre_pers(30), Prix_jour_pers(30), TotalHT_1, Nbjour As Integer
Dim Date_séjour, datefact As Date
devrait se faire :
Dim Nom_client(30) As String, Adresse_client(30) As String
Dim CP_client(30) As String, Ville_client(30) As String
Dim Num_sej As String, Num_séjour As String, numfact As String
Dim i As Integer, Nbre_pers(30) As Integer
Dim Prix_jour_pers(30) As Integer, TotalHT_1 As Integer
Dim Nbjour As Integer
Lupin
ici : Dim Date_séjour, datefact As Date
et : Date_séjour(Num_sej) = Cells(i, "f")
la variable est un tableau ou pas ?
de plus, comme me rappelait un talentueux CCMiste, les déclaration sont incomplète.
Dim Nom_client(30), Adresse_client(30), CP_client(30), Ville_client(30), Num_sej, Num_séjour, numfact As String
Dim i, Nbre_pers(30), Prix_jour_pers(30), TotalHT_1, Nbjour As Integer
Dim Date_séjour, datefact As Date
devrait se faire :
Dim Nom_client(30) As String, Adresse_client(30) As String
Dim CP_client(30) As String, Ville_client(30) As String
Dim Num_sej As String, Num_séjour As String, numfact As String
Dim i As Integer, Nbre_pers(30) As Integer
Dim Prix_jour_pers(30) As Integer, TotalHT_1 As Integer
Dim Nbjour As Integer
Lupin
blux
Messages postés
26756
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
1 avril 2025
3 332
21 avril 2006 à 21:37
21 avril 2006 à 21:37
Salut,
tout à fait d'accord pour les déclarations :
Dim A, B as String
déclare B comme string mais A comme variant...
On peut cependant tout mettre dans un variant, mais on parfois des effets de bord...
tout à fait d'accord pour les déclarations :
Dim A, B as String
déclare B comme string mais A comme variant...
On peut cependant tout mettre dans un variant, mais on parfois des effets de bord...
Utilisateur anonyme
21 avril 2006 à 23:14
21 avril 2006 à 23:14
Bonjour,
j'ai probablement fait trop de VBS depuis quelques temps
j'en avais oublié la déclaration de chaque variable.
ceci dit, je crois qu'il y aurait beaucoup de ménage à faire :
lors de l'encapsulation la déclaration des variables aurait
du apparaitre avec sa structure, voici ce que cela me donne :
de ceci qui a été soumis en dernière instance :
Dim Nom_client(30) As String, Adresse_client(30) As String
Dim CP_client(30) As String, Ville_client(30) As String
Dim Num_sej As String, Num_séjour As String, numfact As String
Dim i As Integer, Nbre_pers(30) As Integer
Dim Prix_jour_pers(30) As Integer, TotalHT_1 As Integer
Dim Nbjour As Integer
En fait devrait ressembler à ceci :
et tu adresse ainsi :
MaVariable = Facture(Compteur).Nom_Client
autre recommandation, évite les caractères accentués dans
le code lui-même, nom de variables, nom d'objets, etc...
Lupin
j'ai probablement fait trop de VBS depuis quelques temps
j'en avais oublié la déclaration de chaque variable.
ceci dit, je crois qu'il y aurait beaucoup de ménage à faire :
lors de l'encapsulation la déclaration des variables aurait
du apparaitre avec sa structure, voici ce que cela me donne :
de ceci qui a été soumis en dernière instance :
Dim Nom_client(30) As String, Adresse_client(30) As String
Dim CP_client(30) As String, Ville_client(30) As String
Dim Num_sej As String, Num_séjour As String, numfact As String
Dim i As Integer, Nbre_pers(30) As Integer
Dim Prix_jour_pers(30) As Integer, TotalHT_1 As Integer
Dim Nbjour As Integer
En fait devrait ressembler à ceci :
Type Enregistrement
Nom_Client As String
Adresse_Client As String
CP_Client As String
Ville_Client As String
Nbre_Pers As Integer
Prix_Jour_Pers As Integer
End Type
Type Sejournement
Num_Sej As String
Num_Sejour As String
NumFact As String
End Type
Dim Compteur As Integer
Dim TotalHT_1 As Integer
Dim Nbjour As Integer
Dim Sejour As Sejournement
Dim Facture(30) As Enregistrement
et tu adresse ainsi :
MaVariable = Facture(Compteur).Nom_Client
autre recommandation, évite les caractères accentués dans
le code lui-même, nom de variables, nom d'objets, etc...
Lupin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Armojax
Messages postés
1860
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
2 octobre 2024
1 528
22 avril 2006 à 11:51
22 avril 2006 à 11:51
Hello,
Sans être entré dans le vif du code, il y a une petite malfaçon dans la boucle de la procédure Sport.
C'est soit :
While
.../...
Wend
soit
Do While
.../...
Loop
Sans être entré dans le vif du code, il y a une petite malfaçon dans la boucle de la procédure Sport.
C'est soit :
While
.../...
Wend
soit
Do While
.../...
Loop
21 avril 2006 à 18:50
Après vérification, j'ai ajouté les variables et corrigé les erreurs (à l'origine, je n'avais pas ajouté la partie "sport", elle je ne l'avais préparé que sur bloc note en attendant d'avoir trouvé le problème de la partie première).
Malheureusement, j'ai encore le problème du blocage... J'ai fait "compiler" comme tu m'as conseillé, mais ça n'a rien donné de plus... L'erreur vient donc surtout de la première partie, et j'ai passé tant de temps dessus que je vois plus rien...
En tout cas, merci beaucoup pour ta réponse (me répète lol)