XL 2016 Calculs ou "If" imbriqués ?

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

Dernière édition:
Trier par date Trier par votes
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
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
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
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
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
@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
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

Vote positif 0 Vote négatif
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

Accueil

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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2016 Inscrire ce que contient une cellule en fonction d'une date rentrée... Macro ?
Réponses
1
Affichages
461
AC045364
A
Q
  • Résolu(e)
XL 2016 détection changement de pente
2
Réponses
15
Affichages
2 K
sylvanu
sylvanu
K
  • Question Question
XL 2016 Calculer note de sport en fonction de multiples barèmes (sexe, âge, chrono ou résultat net)
Réponses
14
Affichages
499
TooFatBoy
TooFatBoy
G
  • Question 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 Question
XL 2010 OUTIL DÉCISION ACHAT PRODUITS MULTICRITÈRES ET CONDITIONS
2
Réponses
15
Affichages
2 K
R@chid
R@chid
R
  • Question Question
RESOLU /SOMMES SUIVANT PLUSIEURS CONDITIONS
Réponses
4
Affichages
1 K
richard31
R
Arpopa
  • Question Question
Outil de suivi de demandes
Réponses
0
Affichages
7 K
Arpopa
Arpopa
F
  • Question Question
XL 2010 Fusionner 2 macros
Réponses
2
Affichages
1 K
fablog
F
S
  • Question Question
création de lots excelMAC dictionary ?
Réponses
0
Affichages
510
Stephxx
S
P
  • Question Question
VBA - Calcul selon nombre pair/impair
Réponses
2
Affichages
4 K
pochoco
P
T
  • Question Question
rechercheV plusieurs résultats : liste automatique VBA
Réponses
12
Affichages
2 K
Lolote83
L
Towelie
  • Question Question
Manipulation ComboBox et affectation de valeurs à des termes
Réponses
5
Affichages
2 K
Towelie
Towelie
N
  • Question Question
XL 2010 Erreur 1004, definie par l'application ou l'objet, dans une boucle
Réponses
5
Affichages
2 K
Nicko29
N
A
  • Question Question
Vba
Réponses
1
Affichages
923
13GIBE59
13GIBE59
R
  • Question Question
Coder une multitude de si en VBA
Réponses
14
Affichages
2 K
rimbaut
R
M
  • Question Question
recherche une formule miracle
Réponses
13
Affichages
1 K
Lean
L
S
  • Question Question
formule alternative ou macro
2
Réponses
15
Affichages
2 K
salsitawapa
S
M
  • Question Question
Base de donnée excel avec VBA
Réponses
9
Affichages
1 K
cathodique
cathodique
B
  • Question Question
masquer plusieurs images dans une feuille élégamment
Réponses
8
Affichages
1 K
Boini
B
B
  • Question Question
Extraction groupes de numéros selon conditions
Réponses
0
Affichages
7 K
biafox
B
Retour