XL 2016 Calculs ou "If" imbriqués ?

halecs93

halecs93

XLDnaute Impliqué
J'ai manqué à tous mes devoirs.....

Bien entendu, je dis bonjour ou bonsoir ;)

Je me mélange les pinceaux..il y a de quoi....

Grâce aux bons conseils du forum, le fichier s'est construit peu à peu....

Mais, dans la fonction de calcul je ne retrouve pas toutes mes possibilités

Function CalcPoints(P1$, P2$, P3$, P4$, P5$, P6$) 'CalcPoints(valeurB5=mode de transport, valeurC5=Nb de personnes, valeurD5=territoire, valeurE5=type de trajet, valeurF5=Nb de km, valeurG5=Nb de trajets)
Dim Points
Points = 0
Select Case P1
Case "Co-voiturage"
Select Case P4
Case "Trajet domicile - travail"
If CInt(P2) = 2 Then
Points = 0
ElseIf CInt(P2) = 3 Then
Points = 1
ElseIf CInt(P2) = 4 Then
Points = 2
Else
Points = 0
End If
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If CInt(P2) = 2 Then
Points = 0.5
ElseIf CInt(P2) = 3 Then
Points = 1
ElseIf CInt(P2) = 4 Then
Points = 2
Else
Points = 0
End If
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Vélo électrique"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 3
ElseIf P5 = "de 10 à 20" Then
Points = Points + 4
ElseIf P5 = "+ de 20" Then
Points = Points + 5
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 2
ElseIf P3 = "extra muros" Then
Points = Points + 3
Else
GoTo Probleme
End If
End Select
Case "Vélo classique"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 4
ElseIf P5 = "de 10 à 20" Then
Points = Points + 5
ElseIf P5 = "+ de 20" Then
Points = Points + 6
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 3
ElseIf P3 = "extra muros" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Multi mobilité"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Marche"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "Moins de 2 km" Then
Points = Points + 4
ElseIf P5 = "De 2 à 5 km" Then
Points = Points + 5
ElseIf P5 = "5 km et +" Then
Points = Points + 6
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 3
ElseIf P3 = "extra muros" Then
Points = Points
Else
GoTo Probleme
End If
End Select
End Select
Points = Points * CInt(P6)
CalcPoints = Points
Exit Function
Probleme:
MsgBox "Calcul impossible, données manquantes", vbOKOnly
CalcPoints = 0
End Function


Et voici l'ensemble des conditions (54, je sais ;) )

Si P1 = "Co-voiturage" et P2 = 2 et et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 2 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 2 et et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 2 et et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 2 et et P3 = "Temps de travail dont formation" et P4 = "- de 10", alors le nombre de points est 2,5 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 2 et et P3 = "Temps de travail dont formation" et P4 = "de 10 à 20", alors le nombre de points est 3,5 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 2 et et P3 = "Temps de travail dont formation" et P4 = "+ de 20", alors le nombre de points est 4,5 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 3 et et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 3 et et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 3 et et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 3 et et P3 = "Temps de travail dont formation" et P4 = "- de 10", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 3 et et P3 = "Temps de travail dont formation" et P4 = "de 10 à 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 3 et et P3 = "Temps de travail dont formation" et P4 = "+ de 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 4 et et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 4 et et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 4 et et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 6 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 4 et et P3 = "Temps de travail dont formation" et P4 = "- de 10", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 4 et et P3 = "Temps de travail dont formation" et P4 = "de 10 à 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Co-voiturage" et P2 = 4 et et P3 = "Temps de travail dont formation" et P4 = "+ de 20", alors le nombre de points est 6 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Intra Muros et P3 = "Temps de travail dont formation" et , alors le nombre de points est 2 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Extra Muros et P3 = "Temps de travail dont formation" et , alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 6 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Intra Muros et P3 = "Temps de travail dont formation" et , alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Extra muros et P3 = "Temps de travail dont formation" et , alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 2 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Intra Muros et P3 = "Temps de travail dont formation" et P4 = "- de 10", alors le nombre de points est 2 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Intra Muros et P3 = "Temps de travail dont formation" et P4 = "de 10 à 20", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Intra Muros et P3 = "Temps de travail dont formation" et P4 = "+ de 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "Moins de 2 km", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "De 2 à 5 km", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Intra Muros et P3 = "Trajet domicile - travail" et P4 = "5 km et +", alors le nombre de points est 6 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Intra Muros et P3 = "Temps de travail dont formation" et P4 = "intra muros", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Vélo électrique" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Vélo classique" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 6 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "Moins de 2 km", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "De 2 à 5 km", alors le nombre de points est 5 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "5 km et +", alors le nombre de points est 6 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "- de 10", alors le nombre de points est 2 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "de 10 à 20", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Extra Muros et P3 = "Trajet domicile - travail" et P4 = "+ de 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"
Si P1 = "Marche" et et Extra Muros et P3 = "Temps de travail dont formation" et P4 = "intra muros", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Extra Muros et P3 = "Temps de travail dont formation" et P4 = "- de 10", alors le nombre de points est 2 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Extra Muros et P3 = "Temps de travail dont formation" et P4 = "de 10 à 20", alors le nombre de points est 3 multiplié par le nombre de kilometres"
Si P1 = "Multi mobilité" et et Extra Muros et P3 = "Temps de travail dont formation" et P4 = "+ de 20", alors le nombre de points est 4 multiplié par le nombre de kilometres"



