Sujet Précédent Sujet Suivant

Probleme simple code vb sur excel

Fermé
moulinh Messages postés 1 Date d'inscription jeudi 16 mai 2013 Statut Membre Dernière intervention 16 mai 2013 - 16 mai 2013 à 10:43
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 16 mai 2013 à 10:53
BBonjour, j'ai besoin d'aide, je debute en vb, et je pense avoir de petite erreur de plus un message m'affiche end sub attendu quand je clic sur le bouton dans mon tableau excel

http://hpics.li/62fdfe1

j'ai realiser un formulaire et en fin un tableau qui recpitule quelque informations du formulaire, le bouton afficher tableau doit permettre d'afficher dans ce recapitulatif les informations du dessus
voici mon code ... MERCI

Private Sub Calcul1_Click()
nom_employes = Cells("8, 2").Value
cout_kms = Cells("30, 4").Value
cout_total = Cells("35, 3").Value

Call position(lig)

'Afficher
Cells(40, 1).Value = nom_employes
Cells(40, 2).Value = cout_kms
Cells(40, 3).Value = cout_total
End Sub

Private Sub AFFICHERTABLEAU_Click()
Sub position(lig As Integer)
Dim lu As String
lig = 40
lu = Feuil1.Cells(lig, 1)
While lu <> ""
lig = lig + 1
lu = Feuil1.Cells(lig, 1)
Wend
End Sub
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 309
16 mai 2013 à 10:47
Bonjour,

comme tu nous montre pas la macro "position".....

d'autre part ta syntaxe est fausse
nom_employes = Cells("8, 2").Value
à remplacer par
nom_employes = Cells(8, 2).Value
0
Réponse 2 / 2
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié par pilas31 le 16/05/2013 à 10:51
Bonjour,

Bonjour michel il manque quand même un end sub pour cette sub :

Private Sub AFFICHERTABLEAU_Click()
edit : qui est suivie de
Sub position(lig As Integer)


A+

Cordialement,
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 309
Modifié par michel_m le 16/05/2013 à 10:57
Bonjour Pilas ;-)

merci j'avais lu trop vite

pour notre ami moulinh
qu'il y a t'il dans cette macro
Private Sub AFFICHERTABLEAU_Click()

D'AUTRE PART, TU ES PRIE DE NE PAS METTRE DES DOUBLONS DE TON MESSAGE AILLEURS
http://www.commentcamarche.net/forum/affich-27819092-probleme-end-sub-attendu
0