bonjour, et oui encore moi. Voici mon petit bout de programme qui ne
fonctionne pas . Pourriez-vous m'éclairer ?
Sub essai()
If #5:30:00 AM# < Time < #1:30:00 PM# Then MsgBox ("equipe 1") Else
If #1:30:00 PM# < Time < #9:00:00 PM# Then MsgBox ("equipe2") Else
If #9:00:00 PM# < Time < #5:30:00 AM# Then MsgBox ("equipe3")
If #1/4/2006# < Date < #10/4/2006# Then Range("E3").FormulaR1C1 = "TL Equipe
1 : Dupont1"
If #11/4/2006# < Date < #4/20/2006# Then Range("K3").FormulaR1C1 = "TL
Equipe 2 : Dupont2"
If #4/21/2006# < Date < #4/30/2006# Then Range("Q3").FormulaR1C1 = "TL
Equipe 3 : Dupont3"
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
Philippe
bonjour, et oui encore moi. Voici mon petit bout de programme qui ne fonctionne pas . Pourriez-vous m'éclairer ?
Sub essai() If #5:30:00 AM# < Time And Time < #1:30:00 PM# Then MsgBox ("equipe 1")
Else If #1:30:00 PM# < Time And Time < #9:00:00 PM# Then MsgBox ("equipe2") Else If #9:00:00 PM# < Time And Time < #5:30:00 AM# Then MsgBox ("equipe3")
If #4/1/2006# < Date And Date < #4/10/2006# Then Range("E3").FormulaR1C1 = "TL Equipe1: Dupont1 " If #11/4/2006# < Date And Date < #4/20/2006# Then Range("K3").FormulaR1C1 = "TL Equipe 2: Dupont2 " If #4/21/2006# < Date And Date < #4/30/2006# Then Range("Q3").FormulaR1C1 = "TL Equipe 3: Dupont3 " End Sub
VBA ne gère pas les doubles comparaisons, il faut les scinder et les lier par un opérateur A+ Philippe
bonjour, et oui encore moi. Voici mon petit bout de programme qui ne
fonctionne pas . Pourriez-vous m'éclairer ?
Sub essai()
If #5:30:00 AM# < Time And Time < #1:30:00 PM# Then MsgBox ("equipe 1")
Else
If #1:30:00 PM# < Time And Time < #9:00:00 PM# Then MsgBox ("equipe2")
Else
If #9:00:00 PM# < Time And Time < #5:30:00 AM# Then MsgBox ("equipe3")
If #4/1/2006# < Date And Date < #4/10/2006# Then
Range("E3").FormulaR1C1 = "TL Equipe1: Dupont1 "
If #11/4/2006# < Date And Date < #4/20/2006# Then
Range("K3").FormulaR1C1 = "TL Equipe 2: Dupont2 "
If #4/21/2006# < Date And Date < #4/30/2006# Then
Range("Q3").FormulaR1C1 = "TL Equipe 3: Dupont3 "
End Sub
VBA ne gère pas les doubles comparaisons, il faut les scinder et les lier
par un opérateur
A+
Philippe
bonjour, et oui encore moi. Voici mon petit bout de programme qui ne fonctionne pas . Pourriez-vous m'éclairer ?
Sub essai() If #5:30:00 AM# < Time And Time < #1:30:00 PM# Then MsgBox ("equipe 1")
Else If #1:30:00 PM# < Time And Time < #9:00:00 PM# Then MsgBox ("equipe2") Else If #9:00:00 PM# < Time And Time < #5:30:00 AM# Then MsgBox ("equipe3")
If #4/1/2006# < Date And Date < #4/10/2006# Then Range("E3").FormulaR1C1 = "TL Equipe1: Dupont1 " If #11/4/2006# < Date And Date < #4/20/2006# Then Range("K3").FormulaR1C1 = "TL Equipe 2: Dupont2 " If #4/21/2006# < Date And Date < #4/30/2006# Then Range("Q3").FormulaR1C1 = "TL Equipe 3: Dupont3 " End Sub
VBA ne gère pas les doubles comparaisons, il faut les scinder et les lier par un opérateur A+ Philippe
aravis
merci de ton aide, ça marche beaucoup mieux maintenant
merci de ton aide, ça marche beaucoup mieux maintenant