En fait j'ai un useform dans mon programme je n'arrive pas a mettre les
référence les une après les autres quand je clique sur le bouton ajouter.
Second probleme, dans la liste deroulante du useform, je n'arrive pas non
plus a mettre defaut 1, ...,defaut9.
Mon programme fonctionnant comme ceci : je tape la referance, ensuite le
defaut puis le nombre, quand j'appui sur ajouter la reference se met dans une
case a a5 jusqu'a a25, et le nombre dans la case defaut correspondante (ex:
si ma ref est en a5, si j'ai un defaut 3 le nombre se mettra en d5.
'----------------------------------- Private Sub UserForm_Initialize() Dim rCell As Range 'Initialisation ComboBox1 ' (Impossible par RowSource, car liste horizontale) For Each rCell In Range("B2:J2") ComboBox1.AddItem rCell.Value Next rCell End Sub
Private Sub CommandButton1_Click() ' Bouton Ajouter Dim rDest As Range Set rDest = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) With rDest .Value = TextBox1.Value 'Reference .Offset(0, ComboBox1.ListIndex + 1).Value = TextBox2.Value End With End Sub '------------------------------------------ "aravis" a écrit dans le message de news:
bonjour, je vous explique mon problème.
En fait j'ai un useform dans mon programme je n'arrive pas a mettre les référence les une après les autres quand je clique sur le bouton ajouter.
Second probleme, dans la liste deroulante du useform, je n'arrive pas non plus a mettre defaut 1, ...,defaut9.
Mon programme fonctionnant comme ceci : je tape la referance, ensuite le defaut puis le nombre, quand j'appui sur ajouter la reference se met dans une case a a5 jusqu'a a25, et le nombre dans la case defaut correspondante (ex: si ma ref est en a5, si j'ai un defaut 3 le nombre se mettra en d5.
'-----------------------------------
Private Sub UserForm_Initialize()
Dim rCell As Range
'Initialisation ComboBox1
' (Impossible par RowSource, car liste horizontale)
For Each rCell In Range("B2:J2")
ComboBox1.AddItem rCell.Value
Next rCell
End Sub
Private Sub CommandButton1_Click()
' Bouton Ajouter
Dim rDest As Range
Set rDest = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
With rDest
.Value = TextBox1.Value 'Reference
.Offset(0, ComboBox1.ListIndex + 1).Value = TextBox2.Value
End With
End Sub
'------------------------------------------
"aravis" <aravis@discussions.microsoft.com> a écrit dans le message de news:
932701FD-EF8D-43C6-A236-39480C565032@microsoft.com...
bonjour, je vous explique mon problème.
En fait j'ai un useform dans mon programme je n'arrive pas a mettre les
référence les une après les autres quand je clique sur le bouton ajouter.
Second probleme, dans la liste deroulante du useform, je n'arrive pas non
plus a mettre defaut 1, ...,defaut9.
Mon programme fonctionnant comme ceci : je tape la referance, ensuite le
defaut puis le nombre, quand j'appui sur ajouter la reference se met dans
une
case a a5 jusqu'a a25, et le nombre dans la case defaut correspondante
(ex:
si ma ref est en a5, si j'ai un defaut 3 le nombre se mettra en d5.
'----------------------------------- Private Sub UserForm_Initialize() Dim rCell As Range 'Initialisation ComboBox1 ' (Impossible par RowSource, car liste horizontale) For Each rCell In Range("B2:J2") ComboBox1.AddItem rCell.Value Next rCell End Sub
Private Sub CommandButton1_Click() ' Bouton Ajouter Dim rDest As Range Set rDest = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) With rDest .Value = TextBox1.Value 'Reference .Offset(0, ComboBox1.ListIndex + 1).Value = TextBox2.Value End With End Sub '------------------------------------------ "aravis" a écrit dans le message de news:
bonjour, je vous explique mon problème.
En fait j'ai un useform dans mon programme je n'arrive pas a mettre les référence les une après les autres quand je clique sur le bouton ajouter.
Second probleme, dans la liste deroulante du useform, je n'arrive pas non plus a mettre defaut 1, ...,defaut9.
Mon programme fonctionnant comme ceci : je tape la referance, ensuite le defaut puis le nombre, quand j'appui sur ajouter la reference se met dans une case a a5 jusqu'a a25, et le nombre dans la case defaut correspondante (ex: si ma ref est en a5, si j'ai un defaut 3 le nombre se mettra en d5.
En fait j'ai un useform dans mon programme je n'arrive pas a mettre les référence les une après les autres quand je clique sur le bouton ajouter.
Second probleme, dans la liste deroulante du useform, je n'arrive pas non plus a mettre defaut 1, ...,defaut9.
Mon programme fonctionnant comme ceci : je tape la referance, ensuite le defaut puis le nombre, quand j'appui sur ajouter la reference se met dans une case a a5 jusqu'a a25, et le nombre dans la case defaut correspondante (ex: si ma ref est en a5, si j'ai un defaut 3 le nombre se mettra en d5.
En fait j'ai un useform dans mon programme je n'arrive pas a mettre les
référence les une après les autres quand je clique sur le bouton ajouter.
Second probleme, dans la liste deroulante du useform, je n'arrive pas non
plus a mettre defaut 1, ...,defaut9.
Mon programme fonctionnant comme ceci : je tape la referance, ensuite le
defaut puis le nombre, quand j'appui sur ajouter la reference se met dans une
case a a5 jusqu'a a25, et le nombre dans la case defaut correspondante (ex:
si ma ref est en a5, si j'ai un defaut 3 le nombre se mettra en d5.
En fait j'ai un useform dans mon programme je n'arrive pas a mettre les référence les une après les autres quand je clique sur le bouton ajouter.
Second probleme, dans la liste deroulante du useform, je n'arrive pas non plus a mettre defaut 1, ...,defaut9.
Mon programme fonctionnant comme ceci : je tape la referance, ensuite le defaut puis le nombre, quand j'appui sur ajouter la reference se met dans une case a a5 jusqu'a a25, et le nombre dans la case defaut correspondante (ex: si ma ref est en a5, si j'ai un defaut 3 le nombre se mettra en d5.
escusez moi encore, j'aurai une petite rectification à faire. J'aimerai que si la reference rentrer est identitique, cela m'affiche celà da,s la ligne ou il y a cette référence. Si, il y a deja un nombre dans cette reference, j'aimerai que ce nombre soit additionner avec le précédent déja mit.
merci d'avance ;)
escusez moi encore, j'aurai une petite rectification à faire. J'aimerai que
si la reference rentrer est identitique, cela m'affiche celà da,s la ligne ou
il y a cette référence. Si, il y a deja un nombre dans cette reference,
j'aimerai que ce nombre soit additionner avec le précédent déja mit.
escusez moi encore, j'aurai une petite rectification à faire. J'aimerai que si la reference rentrer est identitique, cela m'affiche celà da,s la ligne ou il y a cette référence. Si, il y a deja un nombre dans cette reference, j'aimerai que ce nombre soit additionner avec le précédent déja mit.