J'ai tenté une autre approche, uniquement basée sur des "If"... mais je bloque totalement...

.
Merci... beacoup !!!
 

Pièces jointes

  • CALCUL.xlsm
    437.4 KB · Affichages: 9
Dernière édition:
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Puisque tu parles des "bons conseils du forum, en voici un autre ci-dessous
VB: 
Function CalcPoints(P1$, P2$, P3$, P4$, P5$, P6$) 'CalcPoints(valeurB5=mode de transport, valeurC5=Nb de personnes, valeurD5=territoire, valeurE5=type de trajet, valeurF5=Nb de km, valeurG5=Nb de trajets)
Dim Points
Points = 0
Select Case P1
Case "Co-voiturage"
Select Case P4
Case "Trajet domicile - travail"
If CInt(P2) = 2 Then
Points = 0
ElseIf CInt(P2) = 3 Then
Points = 1
ElseIf CInt(P2) = 4 Then
Points = 2
Else
Points = 0
End If
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If CInt(P2) = 2 Then
Points = 0.5
ElseIf CInt(P2) = 3 Then
Points = 1
ElseIf CInt(P2) = 4 Then
Points = 2
Else
Points = 0
End If
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Vélo électrique"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 3
ElseIf P5 = "de 10 à 20" Then
Points = Points + 4
ElseIf P5 = "+ de 20" Then
Points = Points + 5
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 2
ElseIf P3 = "extra muros" Then
Points = Points + 3
Else
GoTo Probleme
End If
End Select
Case "Vélo classique"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 4
ElseIf P5 = "de 10 à 20" Then
Points = Points + 5
ElseIf P5 = "+ de 20" Then
Points = Points + 6
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 3
ElseIf P3 = "extra muros" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Multi mobilité"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Marche"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "Moins de 2 km" Then
Points = Points + 4
ElseIf P5 = "De 2 à 5 km" Then
Points = Points + 5
ElseIf P5 = "5 km et +" Then
Points = Points + 6
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 3
ElseIf P3 = "extra muros" Then
Points = Points
Else
GoTo Probleme
End If
End Select
End Select
Points = Points * CInt(P6)
CalcPoints = Points
Exit Function
Probleme:
MsgBox "Calcul impossible, données manquantes", vbOKOnly
CalcPoints = 0
End Function
Qui se résume à : utiliser la balise BBCODE [CODE]Ici le code VBA[/CODE]
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
Staple1600 à dit:
Re

