Commande ajouter avec conditions
Bonjour, j'ai fait un Userform qui contient 4 Textboxs ( numéro quittance, nom, grade; valeur de quittance)pour l'ajout des information avec Bouton "CmdAjouter" dans deux feuilles différentes ( "jour j "= 'le jour courant ' et "data "= 'supporte tous les donnes du mois' ) et 2 autres textboxs pour l'ajout deux numéros quittances "TXTDu, TXTA" avec le bouton "CmdAddTicket" dans une feuille " N° Tikets". Au début toutes sont vide , il faut remplirai les TXTDu et TXTA. Puis je commence à remplir mes données jusqu'à que numéro de quittance (textbox1 : remplissement automatique) = TXTA de la troisième feuille . Msgbox, "ajouter un nouveau carnet et ainsi de suite ( pas obligatoire que j'utiliser mon carnet de 60 page dans le même jour)
Private Sub CmdAjouter_Click()
Sub vba_do_while_loop()
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim lstrw2 As Integer
Dim lstrw3 As Integer
Set ws2 = Worksheets("DATA")
Set ws3 = Worksheets("N° Tickets")
ws2.Activate
lstrw2 = Cells(Rows.Count, 2).End(xlUp).Row ' DERNIER QUITANCE UTILISER data
ws3.Activate
lstrw3 = Cells(Rows.Count, 2).End(xlUp).Row ' CONNICHE EN COUR N° Tikets
Do While Me.TXTNumero.Value < Cells(lstrw3, 3).Value
'If Cells(lstrw2, 2).Value > Cells(lstrw3, 2).Value & Cells(lstrw2, 2).Value < Cells(lstrw3, 3).Value Then
Dim lr, ln As Integer
lr = sheet4.Range("A10000").End(xlUp).Row '''''Add to jour j'''' ........
With Worksheets("JOUR J")
.Cells(lr + 1, "A").Value = Me.TXTORDR.Value
.Cells(lr + 1, "B").Value = Me.TXTNumero.Value
.Cells(lr + 1, "c").Value = Me.TXTNom.Value
.Cells(lr + 1, "D").Value = Me.ComboBox1.Value
.Cells(lr + 1, "E").Value = Me.ComboBox2.Value
End With
' Add to data '
Dim ln As Integer ln = Sheet2.Range("A10000").End(xlUp).Row
With Worksheets("DATA")
.Cells(ln + 1, "A").Value = ln - 1
.Cells(ln + 1, "B").Value = Me.TXTNumero.Value
.Cells(ln + 1, "c").Value = Me.TXTNom.Value
.Cells(ln + 1, "D").Value = Me.ComboBox1.Value
.Cells(ln + 1, "E").Value = Me.ComboBox2.Value
.Cells(ln + 1, "f").Value = sheet4.Range("F1").Value
End With
Me.TXTNumero = Me.TXTNumero + 1
Me.TXTNom.Value = ""
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = "" MsgBox "Êã ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊÃßíÏ" TXTNumero.SetFocus
Me.TXTORDR.Value = Me.TXTORDR.Value + 1
Loop
End Sub
' Else ' MsgBox "ÇáÑÌÇÁ ÇÖÇÝÉ ÏÝÊÑ ÌÏíÏ", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå" ' End If End SubEdit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois
Edit modo : test deleted, please do not write in capital letters
Bonjour et bienvenu sur le forum
82 vues et pas une aide... car il n'y a pas de fichier...
A+ François