Problème vba- exel affichage de données
Résolu/Fermé
rem's
-
15 mai 2008 à 21:18
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 mai 2008 à 10:59
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 mai 2008 à 10:59
A voir également:
- Problème vba- exel affichage de données
- Formule exel - Guide
- Effacer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Exel 2013 - Télécharger - Tableur
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
15 mai 2008 à 22:33
15 mai 2008 à 22:33
Rappeuse-love, qu'est ce que tu br.... ici tu as des forums zizic pour ca
c'est pas vrai, ces cageots!!!
Bonsoir Rems,
Difficille de voir sur un code incomplet: mais je pencherai pour un problème de portée de variables: globales ou publiques
Donc, si tu peux fournir les codes ou au moins la structure, on pourra peut-être t'aider
dans l'attente,
Cordialement,
Michel
c'est pas vrai, ces cageots!!!
Bonsoir Rems,
Difficille de voir sur un code incomplet: mais je pencherai pour un problème de portée de variables: globales ou publiques
Donc, si tu peux fournir les codes ou au moins la structure, on pourra peut-être t'aider
dans l'attente,
Cordialement,
Michel
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
16 mai 2008 à 18:57
16 mai 2008 à 18:57
Bonsoir,
Tu appelles apparemment une macro: Call position(pos) a t'elle une influence sur la macro?
mais je n'ai pas vu une valeur affectée à cette variable déclarée privée de type integer "pos"
bonne soirée
Michel
Tu appelles apparemment une macro: Call position(pos) a t'elle une influence sur la macro?
mais je n'ai pas vu une valeur affectée à cette variable déclarée privée de type integer "pos"
bonne soirée
Michel
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
17 mai 2008 à 09:13
17 mai 2008 à 09:13
Bonjour
je repete ma remarque
je n'ai pas vu une valeur affectée à cette variable déclarée privée de type integer "pos"
autrement dit:
1/tu utilises pos sans lui donner une valeur dans ta procédure et a donc comme valeur 0
2/ Qu"est ce cette que cette sub ou function "position' avec comme parametre pos=Zéro ?
je repete ma remarque
je n'ai pas vu une valeur affectée à cette variable déclarée privée de type integer "pos"
autrement dit:
1/tu utilises pos sans lui donner une valeur dans ta procédure et a donc comme valeur 0
2/ Qu"est ce cette que cette sub ou function "position' avec comme parametre pos=Zéro ?
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
>
rem's
17 mai 2008 à 10:59
17 mai 2008 à 10:59
Re,
Merci de cocher résolu sur lepost
Merci de cocher résolu sur lepost
16 mai 2008 à 18:16
voilà mon algorithme:
'ceci est un commentaire
Sub Facruration_Click() 'nom du programme ; marque le début du programme
'déclaration des variable
'string <-> chaîne de caractères
'integer <-> entier
'Double <-> réel
'Boulean <-> booléen
Dim num_c As String
Dim nb_s As Integer
Dim heure_a, heure_d As Double
Dim duree_t, duree_f As Double
Dim cout_h, cout_f As Double
Dim pos As Integer
'affectation d'une valeur à la constante
cout_h = 15
'saisie du nouméro
num_c = InputBox("Saisir le numéro", , , 100, 100)
'saisie de l'heure 1
heure_a = InputBox("Saisir l'heure", , , 100, 100)
'saisie de l'heure 2
heure_d = InputBox("Saisir l'heure", , , 100, 100)
'saisie du nombre
nb_s = InputBox("saisir le nombre", , , 100, 100)
'calcul de la durée t
duree_t = (heure_d - heure_a) * nb_s
'aajustement des heures f
If duree_t > 5 Then
duree_f = Int(duree_tot)
Else
duree_f = duree_t
End If
'calcul du coût
cout_f = cout_h * duree_t
If cout_f > 100 Then
cout_f = 100
Else
cout_f = cout_f
End If
'recherche de la ligne sur laquelle se placeront les éléments affichés
Call Position(pos)
'affichage (transfert)des valeurs des variables dans la feuille de calcul
Cells(pos, 1).Value = num_c
Cells(pos, 2).Value = heure_a
Cells(pos, 3).Value = heure_d
Cells(pos, 4).Value = nb_s
Cells(pos, 5).Value = duree_t
Cells(pos, 6).Value = duree_f
Cells(pos, 7).Value = cout_f
End Sub 'marque la fin du programme
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub