R variable

[@Christophe@]

bonsoir forum

Voila, j'utilise un tableau avec des lettre au qu'elle j'attribue un valeur en fin de ligne pour avoir un total d'heure, maintenant j'ai une lettre R qui peux etre 8 ou 10 ou 12 ou peux un porte, serais t'il possble que ma formule nb.si(plagecellule;R)*valeur attribue change

Merci d'avance

Christophe

 

[@+Thierry]

Euf Euf ...

RE Christophe@@@@

Pour Tous les R ???? la même variable ? ou bien ....
Et les autres Formules on les écrase... ou bien ?

J'ai comme qui dirait l'impression que ce fil va faire long encore..... lol

@+Thierry

 

[@Christophe@]

Bonsoir forum, rire Thierry

non, variable differente, on n'ecrase pas l'autre formule
tu vois, j'ai un planning de +-35 personne, il arrive que certain prenne récup, Code R sur planning, maintenant en fin de ligne pour connaitre les heures mensuel de chaque personne, j'utilise nb.si, qui cherche le nombre postes matin, disons et que les multiplie par leur valeur, 8 heures pour un matin, d'ou nb.si(plage;"matin")*8, mais pour les recup, cela varie, c'est pas toujours 8 heures, les heures je les choisis moi, ca peux etre 8, ou 10 ou 12, peux importe, tu vois. Donc j'aimerai preserve ma formule bien sur, parce que elle est assez lonque vu le nombre de postes differents, plus de 20, mais dans cette formule je ne peux pas mettre nb.si(plage;"R")*8 parce que pour une autre personne, c'est peux etre 10, tu vois, alors j'aimerai garder une formule que j'ai deja pour toutes les personne, avec le R variable, quand penses tu, que propose tu comme meilleur solution

Merci d'avance



J'espere que tu as un peu compris

 

[Monique]

Bonsoir,

Si tous les R de la même ligne ont la même valeur,
tu peux insérer une colonne (à masquer) entre les colonnes A et B,
dans laquelle tu entres la valeur du R de chaque personne.

 

[@+Thierry]