Puisque tu parles des "bons conseils du forum, en voici un autre ci-dessous
VB: 
Function CalcPoints(P1$, P2$, P3$, P4$, P5$, P6$) 'CalcPoints(valeurB5=mode de transport, valeurC5=Nb de personnes, valeurD5=territoire, valeurE5=type de trajet, valeurF5=Nb de km, valeurG5=Nb de trajets)
Dim Points
Points = 0
Select Case P1
Case "Co-voiturage"
Select Case P4
Case "Trajet domicile - travail"
If CInt(P2) = 2 Then
Points = 0
ElseIf CInt(P2) = 3 Then
Points = 1
ElseIf CInt(P2) = 4 Then
Points = 2
Else
Points = 0
End If
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If CInt(P2) = 2 Then
Points = 0.5
ElseIf CInt(P2) = 3 Then
Points = 1
ElseIf CInt(P2) = 4 Then
Points = 2
Else
Points = 0
End If
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Vélo électrique"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 3
ElseIf P5 = "de 10 à 20" Then
Points = Points + 4
ElseIf P5 = "+ de 20" Then
Points = Points + 5
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 2
ElseIf P3 = "extra muros" Then
Points = Points + 3
Else
GoTo Probleme
End If
End Select
Case "Vélo classique"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 4
ElseIf P5 = "de 10 à 20" Then
Points = Points + 5
ElseIf P5 = "+ de 20" Then
Points = Points + 6
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 3
ElseIf P3 = "extra muros" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Multi mobilité"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P5 = "- de 10" Then
Points = Points + 2
ElseIf P5 = "de 10 à 20" Then
Points = Points + 3
ElseIf P5 = "+ de 20" Then
Points = Points + 4
Else
GoTo Probleme
End If
End Select
Case "Marche"
Select Case P4
Case "Trajet domicile - travail"
If P5 = "Moins de 2 km" Then
Points = Points + 4
ElseIf P5 = "De 2 à 5 km" Then
Points = Points + 5
ElseIf P5 = "5 km et +" Then
Points = Points + 6
Else
GoTo Probleme
End If
Case "Temps de travail dont formation"
If P3 = "intra muros" Then
Points = Points + 3
ElseIf P3 = "extra muros" Then
Points = Points
Else
GoTo Probleme
End If
End Select
End Select
Points = Points * CInt(P6)
CalcPoints = Points
Exit Function
Probleme:
MsgBox "Calcul impossible, données manquantes", vbOKOnly
CalcPoints = 0
End Function
Qui se résume à : utiliser la balise BBCODE [CODE]Ici le code VBA[/CODE]
Cliquez pour agrandir...
Heu.... ?
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
Staple1600 à dit:
@halecs93

Heu?

Le code n'est pas plus lisible tel que je l'ai formaté ?
Donc le message plus agréable à lire pour les membres du forum ?

C'est là que se nichait mon conseil du jour

PS: qui est d'ailleurs celui qu'on peut lire dans ma signature (celle des messages que je poste sur XLD)
;)
Cliquez pour agrandir...
Je ne sais pas... quoi qu il en soit, le code est le même ;).... et le fond de ma pensée était pour le fond, pas pour la forme (le code est dans le fichier joint) :)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

@laurent950
Je disais que simplement à quelques lignes remplies manuellement par le demandeur
Cela permet de tester si modifications/propositions donnent les bons résultats.
Ni plus, ni moins

De plus, la question semble avoir été précédemment résolue, non ?
excel-downloads.com

XL 2016 - Calculs complexes(?) pour moi via userform

Bonjour à toutes et à tous, Je travaille sur un fichier (défi mobilité) qui doit permettre de générer des points en fonction de différentes options. J'ai bricolé sur l'onglet 'calcul'. J'ai voulu passer par un userform (onglet 'Mon Défi') pour que la saisi soit plus ergonomique pour...
excel-downloads.com excel-downloads.com
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
Staple1600 à dit:
Re

@laurent950
Je disais que simplement à quelques lignes remplies manuellement par le demandeur
Cela permet de tester si modifications/propositions donnent les bons résultats.
Ni plus, ni moins

De plus, la question semble avoir été précédemment résolue, non ?
excel-downloads.com

XL 2016 - Calculs complexes(?) pour moi via userform

Bonjour à toutes et à tous, Je travaille sur un fichier (défi mobilité) qui doit permettre de générer des points en fonction de différentes options. J'ai bricolé sur l'onglet 'calcul'. J'ai voulu passer par un userform (onglet 'Mon Défi') pour que la saisi soit plus ergonomique pour...
excel-downloads.com excel-downloads.com
Cliquez pour agrandir...
J'ai du mal comprendre le code alors pour le compléter
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
@halec93
Je parlais pas de compléter le code mais de mettre des exemples sur la feuille
(donc calculés manuellement)


PS: N'existe-t-il pas un PDF qui explique les tenants et aboutissants de ce Défi Mobilité.

NB: J'ai le même genre de Défi au taf (à faire en équipe)
Mais pour le moment aucun de mes collègues n'a pas parlé de créé une équipe
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
Staple1600 à dit:
@halec93
Je parlais pas de compléter le code mais de mettre des exemples sur la feuille
(donc calculés manuellement)


PS: N'existe-t-il pas un PDF qui explique les tenants et aboutissants de ce Défi Mobilité.

NB: J'ai le même genre de Défi au taf (à faire en équipe)
Mais pour le moment aucun de mes collègues n'a pas parlé de créé une équipe
Cliquez pour agrandir...
Naturellement si... pdf ou jpg ;)
 

