Formulaire utilisateur précédent et suivant pour une date spécifique un jou

Bonjour
Lors d'une demande à une date spécifique, toutes les données de ce jour sont récupérées
Mais cela commence par rappeler les premières données à cette date

Quant à l'indice de mouvement (premier - suivant - précédent - dernier)

Je souhaite insérer ses codes dans le formulaire

C'est lors d'une recherche à une date précise

Par exemple

Lors de la saisie d'une date dans txtEndDate

02/02/2023

3 dates de données apparaissent dans la feuille

Dans le processus de recherche, la première date de 3 données pour cette date est affichée

Je souhaite naviguer en fonction de cette date uniquement

Afficher le numéro entre la navigation du curseur dans lblCod

En rouge (0)

Bonjour

Ci joint ma solution

A+ François

Private Sub CommandButton47_Click() 'precedent
  If Val(Me.lblCod.Caption) > 1 Then Me.lblCod.Caption = Val(Me.lblCod.Caption) - 1
End Sub

Bonjour fanfan38
Merci
Les travaux requis ont été effectués
Mais CommandButton47_Click
Ça ne marche pas mais ça marche
Afficher le numéro de série
Par Me.lblCod.Caption
Uniquement comme indiqué dans l'image insérée et ne fonctionne pas pour afficher les données dans la zone de texte

Bonjour

Si j'ai bien compris.... C'est corrigé...

A+ François

Merci, la demande a été complétée avec succès
Mais j'aimerais que vous m'aidiez à développer ce code

Il existe un code et je souhaite le développer
Passer de la zone de texte et de la zone de liste déroulante à la zone de liste
Si votre temps le permet

Private Sub MajInventaire()
Dim QS&, n&

   With Worksheets("Inventaire")
      flgAdd = 0
      n = UBound(TblInv): lgS = 0: lgD = 0
      GetLig ComboBox1, n, lgS: If lgS = 0 Then Exit Sub
      GetLig ComboBox2, n, lgD: If lgD > 0 Then flgAdd = 1

      If lgD = 0 Then
         flgAdd = 0: lgD = n + 3
         If lgD = 65000 Then
            MsgBox "Le tableau en feuille Inventaire est plein !", 48
            lgD = 0: Exit Sub   'on fait rien, et on sort de la sub !
         End If
      End If
      Application.ScreenUpdating = 0: .Unprotect: QT = Val(Quantitetr)

      With .Cells(lgS, 11)  ' était (lgS, 3)
         QS = .Value + QT: .Value = QS: stocktr = QS
      End With
      Application.EnableEvents = False
      .Activate     ' active la feuille

      If flgAdd = 0 Then
      ' insère une ligne
      .Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      .Unprotect
      .Rows("5:5").Copy                         ' copie la ligne en dessous
      .Rows("4:4").PasteSpecial xlPasteFormats  ' colle le format

      .Range("D5").Copy        ' copie la cellule
      .Range("D4").Select      ' sélectionne la cellule
      ActiveSheet.Paste        ' colle (formule incluse)

      Application.EnableEvents = True

      lgD = 4
      End If

      With .Cells(lgD, 3)
         If flgAdd = 0 Then
            .Offset(, -2) = CB_Pièce           'Code article
            .Offset(, -1) = catetr             'Catégorie
            .Offset(, 2) = Val(seuil)              'Seuil d'alerte
            .Offset(, 3) = Desitr              'Descriptif
            .Offset(, 4) = reftr               'Référence
            .Offset(, 5) = unitr               'Unité de mesure
            .Offset(, 6) = "Transfert"         'Observations
            .Offset(, 9) = ComboBox2           'Magasin
            QD = Val(.Value) + QT: .Value = QD   'Stock actuel
         Else
            .Offset(, 7) = .Offset(, 7) + Quantitetr '
         End If
      End With
      .Protect: Application.ScreenUpdating = -1
   End With
End Sub

usf Transfer

usf Transfer1

Bonjour

pouvez-vous m'aider

S'il vous plaît