Macro UserForm

C

Compte Supprimé 979

Guest

• 22 Juillet 2017

• #2

Bonjour,

Voici une possibilité

VB:

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

 

Pièces jointes

• CotéMatch.xlsm

  51.3 KB · Affichages: 42

Dernière modification par un modérateur: 23 Juillet 2017

Vote positif 0 Vote négatif

Thibault2612

XLDnaute Junior

• 22 Juillet 2017

• #3

Bonjour,

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

merci de votre aide

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 22 Juillet 2017

• #4

Salut, un essai

 

Pièces jointes

• Copie de CotéMatch.xlsm

  49.3 KB · Affichages: 44

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Juillet 2017

• #5

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.

 

Pièces jointes

• Prono Coté Match.xlsm

  62.1 KB · Affichages: 57

Vote positif 0 Vote négatif

Thibault2612

XLDnaute Junior

• 23 Juillet 2017

• #6

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.

 

Vote positif 0 Vote négatif

Thibault2612

XLDnaute Junior

• 23 Juillet 2017

• #7

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 23 Juillet 2017

• #8

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.

Cliquez pour agrandir...

Allez bonne chance

 

Vote positif 0 Vote négatif

Thibault2612

XLDnaute Junior

• 23 Juillet 2017

• #9

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Juillet 2017

• #10

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.

 

Vote positif 0 Vote négatif

Thibault2612

XLDnaute Junior

• 24 Juillet 2017

• #11

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.

 

Pièces jointes

• ParisSportif.xlsm

  325.1 KB · Affichages: 41

Vote positif 0 Vote négatif