Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Condition imbriquée

Condition imbriquée

5 réponses
Avatar
j0b
Bonjour à vous, ma procédure ne fonctionne pas mais je ne vois pas pourquoi

Sub saisiedanslafeuille2()
If gentree.Label13.Caption < "1 / 2" Then
Sheets("Achat01").Select
ElseIf gentree.Label13.Caption < "1 / 3" Then
Sheets("Achat02").Select
ElseIf gentree.Label13.Caption < "1 / 4" Then
Sheets("Achat03").Select
ElseIf gentree.Label13.Caption < "1 / 5" Then
Sheets("Achat04").Select
ElseIf gentree.Label13.Caption < "1 / 6" Then
Sheets("Achat05").Select
ElseIf gentree.Label13.Caption < "1 / 7" Then
Sheets("Achat06").Select
ElseIf gentree.Label13.Caption < "1 / 8" Then
Sheets("Achat07").Select
ElseIf gentree.Label13.Caption < "1 / 9" Then
Sheets("Achat08").Select
ElseIf gentree.Label13.Caption < "1 / 10" Then
Sheets("Achat09").Select
ElseIf gentree.Label13.Caption < "1 /
11" Then
Sheets("Achat10").Select
ElseIf gentree.Label13.Caption < "1
/ 12" Then
Sheets("Achat11").Select
Else
Sheets("Achat12").Select
End If
End Sub

le gentree.label13.caption = date, donc je veux faire ma comparaison avec la
date du jour pour faire le choix de ma feuille. Je n'ai aucun message
d'erreur mais ca ne fonctionne pas. Pourquoi ? Merci d'avance
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ange Ounis
Peut-être que tu te compliques un peu la vie..
Si dans ton Label13 il y a une date sous la forme 1/3 ou 1/1/06, tu pourrais
essayer ce genre de code :

Sub saisiedanslafeuille2()
Dim Mois
Mois=Format(split(gentree.Label13.Caption,"/")(1),"00")
Sheets("Achats" & Mois).select
End Sub

Mais tout dépend sous quelle forme tu récupères la date dans le Label13.

----------
Ange Ounis
----------

Bonjour à vous, ma procédure ne fonctionne pas mais je ne vois pas pourquoi

Sub saisiedanslafeuille2()
If gentree.Label13.Caption < "1 / 2" Then
Sheets("Achat01").Select
ElseIf gentree.Label13.Caption < "1 / 3" Then
Sheets("Achat02").Select
ElseIf gentree.Label13.Caption < "1 / 4" Then
Sheets("Achat03").Select
ElseIf gentree.Label13.Caption < "1 / 5" Then
Sheets("Achat04").Select
ElseIf gentree.Label13.Caption < "1 / 6" Then
Sheets("Achat05").Select
ElseIf gentree.Label13.Caption < "1 / 7" Then
Sheets("Achat06").Select
ElseIf gentree.Label13.Caption < "1 / 8" Then
Sheets("Achat07").Select
ElseIf gentree.Label13.Caption < "1 / 9" Then
Sheets("Achat08").Select
ElseIf gentree.Label13.Caption < "1 / 10" Then
Sheets("Achat09").Select
ElseIf gentree.Label13.Caption < "1 /
11" Then
Sheets("Achat10").Select
ElseIf gentree.Label13.Caption < "1
/ 12" Then
Sheets("Achat11").Select
Else
Sheets("Achat12").Select
End If
End Sub

le gentree.label13.caption = date, donc je veux faire ma comparaison avec la
date du jour pour faire le choix de ma feuille. Je n'ai aucun message
d'erreur mais ca ne fonctionne pas. Pourquoi ? Merci d'avance


Avatar
j0b
Dans le label je récupère la date sous cette forme 01/01/06 la date par
défault. Je vais un test avec cette procédure.


Peut-être que tu te compliques un peu la vie..
Si dans ton Label13 il y a une date sous la forme 1/3 ou 1/1/06, tu pourrais
essayer ce genre de code :

Sub saisiedanslafeuille2()
Dim Mois
Mois=Format(split(gentree.Label13.Caption,"/")(1),"00")
Sheets("Achats" & Mois).select
End Sub