Pièces jointes

  • CALCULS.pdf
    130.5 KB · Affichages: 5
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re


@halecs93
Merci mais ce n'est que le contenu de la feuille cachée CALCULS
(le message#8 aurait du te mettre la puce à l'oreille ;)
Staple¸ les yeux ouverts à dit:
PS: La bonne soirée au gens du territoire hilairois ;)
Cliquez pour agrandir...

@laurent950
Par chez moi, ils font aussi plus au moins comme ici
www.defimobilite-paysdelaloire.fr

Défi Mobilité en Pays de la Loire

Le Défi Mobilité en Pays de la Loire vous invite à changer vos habitudes de déplacement pour aller au travail ou à l'école !
www.defimobilite-paysdelaloire.fr www.defimobilite-paysdelaloire.fr
Et mon employeur est de la partie.
C'est tout ce que veut dire le message#11
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
Hello,

Du coup, j'ai tenté une approche totalement différente. Et pour éviter tout cynisme, j'ai bricolé comme j'ai pu...avec mon niveau débutant.

Je joins le fichier si cela intéresse quelqu'un.

Merci encore
 

Pièces jointes

  • CALCUL.xlsm
    434.2 KB · Affichages: 1
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonsoir

Voici le mode de calcul du Défi Mobilité de mon taf
defmob.png
C'est plus simple à transposer dans Excel, non ?

Je regarde ton nouveau fichier.

1) Le code VBA n'a rien d'un code de débutant ;)
2) Quand je clique sur Défi du jour, l'userform s'affiche avec le bouton VALIDER inhibé donc je reste bloqué
3) Si je mets cette ligne à true
cmdValider.Enabled = True
J'ai ce message d'erreur qui apparait
MsgBox "G5 doit être une valeur numérique valide."

Tu peux résumer le mode d'emploi de ton nouveau fichier ?

EDITION: En modifiant ainsi, je peux tester et insérer les valeurs dans la feuille
Code: 
 ' Masquer ComboBoxC5, Label2, ComboBoxD5 et Label3 à l'initialisation
    ComboBoxB5.Visible = -1 'False
    Label1.Visible = -1 'False
    ComboBoxC5.Visible = -1 'False
    Label2.Visible = -1 'False
    ComboBoxD5.Visible = -1 'False
    Label3.Visible = -1 'False
    ComboBoxE5.Visible = -1 'False
    Label4.Visible = -1 'False
    ComboBoxF5.Visible = -1 'False
    Label5.Visible = -1 ' False
    ComboBoxG5.Visible = -1 'False
    Label6.Visible = -1 'False
    cmdValider.Enabled = True
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

StephCo
  • Question
Autres Diagramme de Gantt avec beaucoup de contraintes (avec LibreOffice) et formule matricielle multicritères
Réponses
2
Affichages
618
Simon 1234
S
Q
  • Résolu(e)
XL 2016 détection changement de pente
2
Réponses
15
Affichages
2 K
sylvanu
sylvanu
C
  • Question
XL 2016 Inscrire ce que contient une cellule en fonction d'une date rentrée... Macro ?
Réponses
1
Affichages
441
AC045364
A
K
  • Question
XL 2016 Calculer note de sport en fonction de multiples barèmes (sexe, âge, chrono ou résultat net)
Réponses
14
Affichages
426
TooFatBoy
TooFatBoy
M
  • Question
XL 2019 Formules automatique comptage de points jeu
Réponses
0
Affichages
841
Maud Gauthier
M
G
  • Question
Microsoft 365 Méthode pour déduire des groupes en fonction de projets communs
Réponses
1
Affichages
1 K
Gian75018
G
E
  • Question
XL 2010 OUTIL DÉCISION ACHAT PRODUITS MULTICRITÈRES ET CONDITIONS
2
Réponses
15
Affichages
2 K
R@chid
R@chid
E
  • Question
XL 2013 nb.si.ens ou sommeprod ?
Réponses
2
Affichages
1 K
Ex Elle
E
Novice38
  • Question
XL 2016 Menus déroulants avec fonction "SI" + calendrier automatique
Réponses
2
Affichages
2 K
Novice38
Novice38
Novice38
  • Question
XL 2016 Menus déroulants avec formules "SI" + calendrier automatique
Réponses
4
Affichages
1 K
Novice38
Novice38

Membres actuellement en ligne

17 membres et 139 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 094
Messages
2 116 145
Membres
112 669
dernier inscrit
Guigui2502