Feuille avec remplissage automatique

Mattttttttttrix · 11 Août 2010

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!!!

kjin · 11 Août 2010

Re : Feuille avec remplissage automatique

Bonsoir,
On ne s'y retrouve pas !
- combien y a t-il de votants ?
- qu'est-ce qu'un participant ?
- combien de photo par participant
- quel différence entre un votant et un participant
Bref, je n'y comprends rien, je dois être sans doute tordu, voire un poil borné
A+
kjin

phlaurent55 · 11 Août 2010

Re : Feuille avec remplissage automatique

Bonjour à tous,

voir fichier joint ...............si j'ai bien compris

à+
Philippe

Mattttttttttrix · 12 Août 2010

Re : Feuille avec remplissage automatique

kjin à dit:
Bonsoir,
On ne s'y retrouve pas !
- combien y a t-il de votants ?
- qu'est-ce qu'un participant ?
- combien de photo par participant
- quel différence entre un votant et un participant
Bref, je n'y comprends rien, je dois être sans doute tordu, voire un poil borné
A+
kjin

Tout est dans le fichier...

D'habitude, je met plein de texte et c'est pas clair.

La, j'ai donné un fichier bien avancé pour expliquer.

phlaurent55 à dit:
Bonjour à tous,

voir fichier joint ...............si j'ai bien compris

à+
Philippe

Merci!

Ca marche super bien!

Par contre, je n'ai pas compris ce commentaire :

dans la grille ci-dessus, il faut mettre UNIQUEMENT des chiffres ( les cellules sont formattées pour cela )

"photo 1" ... ce n'est pas un chiffre 😕

Mattttttttttrix · 12 Août 2010

Re : Feuille avec remplissage automatique

J'ai rien dit.

Je viens de regarder le format... c'est bon, j'ai compris!

Tout est parfait!

Merci!!

phlaurent55 · 12 Août 2010

Re : Feuille avec remplissage automatique

Re,

Je viens de regarder le format... c'est bon, j'ai compris!

Tout est parfait!

Hélas non,

voir pièce jointe................ avec commentaires sur la feuille

à+
Philippe

Mattttttttttrix · 13 Août 2010

Re : Feuille avec remplissage automatique

phlaurent55 à dit:
Re,

Hélas non,

voir pièce jointe................ avec commentaires sur la feuille

à+
Philippe

Chaque votant vote pour 5 particpans. Les points sont décroissants.

vote 1 (1er) ==> 5 points
vote 2 (2eme) ==> 4 points
Vote 3 ==> 3 points
Vote 4 ==> 2 points
Vote 5 ==> 1 points

Le fichier fonctionne très bien... ou alors, j'ai pas vu l'erreur... et la, j'ai besoin de lunettes 🙄

kjin · 13 Août 2010

Re : Feuille avec remplissage automatique

Bonjour,

Mattttttttttrix à dit:
Chaque votant vote pour 5 particpans

Tiens, moi, moi j'aurais dit pour 5 photos, eh pan !
Chaque participant, enfin celui qui fournit les photos quoi, en gros le photographe, il n'a droit de fournir qu'une seul photo, (un seul truc si tu préfères) ?
Et un votant (un participant au vote) peut aussi être participant (un photographe) ?
Et un votant (comme déjà expliqué) peut-il voter plusieurs fois ?
Bon, l'important, comme je l'ai compris, c'est de participer
A+
kjin

phlaurent55 · 13 Août 2010

Re : Feuille avec remplissage automatique

Re,

ce que j'ai voulu dire, c'est qu'après transfert sur la feuille nouvellement crée
( en reprenant mon dernier fichier joint ET sans changer les données mises sur la feuille "Formulaire")
on s'aperçoit que le classement est le suivant:
Menbre 5
Membre 4
Membre 3
Membre 2
Membre 1

Avec ce que j'ai compris, le classement est bon mis à part qu'il s'agirait plutôt de
Photo 5
Photo 4
Photo 3
Photo 2
Photo 1

Question:
le membre 5 est-il l'auteur de la photo 5 ?
le membre 4 est-il l'auteur de la photo 4 ?
le membre 3 est-il l'auteur de la photo 3 ?
...................
le membre 30 est-il l'auteur de la photo 30 ?

Si réponse "oui", alors tout est bon
Si réponse "non" ............... c'est le bordel mon général 😱

à+
Philippe

Mattttttttttrix · 13 Août 2010

Re : Feuille avec remplissage automatique

Bon, je vais tenter de m'expliquer un peu mieux. 😀

Le concours photo fonctionne de la facon suivante :

1 - Sur une durée déterminé, les membres peuvent proposer leur photos. Une seule et unique photo par membre pour chaque thème de concours. Donc ParticipantX = photoX

