Microsoft 365 Code pour transfert

Marvin57 · 18 Mai 2023

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 · 18 Mai 2023

Marvin57 à dit:
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".

mapomme · 18 Mai 2023

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 :

VB:

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 · 18 Mai 2023

mapomme à dit:
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 :

VB:

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 · 18 Mai 2023

Marvin57 à dit:
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 · 18 Mai 2023

mapomme à dit:
Voir fichier joint et code associé au bouron "Valider".

Re mapomme,

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

Marvin57

Microsoft 365 Code pour transfert

Marvin57

XLDnaute Occasionnel

Pièces jointes

mapomme

mapomme

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Discussions similaires