Problème VBA
ceninine76
Messages postés
29
Statut
Membre
-
kadeh Messages postés 341 Statut Membre -
kadeh Messages postés 341 Statut Membre -
Bonjour,
J'ai un problème avec mon programme en VBA sous excel.
En fait je réalise un programme de ventes par correspondance et je souhaiterai que lorsque je tape la référence de mon article dans le formulaire que la désignation et le prix s'affiche automatiquement.
Merci de me répondre c'est assez urgent.
Céine :)
J'ai un problème avec mon programme en VBA sous excel.
En fait je réalise un programme de ventes par correspondance et je souhaiterai que lorsque je tape la référence de mon article dans le formulaire que la désignation et le prix s'affiche automatiquement.
Merci de me répondre c'est assez urgent.
Céine :)
2 réponses
Bonjour,
il ya une autre chose plus simple
par un double clic sur la cellule contenant le code article, transfert automatique des données article que tu veux vers ton userform?? si ça te convient je t'envoi le code
@+
il ya une autre chose plus simple
par un double clic sur la cellule contenant le code article, transfert automatique des données article que tu veux vers ton userform?? si ça te convient je t'envoi le code
@+
Alt+F11 selectionne la feuille article ,clic droit , code , et insère ce code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F1 As Range, a As String, ligne As Integer
Set F1 = Application.Intersect(Target, Range("A3:A65535"))'tu choisi la colonne ou se trouve le code article
If (F1 Is Nothing) Then
Else
a = ActiveCell.Value
ligne = ActiveCell.Row
'tu remplace frmfacture par ton userform
'tu remplace Textréfarticle1 par le nom de ton textbox
'tu remplace respectivement 5,4,2,1 par les numéros de colonnes ou se trouvent les données articles
'
If frmfacture.Textréfarticle1.Text = "" Then
frmfacture.Texttvaarticle1.Value = Cells(ligne, 5).Value
frmfacture.Textprixunitairearticle1.Value = Cells(ligne, 4).Value
frmfacture.TextDésignationarticle1.Value = Cells(ligne, 2).Value
frmfacture.Textréfarticlearticle1.Value = Cells(ligne, 1).Value
'tu fais la même chose pour les autre article
'le nombre de "end if " est egal au "nombre des article +1"
GoTo trouve
End If
End if
Exit Sub
trouve: MsgBox "Article ajouté avec succés"
End Sub
@+
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F1 As Range, a As String, ligne As Integer
Set F1 = Application.Intersect(Target, Range("A3:A65535"))'tu choisi la colonne ou se trouve le code article
If (F1 Is Nothing) Then
Else
a = ActiveCell.Value
ligne = ActiveCell.Row
'tu remplace frmfacture par ton userform
'tu remplace Textréfarticle1 par le nom de ton textbox
'tu remplace respectivement 5,4,2,1 par les numéros de colonnes ou se trouvent les données articles
'
If frmfacture.Textréfarticle1.Text = "" Then
frmfacture.Texttvaarticle1.Value = Cells(ligne, 5).Value
frmfacture.Textprixunitairearticle1.Value = Cells(ligne, 4).Value
frmfacture.TextDésignationarticle1.Value = Cells(ligne, 2).Value
frmfacture.Textréfarticlearticle1.Value = Cells(ligne, 1).Value
'tu fais la même chose pour les autre article
'le nombre de "end if " est egal au "nombre des article +1"
GoTo trouve
End If
End if
Exit Sub
trouve: MsgBox "Article ajouté avec succés"
End Sub
@+