Au tu sais moi je ferai tout çà sans rien sur la feuille mais tout en VBA !! Je ne suis pas un Formule Spécialist comme je le dis souvent...
Je pense que si Monique passe par là ou André (mais lui ce n'est pas le soir) Ils te tourneront çà en un temps trois mouvement...

Mais bon je vais voir si il y a une solution qui pourrait être un Mix VBA / Formule...

Mais donc le R peut avoir une valeur différent pour chaque Ligne ? ou bien ?
Il ne peut pas avoir plusieurs valeurs sur la même ligne au moins ?


@+Thierry

 

[@Christophe@]

Merci monique, j'ai essayé cela, mais le probleme est que mon R varie tous les mois, mais pour l'instant c'est le principe que j'utilise, je fais nb.si(plage;"R")*AA2 par exemple, ca marche tres bien, mais je peux chaque mois les modifie, et ca devient vraiment beaucoup de boulot, j'aurai aimé que quand je remplis le planning, je commence par le 1er matin, j'ai 8 en total moi, ensuite le 4 soir, j'ai 16 en total mois, et que si je remplis R qu'il me demande sous forme de messagebox la valeur que je veux attribue a ce R, cela dois etre possible, j'espere, mais merci beaucoup monique


A bientot

Christophe

 

[@+Thierry]

Tiens quand on parle du Loup...

 

[@Christophe@]

correct Thierry

Par ligne même valeur, si une personne prends 3 jour de recup il auront tous les trois la meme valeur, mais si un autre personne d'une autre ligne prends recup alors c'est une autre valeur, peux etre est ce plus facile de tous faire en VBA, puisque je connais la valeur de mes 20 postes, a toi de voir?

Merci d'avance

Christophe

 

[@+Thierry]

J'ai jamais dit que ce serait plus facile de tout faire en VBA,...

Disons qu'au bas mot c'est quelque chose comme dix heures de dévelopement en VBA ton truc avec tous les test... Donc faudrait que tu passes à la vitesse sup pour le VBA car ce n'est pas moi qui vait développer une appli entière...

Non... je mange puis je verrai si on peut faire un ptit truc de base....
@+Thierry

 

[@Christophe@]

Ok, Thierry, je savias pas que c'etais si compliqué, en faite c'est pas trop grave, tu sais bien comment ca vas, on cherche toujours la perfection, mais grace a toi et au forum, j'ai mis au point mon planning, qui est deja tres tres bien. Si c'est trop compliqué pas grave, j'ai pensez a une solution que peux etre Monique pourrais m'aider a resoudre, je me disais de travailler avec un nb.si et un rechercheV dans une formule.

Cela je dois voir avec Monique si c'est possible, je vais d'abord y réfléchire et je verrais bien, mets si tu as une solution propose toujours, merci beaucoup, Thierry

Bonne appetit

 

[@Christophe@]

Thierry, t'inquitte pas, j'ai su crée une formule nb.si*rechercheV qui fonctionne tres bien, je crée une petit table sur ma page d'acceuil et je prends les donnée de la, ca marche bien, alors ne cherche pas trop
sur ce je dois aller au dodo, parce que demain matin je bosse, a 0545 alors je dois me lever tot, bonne nuit forum

A bientot

Thierry, encore un grand merci

See you soon

 

[Monique]

Bonjour,

Voici ton classeur avec la fonction SOMMEPROD et 2 plages nommées.
Tu as le choix entre 3 formules, dont :
=SOMMEPROD(NB.SI($C3:$K3;horaires)*(duree))+NB.SI(C3:K3;"R")*B3

 

[@+Thierry]

=> DEMO UserForm écrivant variable pour Formule COUNTIF (NB.SI)

Oui PLutot Bonjour pour Christophe,

et bonsoir à toi Monique.... En fait j'ai la très nette impression, que plus je fais du VBA moins je touche à Excel... je connaissais un fou de SOMMEPROD sur le MPFE... C'est vrai que tu es indispensable Monique

Bon enfin pour le fun, la même chose 100% VBA/UserForm ci Joint...
Au point où j'en suis on pourrait faire des Variables pour tout sont tableau au Christophe dans la foulée...

Enfin déjà çà fait les "r" !! mais ce ne serait vraiment qu'un toute petite étape de plus pour tout faire maintenant....

Bon allé bonne Nuit
@+Thierry

 

[@+Thierry]

Zut juste connection coupée au moment où j'appuie sur "Envoyer" => Message foutu !

Je disais donc.... Je regardais ton fichier Monique... Moi je n'avais pas de critère "S" ou "M" dans le "classetr1.xls" du début de ce fil...

Mais qu'à celà ne tienne suffit de changer la macro par celle ci :

Private Sub CommandButton1_Click()
Dim Cell As Range
Dim Maplage As Range
Dim i As Integer
Dim R As Integer
Set Maplage = Sheets(1).Range("a3:a" & DerLigne)

On Error GoTo Sortie
R = ComboBox1.Value
For Each Cell In Maplage
If Cell = ListBox1 Then
i = Cell.Row
Cells(i, 11).Formula = "=SUM(COUNTIF(B" & i & ":J" & i & ",""DS"")*12," _
& "COUNTIF(B" & i & ":J" & i & ",""DR"")*12," _
& "COUNTIF(B" & i & ":J" & i & ",""V"")*12," _
& "COUNTIF(B" & i & ":J" & i & ",""S"")*8," _
& "COUNTIF(B" & i & ":J" & i & ",""M"")*10," _
& "COUNTIF(B" & i & ":J" & i & ",""R"")*" & R & ")"
End If
Next
Exit Sub
Sortie:
MsgBox "Entrez un Valeur Numérique Entiere", _
vbCritical, "Thierry's Mini Démo"
End Sub

Bon allez bo rèv !!
ou bonjour à ceux/celles qui liront ce fil au réveil
@+Thierry

 

[@Christophe@]

Bonsoir Thierry, bonsoir Monique

Ben grand grand grand merci a tous les deux, la vous m'avez épaté, vous etes vraiment des genie, monique ton idee est superbe, elle me permets de changer les heures et les type de postes, vraiment tres bien, et Thierry, un vrai genie, j'ai jamais vu quelque choses d'aussi impressionant, encore un grand merci, mais crois moi tu vas m'entendre, parce que je vais essayer de commencer a inclure cette macro dans mon planning, mais je vais faire de mon mieux pour analyser et ne pas avoir de probleme, je te tient ou courant.

Merci forum, merci Thierry, Monique et tous les autres qui aide sur ce forum

Christophe