Mais tout dépend sous quelle forme tu récupères la date dans le Label13.

----------
Ange Ounis
----------

Bonjour à vous, ma procédure ne fonctionne pas mais je ne vois pas pourquoi

Sub saisiedanslafeuille2()
If gentree.Label13.Caption < "1 / 2" Then
Sheets("Achat01").Select
ElseIf gentree.Label13.Caption < "1 / 3" Then
Sheets("Achat02").Select
ElseIf gentree.Label13.Caption < "1 / 4" Then
Sheets("Achat03").Select
ElseIf gentree.Label13.Caption < "1 / 5" Then
Sheets("Achat04").Select
ElseIf gentree.Label13.Caption < "1 / 6" Then
Sheets("Achat05").Select
ElseIf gentree.Label13.Caption < "1 / 7" Then
Sheets("Achat06").Select
ElseIf gentree.Label13.Caption < "1 / 8" Then
Sheets("Achat07").Select
ElseIf gentree.Label13.Caption < "1 / 9" Then
Sheets("Achat08").Select
ElseIf gentree.Label13.Caption < "1 / 10" Then
Sheets("Achat09").Select
ElseIf gentree.Label13.Caption < "1 /
11" Then
Sheets("Achat10").Select
ElseIf gentree.Label13.Caption < "1
/ 12" Then
Sheets("Achat11").Select
Else
Sheets("Achat12").Select
End If
End Sub

le gentree.label13.caption = date, donc je veux faire ma comparaison avec la
date du jour pour faire le choix de ma feuille. Je n'ai aucun message
d'erreur mais ca ne fonctionne pas. Pourquoi ? Merci d'avance





Avatar
j0b
Ca ne fonctionne pas j'ai un message d'erreur sur le sheets. Merci


Peut-être que tu te compliques un peu la vie..
Si dans ton Label13 il y a une date sous la forme 1/3 ou 1/1/06, tu pourrais
essayer ce genre de code :

Sub saisiedanslafeuille2()
Dim Mois
Mois=Format(split(gentree.Label13.Caption,"/")(1),"00")
Sheets("Achats" & Mois).select
End Sub

Mais tout dépend sous quelle forme tu récupères la date dans le Label13.

----------
Ange Ounis
----------

Bonjour à vous, ma procédure ne fonctionne pas mais je ne vois pas pourquoi

Sub saisiedanslafeuille2()
If gentree.Label13.Caption < "1 / 2" Then
Sheets("Achat01").Select
ElseIf gentree.Label13.Caption < "1 / 3" Then
Sheets("Achat02").Select
ElseIf gentree.Label13.Caption < "1 / 4" Then
Sheets("Achat03").Select
ElseIf gentree.Label13.Caption < "1 / 5" Then
Sheets("Achat04").Select
ElseIf gentree.Label13.Caption < "1 / 6" Then
Sheets("Achat05").Select
ElseIf gentree.Label13.Caption < "1 / 7" Then
Sheets("Achat06").Select
ElseIf gentree.Label13.Caption < "1 / 8" Then
Sheets("Achat07").Select
ElseIf gentree.Label13.Caption < "1 / 9" Then
Sheets("Achat08").Select
ElseIf gentree.Label13.Caption < "1 / 10" Then
Sheets("Achat09").Select
ElseIf gentree.Label13.Caption < "1 /
11" Then
Sheets("Achat10").Select
ElseIf gentree.Label13.Caption < "1
/ 12" Then
Sheets("Achat11").Select
Else
Sheets("Achat12").Select
End If
End Sub

le gentree.label13.caption = date, donc je veux faire ma comparaison avec la
date du jour pour faire le choix de ma feuille. Je n'ai aucun message
d'erreur mais ca ne fonctionne pas. Pourquoi ? Merci d'avance





Avatar
j0b
Ca fonctionne il y avait une petite erreur dans le code donné, il y avait un
S à achats alors qu'il ne devait pas y en avoir. Nickel c'est court et ca
déchire. Merci bien


Peut-être que tu te compliques un peu la vie..
Si dans ton Label13 il y a une date sous la forme 1/3 ou 1/1/06, tu pourrais
essayer ce genre de code :

