Problème vba- exel affichage de données
Résolu
rem's
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je n'arrive pas a afficher les valeurs des variables dans la feuille de calcul
voici la parti de l'agorithme
'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
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
merci
je n'arrive pas a afficher les valeurs des variables dans la feuille de calcul
voici la parti de l'agorithme
'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
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
merci
Configuration: Windows XP Firefox 2.0.0.14
3 réponses
-
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-
salut,
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
-
-
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 -
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 ?
