Problème vba- exel affichage de données
Résolu rem's -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 17 mai 2008 à 10:59
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 17 mai 2008 à 10:59
A voir également:
- Problème vba- exel affichage de données
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Exel 2013 - Télécharger - Tableur
- Affichage double ecran - Guide
- Problème affichage fenêtre windows 10 - Guide
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
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
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
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 ?
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