Bonjour,
je suis bloquée, je viens d'établir un formulaire et j'aimerai à partir des données saisies dans les combobox cliquer sur un CommandButton1 et que mes données s'enregistrent dans une feuille excel à la suite. Ex: 15/07/2009 ligne A3 et le 16/07/2009 ligne juste en dessous A4.
Merci d'avance pour votre aide.
Ci-joint mon dossier:
Private Sub CommandButton1_Click()
msg = "CONFIRMATION ENREGISTREMENT DU STOCK"
Title = "VOULEZ VOUS CONTINUER?"
reponse = MsgBox(Title, vbYesNoCancel, msg)
If reponse = 6 Then
MsgBox jour + " " + mois + " " + textannee.Value
Range("A3") = jour
Range("B3") = mois
Else
MsgBox "Annulation effectuée"
End If
End Sub
Private Sub mois_Change()
End Sub
je suis pas sure d'avoir compris,ton exemple n'est pas très clair.
Moi ce que j'ai compris c'est :
1.l'utilisateur choisit des valeurs
2.il enregistre
3.Les valeurs sont marquées dans une ligne X
4.l'utilisateur choisit des valeurs
5.il enregistre
6.Les valeurs sont marquées dans une ligne X+1
Le plus simple, c'est que tu crées une varaible générale dans ton code. A chaque fois que tu écris une ligne, tu implémente ta variable.
'dans général
Dim compteur_ligne = 3 'si 3 est la premiere ligne que tu utilises
Private Sub CommandButton1_Click()
msg = "CONFIRMATION ENREGISTREMENT DU STOCK"
Title = "VOULEZ VOUS CONTINUER?"
reponse = MsgBox(Title, vbYesNoCancel, msg)
If reponse = 6 Then
MsgBox jour + " " + mois + " " + textannee.Value
Cells(1,compteur_ligne) = jour '******
Cells(2,compteur_ligne) = mois '******
Compteur_ligne = compteur_ligne + 1
Else
MsgBox "Annulation effectuée"
End If
End Sub
End sub
Si tu veux une explication plus détaillé, n'hésite pas.
--< Signé : Zock >--
Vous n’avez pas trouvé la réponse que vous recherchez ?
Merci pour le programme, mais je n'y arrive toujours pas, j'ai indiqué Dim compteur_ligne=3 'dans General
dans commandbutton/ click
Dimcompteur_ligne = 3 ' je suis obligée de coller Dim au mot compteur sinon j'ai un message d'erreur
Private Sub CommandButton1_Click()
msg = "CONFIRMATION ENREGISTREMENT DU STOCK"
Title = "VOULEZ VOUS CONTINUER?"
reponse = MsgBox(Title, vbYesNoCancel, msg)
If reponse = 6 Then
MsgBox jour + " " + mois + " " + textannee.Value
Cells(1, compteur_ligne) = jour
Cells(2, compteur_ligne) = mois
compteur_ligne = compteur_ligne + 1
Else
MsgBox "Annulation effectuée"
End If
End Sub
End Sub
Excel me dit quand j'exécute => fin de compilation: instruction incorrecte à l'extérieur d'une procédure.
Merci pour l'aide
Dim compteur_ligne 'désolé pour l'erreur
Private Sub UserForm_Initialize() ' au lancement de ta feuille la variable prendra la valeur 3
compteur_ligne = 3
End Sub
Private Sub CommandButton1_Click()
msg = "CONFIRMATION ENREGISTREMENT DU STOCK"
Title = "VOULEZ VOUS CONTINUER?"
reponse = MsgBox(Title, vbYesNoCancel, msg)
If reponse = 6 Then
MsgBox jour + " " + mois + " " + textannee.Value
Cells(compteur_ligne, 1) = jour '<====== j'avais interverti colonne et ligne
Cells(compteur_ligne, 2) = mois
compteur_ligne = compteur_ligne + 1
Else
MsgBox "Annulation effectuée"
End If
End Sub
Zock - Pensez à accepter les réponses[size=50]
/size
Une autre question, comment fait-on pour ajouter une formule de calcul, j'aimerai pour un bouton qu'il se calcule automatiquement en fonction de la donnée d'un autre bouton.
ex: il y a 50 personnes => je veux 20% de cet effectif soit 10 personnes. J'ai pensé indiquer =>
If Nombre_pers.value then 'textbox
Nombre_w= Nombre_pers*0.20 'textbox
end if
et après j'indiquerai, Cells(compteur_ligne, 5) = Nombre_w dans mon bouton de commande
sauf que celà ne marche pas malheureusement.
NB: lorsque je sort de mon application pour indiquer une nouvelle date celà efface la donnée de la 2ième ligne pour ajouter la nouvelle donnée?