Sub saisiedanslafeuille2()
Dim Mois
Mois=Format(split(gentree.Label13.Caption,"/")(1),"00")
Sheets("Achats" & Mois).select
End Sub

Mais tout dépend sous quelle forme tu récupères la date dans le Label13.

----------
Ange Ounis
----------

Bonjour à vous, ma procédure ne fonctionne pas mais je ne vois pas pourquoi

Sub saisiedanslafeuille2()
If gentree.Label13.Caption < "1 / 2" Then
Sheets("Achat01").Select
ElseIf gentree.Label13.Caption < "1 / 3" Then
Sheets("Achat02").Select
ElseIf gentree.Label13.Caption < "1 / 4" Then
Sheets("Achat03").Select
ElseIf gentree.Label13.Caption < "1 / 5" Then
Sheets("Achat04").Select
ElseIf gentree.Label13.Caption < "1 / 6" Then
Sheets("Achat05").Select
ElseIf gentree.Label13.Caption < "1 / 7" Then
Sheets("Achat06").Select
ElseIf gentree.Label13.Caption < "1 / 8" Then
Sheets("Achat07").Select
ElseIf gentree.Label13.Caption < "1 / 9" Then
Sheets("Achat08").Select
ElseIf gentree.Label13.Caption < "1 / 10" Then
Sheets("Achat09").Select
ElseIf gentree.Label13.Caption < "1 /
11" Then
Sheets("Achat10").Select
ElseIf gentree.Label13.Caption < "1
/ 12" Then
Sheets("Achat11").Select
Else
Sheets("Achat12").Select
End If
End Sub

le gentree.label13.caption = date, donc je veux faire ma comparaison avec la
date du jour pour faire le choix de ma feuille. Je n'ai aucun message
d'erreur mais ca ne fonctionne pas. Pourquoi ? Merci d'avance





Avatar
Pierre Fauconnier
Salut

Attention à "Achat" et "Achats". Ce n'est pas la même chose. Pourquoi ne
mettrais-tu pas un combobox avec les mois? Tu contrôlerais beaucoup mieux la
saisie.

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"j0b" a écrit dans le message de news:

Ca ne fonctionne pas j'ai un message d'erreur sur le sheets. Merci


Peut-être que tu te compliques un peu la vie..
Si dans ton Label13 il y a une date sous la forme 1/3 ou 1/1/06, tu
pourrais
essayer ce genre de code :

Sub saisiedanslafeuille2()
Dim Mois
Mois=Format(split(gentree.Label13.Caption,"/")(1),"00")
Sheets("Achats" & Mois).select
End Sub

Mais tout dépend sous quelle forme tu récupères la date dans le Label13.

----------
Ange Ounis
----------

Bonjour à vous, ma procédure ne fonctionne pas mais je ne vois pas
pourquoi

Sub saisiedanslafeuille2()
If gentree.Label13.Caption < "1 / 2" Then
Sheets("Achat01").Select
ElseIf gentree.Label13.Caption < "1 / 3" Then
Sheets("Achat02").Select
ElseIf gentree.Label13.Caption < "1 / 4" Then
Sheets("Achat03").Select
ElseIf gentree.Label13.Caption < "1 / 5" Then
Sheets("Achat04").Select
ElseIf gentree.Label13.Caption < "1 / 6" Then
Sheets("Achat05").Select
ElseIf gentree.Label13.Caption < "1 / 7" Then
Sheets("Achat06").Select
ElseIf gentree.Label13.Caption < "1 / 8" Then
Sheets("Achat07").Select
ElseIf gentree.Label13.Caption < "1 / 9"
Then
Sheets("Achat08").Select
ElseIf gentree.Label13.Caption < "1 /
10" Then
Sheets("Achat09").Select
ElseIf gentree.Label13.Caption < "1
/
11" Then
Sheets("Achat10").Select
ElseIf gentree.Label13.Caption
< "1
/ 12" Then
Sheets("Achat11").Select
Else
Sheets("Achat12").Select
End If
End Sub

le gentree.label13.caption = date, donc je veux faire ma comparaison
avec la
date du jour pour faire le choix de ma feuille. Je n'ai aucun message
d'erreur mais ca ne fonctionne pas. Pourquoi ? Merci d'avance