Microsoft 365 Code pour transfert

[Marvin57]

Bonjour à tous,

dans le fichier ci présent j'aimerai faire ce qui suit;

En appelant le UserForm1 à partir de l'onglet "ACCUEIL, je voudrai pouvoir remplir les textbox et en validant cela devrait se placer sur la ligne de la date choisie du Textbox 1, dans l'onglet "MOIS".

Mais je ne voudrait pas changer le tableau de l'onglet "MOIS" en tableau structuré.

Merci à vous à l'avance pour votre aide.

Marvin57

 

[mapomme]

Bonjour @Marvin57 🙂,

Un essai dans le fichier joint.
Voir le code de la procédure évènementielle Private Sub TextBox1_Change() dans le code de UserForm1 :

Private Sub TextBox1_Change()
Dim ligne&, i&
  
   For i = 2 To 9: Me.Controls("TextBox" & i) = "": Next
   ligne = Application.IfError(Application.Match(CLng(CDate(TextBox1)), Sheets("MOIS").Columns(1).Value2, 0), 0)
   If ligne = 0 Then
      Beep
   Else
      For i = 2 To 8
         Me.Controls("TextBox" & i) = Sheets("MOIS").Cells(ligne, i)
      Next i
      TextBox9 = Sheets("MOIS").Cells(ligne, 10)
   End If
End Sub

 

[Marvin57]

Bonjour @Marvin57 🙂,

Un essai dans le fichier joint.
Voir le code de la procédure évènementielle Private Sub TextBox1_Change() dans le code de UserForm1 :

Private Sub TextBox1_Change()
Dim ligne&, i&
 
   For i = 2 To 9: Me.Controls("TextBox" & i) = "": Next
   ligne = Application.IfError(Application.Match(CLng(CDate(TextBox1)), Sheets("MOIS").Columns(1).Value2, 0), 0)
   If ligne = 0 Then
      Beep
   Else
      For i = 2 To 8
         Me.Controls("TextBox" & i) = Sheets("MOIS").Cells(ligne, i)
      Next i
      TextBox9 = Sheets("MOIS").Cells(ligne, 10)
   End If
End Sub

Bonjour mapomme,

Merci pour ton aide, malheureusement cela ne fonctionne pas.

Ce que je voudrai, c'est, si je saisi une date dans le textbox1 et que je remplisse les autres textbox avec mes données et que je valide, il devrait me les placer dans l'onglet "MOIS" à la ligne de la date choisie.

J'espère avoir été précis dans ma demande, sinon je reste connecté pour plus de détails.

Merci
Marvin57

 

[mapomme]

Ce que je voudrai, c'est, si je saisi une date dans le textbox1 et que je remplisse les autres textbox avec mes données et que je valide, il devrait me les placer dans l'onglet "MOIS" à la ligne de la date choisie.

Voir fichier joint et code associé au bouton "Valider".

 

[Marvin57]

Voir fichier joint et code associé au bouron "Valider".

Re mapomme,

impeccable 👍 . Comme je le souhaitais.
Un GRAND MERCI et a+.

Marvin57