Macro UserForm

[Thibault2612]

Bonjour à tous,

J'ai réalisé une macro permettant d'ouvrir un UserForm.

Ce UserForm permet de remplir une ligne de mon tableau à l'aide des données saisies sur le UserForm.

Je souhaite qu'a chaque nouvelle saisie, la ligne saisie dans le UserForm se mette a la suite de mon tableau.

OU, une autre solution (l'idéale), serais de déplacer les lignes de mon tableau afin que la nouvelle ligne se mette en haut de mon tableau.

Merci de votre aide

 

[Compte Supprimé 979]

Bonjour,

Voici une possibilité

Private Sub Cmb_Valider_Click()
  Dim DLig As Long, NLig As Long, Lig As Long
  ' Ligne d'inscription
  NLig = 4
  ' Avec la feuille
  With Sheets("Match")
    ' Nouvelle ligne
    DLig = .Range("C" & Rows.Count).End(xlUp).Row
    ' Déplacer les données pour insérer la nouvelle ligne en haut
    If DLig > 3 Then .Range("C4:J" & DLig).Copy Destination:=.Range("C5")
    ' Inscrire les nouvelles valeurs sur la 1ère ligne
    .Range("C" & NLig) = TextBox9.Value
    .Range("D" & NLig) = TextBox2.Value
    .Range("E" & NLig) = TextBox3.Value
    .Range("F" & NLig) = TextBox4.Value
    .Range("G" & NLig) = TextBox5.Value
    .Range("H" & NLig) = TextBox6.Value
    .Range("I" & NLig) = TextBox7.Value
    .Range("J" & NLig) = TextBox8.Value
  End With
  Unload UserForm1
End Sub

Edit : voici le fichier, pas de problème chez moi

 

[Thibault2612]

Bonjour,

votre code ne marche pas.. j'ai une erreur de compilation

merci de votre aide

 

[cp4]

Salut, un essai

 

[Si...]

Bonsoir

Je ne sais pas si tu as prévu des garde-fous (vraie date, vrais nombres…) sinon tu risques d’avoir de mauvaises surprises !

Voici un exemple avec des routines traitant les types de saisie. Les différentes équipes sont stockées dans un tableau.

A noter que pour la date, on peut utiliser des calendriers fournis (Calendar, DTPicker, MonthView) quand ils sont fonctionnels (problème de portabilité selon les versions d’Excel).
J’en ai mis un qui doit supporter les différentes versions (pas testé avec les dernières).

Les filtres et tris directs permettent de mieux analyser les données saisies. Il est facile de programmer ces derniers quand on sait quel ordre on veut privilégier.

 

[Thibault2612]

Merci beaucoup de ton aide!! ton fichier correspond pleinement à ce que je voulais.
En effet ajouter la nouvelle ligne du tableau en fin de tableau est bien plus judicieux.

Cordialement.

 

[Thibault2612]

En revanche, il y a la ListBox C1 qui ne s'affiche pas correctement sur le tableau. Merci de votre aide

 

[Compte Supprimé 979]

Moi j'aime bien les mecs qui sont pas en accord avec eux même

une autre solution (l'idéale), serais de déplacer les lignes de mon tableau afin que la nouvelle ligne se mette en haut de mon tableau.

Allez bonne chance

 

[Thibault2612]

Ma première idée été en effet celle là mais en réfléchissant ce n'est pas l'idéale de mettre la nouvelle ligne en haut du tableau. Et c'est bien connu, seul les imbéciles ne changent pas d'avis

 

[Si...]

Re

J’ai mis un contrôle ListBox car je ne savais pas ce que tu voulais choisir exactement.

Bien sûr ce n’était qu’une proposition car on peut ajouter pleins de choses (la présence de l’onglet Bilan vide ne permet pas de savoir que faire).

Etant du genre "à changer d’avis comme de chaussettes" , je peux te proposer un autre type de contrôle. Encore faut-il savoir ce que tu veux exactement.

Nota : chez moi et avec mon fichier, la sélection de l’item de la liste (par clic) ne pose pas de problème de transfert. Si le problème persiste, donne-nous un fichier représentatif de ton étude.

 

[Thibault2612]

Re

Je cherche justement à remplir mes deux tableaux des autres feuilles de mon fichiers de façon automatique.

Si quelqu'un à une idée afin de pouvoir le réaliser je suis preneur....

Je tiens à préciser que je ne suis qu'un débutant de Excel.

Merci. Cordialement, T.