Système de réservation

[Christophe P]

Bonjour,

J'ai des invités qui ont chacuns X places pour une soirée.
Dans le fichier joint, j'ai insérer la petite base de donnée avec par exemple Jean à droit à 30 places.
Il y a également le "plan de table".
J'ai 20 tables avec 12 places par tables.
Je souhaite que lorsque j'ecris 30 à coté de Jean, Jean s'inscrive sur mon plan de table dans les 30 premières places(cases) disponibles de mon plan de table.
Et ainsi de suite (voir seconde feuille)
Merci d'avance pour votre aide
Christophe

 

[andré]

Salut Christophe,

Vois si cela peut te convenir.
Si tu as besoin d'un mot d'explication complémentaire, n'hésite pas (on partage la même table ! - lol).

Ândré.

 

[David2]

Salut Christophe P , andré


Après une soluce en formule, une autre en macro..

''''''''''''''''''''''''
DV
''''''''''''''''''''''''
Sub reservation()
Dim i As Integer
Dim j As Integer
Dim Reference_Ligne As Integer
Dim Reference_Colonne As Integer
Dim Nb_de_Place As Integer
Reference_Ligne = 5
Reference_Colonne = 18
Nb_de_Place = Cells(Reference_Ligne, Reference_Colonne).Value
For j = 4 To 23
For i = 2 To 13
If Nb_de_Place <> 0 Then
Cells(j, i).Value = Cells(Reference_Ligne, Reference_Colonne - 1).Value
Nb_de_Place = Nb_de_Place - 1
Else
Reference_Ligne = Reference_Ligne + 1
Nb_de_Place = Cells(Reference_Ligne, Reference_Colonne).Value
Cells(j, i).Value = Cells(Reference_Ligne, Reference_Colonne - 1).Value
Nb_de_Place = Nb_de_Place - 1
End If
Next
Next
End Sub

 

[Christophe P]

MERCI beaucoup du fond du coeur!!!
Trop fort!
je jette une oeil sur la formule macro ce we!
J'envoie les invitations à quelle adresse? (lol)

 

[Christophe P]

André,

Vu que j'ai beaucoup d'amis... (j'en ai plus que Marc, Jean, Mathieu et Luc)
T'as un truc pour que la formule s'adapte à mes 100 convives.
Je souhaite que la formule s'étende de Q5 jusqu'à Q130...
Ca risque d'être long pour une formule, non?
Encore merci pour ton aide très précieuse

 

[andré]

Resalut,

Je m'en doutais !
En écrivant la formule je me disais : et pourvu qu'il n'y a pas trop dinviéts à cause de la limite des 7 SI imbriqués.

Donne moi cinq minutes (façon de parler) je me dois de te trouver quelque chose.

A bientôt.
Ândré.

 

[andré]

Resalut,

Ce sont des minutes de trois heures (lol).
Excuse-moi (... mais je suis marié !)

Le fait de compliquer la question m'a permis de simplifier la réponse.
Maintenant tu as le droit d'avoir 15 amis.
Si tu en veux plus, il te suffit d'allonger la plage et de modifier les références dans la formule (copiable de gauche à droite et du haut vers la bas).

Bon week-end.
Ândré.

 

[christophe p]

Génial
Merci et encore merci,
Dans la série poussons le bouchon un peu plus loin (mais pas trop je te rassure....)
prenons l'exemple de la table 8 où Marc a droit à 3 places et Mathieu à 9.
Je souhaite (via à mon avis une opération intermédiaire) arriver au résultat du graphe (voir fichier zip)
L'idée est que le graphe représente la table.....
Encore Merci pour ton aide!
Christophe

 

[andré]

Salut Christophe,

Les graphiques n'étant pas mon cheval de bataille, je ne puis t'aider.
Je suis tout de même curieux de voir la solution.

Ândré.

 

[Isa]

Bonjour,

Dans un devis, j'aimerai grâce à la mise en forme de style, pouvoir numéroter mes articles de façon automatique.
Il y a trois niveaux de numérotations :
1
1.01
1.01.01

Merci d'avance.