2 - Passage au vote ( toujours sur une durée déterminée). Tout le monde peut voter... qu'il est proposé une photo ou non.
Donc Les votants ne sont pas forcément les participants. (d'ou les deux mots...)

3 - C'est les photos qui sont notées. Chaque votant donne donne 5 photos par ordre décroissant. La première vaut 5 points et la dernière 1 points.

4 - Addition de tout les points

5 - Classement des photos

6 - Vu que photo = participant ==> classement des participants

Suis-je plus clair?

Ps: je tente de faire afficher le classement dans une MsgBox... Par contre, ca marche pas au dela de 5 lignes.. Est-ce normal?

Le code est le suivant :

Sub fenetrerésultat()

With Sheets("feuille type")

MsgBox .Range("A48") + " - " + .Range("b48") & Chr(10) & _
.Range("A49") + " - " + .Range("b49") & Chr(10) & _
.Range("A50") + " - " + .Range("b50") & Chr(10) & _
.Range("A51") + " - " + .Range("b51") & Chr(10) & _
.Range("A52") + " - " + .Range("b52")

End With
End Sub

Au dela, j'ai une erreur :/

Calvus · 13 Août 2010

Re : Feuille avec remplissage automatique

bonjour à tous, bonjour Philippe,

Combien as tu de fichiers 111 ??? 😀

Bonne journée

phlaurent55 · 13 Août 2010

Re : Feuille avec remplissage automatique

Re,

essaie avec ceci:
Range("A48") & " - " & Range("b48") & Chr(10) & _
Range("A49") & " - " & Range("b49") & Chr(10) & _
Range("A50") & " - " & Range("b50") & Chr(10) & _
Range("A51") & " - " & Range("b51") & Chr(10) & _
Range("A52") & " - " & Range("b52") & ..........................................
ou alors tu rassembles d'abord tout dans une seule (et autre) cellule qui sera alors utilisée dans ton MsgBox

j'ai bien compris toute tes explications, le fichier est presque OK

"Presque" -------> car un participant ne devrait pas pouvoir voter pour sa propre photo

à+
Philippe

phlaurent55 · 13 Août 2010

Re : Feuille avec remplissage automatique

Calvus à dit:
bonjour à tous, bonjour Philippe,

Combien as tu de fichiers 111 ??? 😀

Bonne journée

@ Calvus,

je n'en ai qu'un

c'est beaucoup plus facile à trouver dans l'explorateur quand il s'agit de le retrouver pour le mettre en pièce jointe; il apparaît le premier dans la liste

c'est efficace ..................... à cause de mon côté BORDELIQUE 😀

à+
Philippe

Mattttttttttrix · 13 Août 2010

Re : Feuille avec remplissage automatique

phlaurent55 à dit:
Re,

essaie avec ceci:
Range("A48") & " - " & Range("b48") & Chr(10) & _
Range("A49") & " - " & Range("b49") & Chr(10) & _
Range("A50") & " - " & Range("b50") & Chr(10) & _
Range("A51") & " - " & Range("b51") & Chr(10) & _
Range("A52") & " - " & Range("b52") & ..........................................
ou alors tu rassembles d'abord tout dans une seule (et autre) cellule qui sera alors utilisée dans ton MsgBox

j'ai bien compris toute tes explications, le fichier est presque OK

"Presque" -------> car un participant ne devrait pas pouvoir voter pour sa propre photo

à+
Philippe

Oui "presque"... Mais disons que c'est d'un commun accord dans les règles du concours, donc j'ai pas trop besoin de cette condition dans mon fichier 😉 .

Ton code et le mien fonctionne...

Je viens de m'apercevoir que ce n'est pas une erreur de code, mais de cellule "vide" ou égale a "0"...

Faudrait que je trouve une solution pour "squizzer" la fin du classement...

Une boucle peut-être?

Mattttttttttrix · 13 Août 2010

Re : Feuille avec remplissage automatique

Sub fenetrerésultat()

With Sheets("feuille type")

For k = 48 To 98
If Range("B" & k) = "" Or Range("B" & k) = 0 Then
Exit For
Else
MsgBox .Range("A" & k) + " - " + .Range("B" & k)
End If
Next k

End With
End Sub

Ca marche... mais ca affiche plusieur Msgbox...

J'en voudrais qu'une avec tout dedans 😀

Feuille avec remplissage automatique

Mattttttttttrix

Guest

Pièces jointes

kjin

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

Mattttttttttrix

Guest

Mattttttttttrix

Guest

phlaurent55

Nous a quittés en 2020

Pièces jointes

Mattttttttttrix

Guest

kjin

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Mattttttttttrix

Guest

Calvus

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

phlaurent55

Nous a quittés en 2020

Mattttttttttrix

Guest

Mattttttttttrix

Guest

Discussions similaires

Feuille avec remplissage automatique

Mattttttttttrix

Guest

Pièces jointes

XLDnaute Barbatruc

Nous a quittés en 2020

Pièces jointes

Mattttttttttrix

Guest

Mattttttttttrix

Guest

Nous a quittés en 2020

Pièces jointes

Mattttttttttrix

Guest

XLDnaute Barbatruc

Nous a quittés en 2020

Mattttttttttrix

Guest

XLDnaute Barbatruc

Nous a quittés en 2020

Nous a quittés en 2020

Mattttttttttrix

Guest

Mattttttttttrix

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency