Feuille avec remplissage automatique

[Mattttttttttrix]

Bonsoir tout le monde 😀

Ca faisait longtemps que j'avais pas eu besoin de vous!


Donc, pour vous expliquer. Sur Forum-auto, j'organise depuis bien longtemps des "concours photos". Et, j'avais une feuille excel pour rentrer les "votes" des membres et déclarer un vainqueur!

Hors, ce soir, j'ai voulu rendre ma feuille automatique afin de gagner en fiabilité et surtout de gagner en temps!

Le fichier en en PJ.


Maintenant, le fonctionnement :
1 - J'ouvre le fichier XLS
2 - J'arrive sur la feuille "formulaire" . C'est cette feuille qui doit être rempli.
3 - Je rentre le numéro du concours
4 - Je rentre les noms des membres ==> copier/coller
5 - Je rentre les noms de votants ==> copier/coller
6 - Je rentre l'ordre des photos.

Important :
Vote 1 = 5 points
Vote 2 = 4 points
Vote 3 = 3 points
Vote 4 = 2 points
Vote 5 = 1 points


7 - Clic sur the bouton 😎 . Cela crée une feuille dont le nom est le numéro du concours. Ca rempli les participants et les votants.

La ou je sèche complètement, c'est au moment d'attribuer les points. En gros, je ne sais pas comment envoyer les valeurs du formulaire dans la nouvelle feuille...

C'est la que j'ai besoin de vous 😛 .

Voyez-vous même sur le fichier, ca sera plus simple.


Merci d'avance!!!

 

[phlaurent55]

Re : Feuille avec remplissage automatique

Re,

essaie ceci:

Sub fenetrerésultat()

With Sheets("feuille type")
texte=""
For k = 48 To 98
If Range("B" & k) <> "" Then
texte= .Range("A" & k) + " - " + .Range("B" & k) + Chr(10)
End If
Next k
End With
MsgBox (Texte)
End Sub

si ça ne fonctionne pas , il faudra peut-être passer par une cellule transit
il faut en tous cas que MsgBox soit en dehors de la boucle

à+
Philippe

 

[Mattttttttttrix]

Re : Feuille avec remplissage automatique

Re,

essaie ceci:


si ça ne fonctionne pas , il faudra peut-être passer par une cellule transit
il faut en tous cas que MsgBox soit en dehors de la boucle

à+
Philippe

Effectivement, ca ne fonctionne pas...

Par contre, c'est peut-être plus simple de passer par une Userforme...

La Msgbox ne permet pas le copier/coller de ce qu'elle affiche.

En gros, je tente de créer une fenêtre qui s'ouvre avec un message tout fait pour que je copie/colle sur le forum.

Message du genre :

[u ]Le gagnant est - nom du gagnant - avec - nombre de points - points[/u ]

etc...etc...

suis-je clair?

 

[phlaurent55]

Re : Feuille avec remplissage automatique

Re,

je viens de modifier le fichier et le remettre en pièce jointe à la réponse #6
j'ai ajouté une feuille
ouvre le fichier et va voir sur le feuille "Final" ...(qui ne contient rien) avant de démarrer la procédure de classement
reviens ensuite sur la feuille "Final"

je n'ai pas encore trouvé réponse à ta demande concernant les résultats sur MsgBox .................... le Week-end arrive et je n'aurai pas beaucoup le temps de chercher

à+
Philippe

 

[Mattttttttttrix]

Re : Feuille avec remplissage automatique

Re,

je viens de modifier le fichier et le remettre en pièce jointe à la réponse #6
j'ai ajouté une feuille
ouvre le fichier et va voir sur le feuille "Final" ...(qui ne contient rien) avant de démarrer la procédure de classement
reviens ensuite sur la feuille "Final"

je n'ai pas encore trouvé réponse à ta demande concernant les résultats sur MsgBox .................... le Week-end arrive et je n'aurai pas beaucoup le temps de chercher

à+
Philippe

Merci!

Je vais chercher de mon coté aussi 😀 .

bon week end!