Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Soucit avec mon programme

Soucit avec mon programme

13 réponses
Avatar
aravis
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.

voici mon programme : http://cjoint.com/?fFkzH1oA6q

merci d'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Ardus Petus
Private Sub CommandButton1_Click()
' Bouton Ajouter
Dim rDest As Range
Dim Trouve As Range

Set Trouve = Range("A5:A25").Find( _
what:=TextBox1.Value, after:=Range("A25"), _
LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, _
searchdirection:=xlNext, MatchCase:úlse, matchbyte:úlse)
Set rDest = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
If Trouve Is Nothing Then
' La référence n'a pas encore été saisie
With rDest
.Value = TextBox1.Value 'Reference
.Offset(0, ComboBox1.ListIndex + 1).Value = TextBox2.Value
End With
Else
' La référence existe déjà dans le tableau
With Trouve.Offset(0, ComboBox1.ListIndex + 1)
.Value = .Value + TextBox2.Value
End With
End If
End Sub

Voir exemple: http://cjoint.com/?fFqycmtrx0

Cordialement,
--
AP

"aravis" a écrit dans le message de news:

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 ;)


Avatar
RGI
Merci Monsieur on dit

RGI :-)

Private Sub CommandButton1_Click()
' Bouton Ajouter
Dim rDest As Range
Dim Trouve As Range

Set Trouve = Range("A5:A25").Find( _
what:=TextBox1.Value, after:=Range("A25"), _
LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, _
searchdirection:=xlNext, MatchCase:úlse, matchbyte:úlse)
Set rDest = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
If Trouve Is Nothing Then
' La référence n'a pas encore été saisie
With rDest
.Value = TextBox1.Value 'Reference
.Offset(0, ComboBox1.ListIndex + 1).Value = TextBox2.Value
End With
Else
' La référence existe déjà dans le tableau
With Trouve.Offset(0, ComboBox1.ListIndex + 1)
.Value = .Value + TextBox2.Value
End With
End If
End Sub

Voir exemple: http://cjoint.com/?fFqycmtrx0

Cordialement,
--
AP

"aravis" a écrit dans le message de news:

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 ;)






Avatar
aravis
bien jouer. En fait ca a pas l'air compliquer quand on voit le résultat.
Vous avez prit des courts ou ?

merci beaucoup, mon programme (le votre aussi) est pratiquement fini et celà
grace a vous.

cordialement
1 2