macro événementielle double clic générée par un UserFor

[Presse_citron]

Bonjour à tous,

Je voudrais d'abord féliciter tout ceux qui contribuent à animer ce Forum, j'ai parcouru la presque totalité des archives, et je ne m'imaginais pas tout ce que l'on pouvait faire avec Excel. A mon state parfois un peu compliqué voir beaucoup trop…..

J’ai essayé de faire une application pour gérer mon stock. Malheureusement, j'ai atteint les limites de mes compétences.

Le problème consiste à recopier sur la feuille facture les lignes de référence qui sont générée par un Userform. Séparément et par un double clic.
J'utilise Office 2003.
Avec d’avance tous mes remerciements à celui ou celle ou ceux qui s’intéresseront à mon cas. Je vous souhaite une bonne année avec un zest d’avance.

 

[jp14]

Re : macro événementielle double clic générée par un UserFor

Bonsoir

Voici une macro qui devrait répondre au problème
Private Sub CommandButton1_Click()

Dim colonnen As String
Dim colonne1a As String
Dim dl1 As Long
Dim nomfeuille1 As String

nomfeuille1 = "Facture"
colonne1a = "A"
' contrôle des données

If Not IsNumeric(QtBox.Value) Then
MsgBox " la quantité doit être une valeur numérique"
QtBox.Value = 0
Exit Sub

If QtBox.Value = 0 Then
MsgBox " la quantité doit être supérieure à zéro "
Exit Sub



End If
If Not IsNumeric(PrixBox.Value) Then
MsgBox " le prix doit être une valeur numérique"
PrixBox.Value = 0
Exit Sub
End If


dl1 = Sheets(nomfeuille1).Range(colonne1a & "65536").End(xlUp).Row + 1


Sheets(nomfeuille1).Range("A" & dl1) = CDate(DateBox.Value)
Sheets(nomfeuille1).Range("B" & dl1) = RefBox.Value
Sheets(nomfeuille1).Range("C" & dl1) = RefFournisseurs.Value
Sheets(nomfeuille1).Range("D" & dl1) = QtBox.Value
Sheets(nomfeuille1).Range("E" & dl1) = PrixBox.Value

CommandButton2_Click' fermeture de l'usf

End Sub


JP

 

[Presse_citron]

Re : macro événementielle double clic générée par un UserFor

Bonsoir,je te remercie pour cette réponse ultra rapide.

 

[Presse_citron]

Re : macro événementielle double clic générée par un UserFor

Bonjour jp14,
je viens de tester la macro sa plante. j'ai remplacé la mienne et impossible de saisir une donnée.
Je pense certainement que ma question est mal formulée, j'ai vu une macro avec before_double_click et je ne sais pas si c'est possible de l'inclure dans la macro de l'user form pour quelle ce recopie à chaque ligne indépendament de l'autre pour pouvoir ensuite renvoyer soit la ligne 10 ou 12 sur la feuille Facture. Le classeur à l'origine fait plus de 850 Ko, il doit y avoir un lézard avec une des autres fonction. Je te remercie encore pour avoir pris le temps de regarder. P_C....