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
Jacky
Bonsoir,
If 1 = 1 Then ???
Je suppose A1 '----------- Sub test() If [a1] = 1 Then With Sheets("Feuil1") 'le code End With Else With Sheets("Feuil2") 'le code End With End If ' MsgBox [a1] End Sub '---------------
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: uTHda5v%
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Bonsoir,
If 1 = 1 Then
???
Je suppose A1
'-----------
Sub test()
If [a1] = 1 Then
With Sheets("Feuil1")
'le code
End With
Else
With Sheets("Feuil2")
'le code
End With
End If
' MsgBox [a1]
End Sub
'---------------
--
Salutations
JJ
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uTHda5v%23HHA.464@TK2MSFTNGP02.phx.gbl...
Bonsoir.
Avec le code suivant et ses variantes, j'obtiens le message d'erreur de
compilation :
"else sans if"
Sub test()
If 1 = 1 Then
With Sheets("Feuil1")
Else
With Sheets("Feuil2")
End If
MsgBox .[a1]
End With
End Sub
Comment faire ?
Merci d'avance pour qui me dépannera.
Daniel
Je suppose A1 '----------- Sub test() If [a1] = 1 Then With Sheets("Feuil1") 'le code End With Else With Sheets("Feuil2") 'le code End With End If ' MsgBox [a1] End Sub '---------------
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: uTHda5v%
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
JB
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2") With Sheets(f) MsgBox .[a1] End With
JB
On 19 sep, 22:48, "Daniel.C" wrote:
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2")
With Sheets(f)
MsgBox .[a1]
End With
JB
On 19 sep, 22:48, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Avec le code suivant et ses variantes, j'obtiens le message d'erreur de
compilation :
"else sans if"
Sub test()
If 1 = 1 Then
With Sheets("Feuil1")
Else
With Sheets("Feuil2")
End If
MsgBox .[a1]
End With
End Sub
Comment faire ?
Merci d'avance pour qui me dépannera.
Daniel
f = IIf(1 = 1, "feuil1", "feuil2") With Sheets(f) MsgBox .[a1] End With
JB
On 19 sep, 22:48, "Daniel.C" wrote:
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Daniel.C
Bonsoir et merci. Je demandais pas un contournement (j'ai réussi à m'en sortir), je voulais savoir pourquoi cette syntaxe ne fonctionnait pas. Daniel "JB" a écrit dans le message de news:
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2") With Sheets(f) MsgBox .[a1] End With
JB
On 19 sep, 22:48, "Daniel.C" wrote:
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Bonsoir et merci.
Je demandais pas un contournement (j'ai réussi à m'en sortir), je voulais
savoir pourquoi cette syntaxe ne fonctionnait pas.
Daniel
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1190235772.464787.162340@w3g2000hsg.googlegroups.com...
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2")
With Sheets(f)
MsgBox .[a1]
End With
JB
On 19 sep, 22:48, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Avec le code suivant et ses variantes, j'obtiens le message d'erreur de
compilation :
"else sans if"
Sub test()
If 1 = 1 Then
With Sheets("Feuil1")
Else
With Sheets("Feuil2")
End If
MsgBox .[a1]
End With
End Sub
Comment faire ?
Merci d'avance pour qui me dépannera.
Daniel
Bonsoir et merci. Je demandais pas un contournement (j'ai réussi à m'en sortir), je voulais savoir pourquoi cette syntaxe ne fonctionnait pas. Daniel "JB" a écrit dans le message de news:
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2") With Sheets(f) MsgBox .[a1] End With
JB
On 19 sep, 22:48, "Daniel.C" wrote:
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Daniel.C
Bonsoir, si tu veux, j'ai mis 1=1 pour avoir la condition égale à vrai; j'aurais aussi bien pu mettre 1=2. D'une manière comme de l'autre, je devrais passer sur l'un des deux "With" Daniel "Jacky" a écrit dans le message de news: OVy8KAw%
Bonsoir,
If 1 = 1 Then ???
Je suppose A1 '----------- Sub test() If [a1] = 1 Then With Sheets("Feuil1") 'le code End With Else With Sheets("Feuil2") 'le code End With End If ' MsgBox [a1] End Sub '---------------
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: uTHda5v%
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Bonsoir,
si tu veux, j'ai mis 1=1 pour avoir la condition égale à vrai; j'aurais
aussi bien pu mettre 1=2. D'une manière comme de l'autre, je devrais passer
sur l'un des deux "With"
Daniel
"Jacky" <dupont@martin.fr> a écrit dans le message de news:
OVy8KAw%23HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonsoir,
If 1 = 1 Then
???
Je suppose A1
'-----------
Sub test()
If [a1] = 1 Then
With Sheets("Feuil1")
'le code
End With
Else
With Sheets("Feuil2")
'le code
End With
End If
' MsgBox [a1]
End Sub
'---------------
--
Salutations
JJ
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uTHda5v%23HHA.464@TK2MSFTNGP02.phx.gbl...
Bonsoir.
Avec le code suivant et ses variantes, j'obtiens le message d'erreur de
compilation :
"else sans if"
Sub test()
If 1 = 1 Then
With Sheets("Feuil1")
Else
With Sheets("Feuil2")
End If
MsgBox .[a1]
End With
End Sub
Comment faire ?
Merci d'avance pour qui me dépannera.
Daniel
Bonsoir, si tu veux, j'ai mis 1=1 pour avoir la condition égale à vrai; j'aurais aussi bien pu mettre 1=2. D'une manière comme de l'autre, je devrais passer sur l'un des deux "With" Daniel "Jacky" a écrit dans le message de news: OVy8KAw%
Bonsoir,
If 1 = 1 Then ???
Je suppose A1 '----------- Sub test() If [a1] = 1 Then With Sheets("Feuil1") 'le code End With Else With Sheets("Feuil2") 'le code End With End If ' MsgBox [a1] End Sub '---------------
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: uTHda5v%
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Jacky
Re.. J'ai bêtement cru à une erreur de frappe, désolé Amha, un with demande un end with, comme un for demande un next, sans code de boucle à l'intérieur de celle-ci.
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: OMos0Hw%
Bonsoir, si tu veux, j'ai mis 1=1 pour avoir la condition égale à vrai; j'aurais aussi bien pu mettre 1=2. D'une manière comme de l'autre, je devrais passer sur l'un des deux "With" Daniel "Jacky" a écrit dans le message de news: OVy8KAw%
Bonsoir,
If 1 = 1 Then ???
Je suppose A1 '----------- Sub test() If [a1] = 1 Then With Sheets("Feuil1") 'le code End With Else With Sheets("Feuil2") 'le code End With End If ' MsgBox [a1] End Sub '---------------
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: uTHda5v%
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
Re..
J'ai bêtement cru à une erreur de frappe, désolé
Amha, un with demande un end with, comme un for demande un next, sans code
de boucle à l'intérieur de celle-ci.
--
Salutations
JJ
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OMos0Hw%23HHA.1184@TK2MSFTNGP04.phx.gbl...
Bonsoir,
si tu veux, j'ai mis 1=1 pour avoir la condition égale à vrai; j'aurais
aussi bien pu mettre 1=2. D'une manière comme de l'autre, je devrais
passer sur l'un des deux "With"
Daniel
"Jacky" <dupont@martin.fr> a écrit dans le message de news:
OVy8KAw%23HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonsoir,
If 1 = 1 Then
???
Je suppose A1
'-----------
Sub test()
If [a1] = 1 Then
With Sheets("Feuil1")
'le code
End With
Else
With Sheets("Feuil2")
'le code
End With
End If
' MsgBox [a1]
End Sub
'---------------
--
Salutations
JJ
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uTHda5v%23HHA.464@TK2MSFTNGP02.phx.gbl...
Bonsoir.
Avec le code suivant et ses variantes, j'obtiens le message d'erreur de
compilation :
"else sans if"
Sub test()
If 1 = 1 Then
With Sheets("Feuil1")
Else
With Sheets("Feuil2")
End If
MsgBox .[a1]
End With
End Sub
Comment faire ?
Merci d'avance pour qui me dépannera.
Daniel
Re.. J'ai bêtement cru à une erreur de frappe, désolé Amha, un with demande un end with, comme un for demande un next, sans code de boucle à l'intérieur de celle-ci.
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: OMos0Hw%
Bonsoir, si tu veux, j'ai mis 1=1 pour avoir la condition égale à vrai; j'aurais aussi bien pu mettre 1=2. D'une manière comme de l'autre, je devrais passer sur l'un des deux "With" Daniel "Jacky" a écrit dans le message de news: OVy8KAw%
Bonsoir,
If 1 = 1 Then ???
Je suppose A1 '----------- Sub test() If [a1] = 1 Then With Sheets("Feuil1") 'le code End With Else With Sheets("Feuil2") 'le code End With End If ' MsgBox [a1] End Sub '---------------
-- Salutations JJ
"Daniel.C" a écrit dans le message de news: uTHda5v%
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel
JB
Sub test() #If 1 = 2 Then With Sheets("Feuil1") #Else With Sheets("Feuil2") #End If MsgBox .[a1] End With End Sub
JB
On 19 sep, 23:02, JB wrote:
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2") With Sheets(f) MsgBox .[a1] End With
JB
On 19 sep, 22:48, "Daniel.C" wrote:
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub test()
#If 1 = 2 Then
With Sheets("Feuil1")
#Else
With Sheets("Feuil2")
#End If
MsgBox .[a1]
End With
End Sub
JB
On 19 sep, 23:02, JB <boisgont...@hotmail.com> wrote:
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2")
With Sheets(f)
MsgBox .[a1]
End With
JB
On 19 sep, 22:48, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Avec le code suivant et ses variantes, j'obtiens le message d'erreur de
compilation :
"else sans if"
Sub test()
If 1 = 1 Then
With Sheets("Feuil1")
Else
With Sheets("Feuil2")
End If
MsgBox .[a1]
End With
End Sub
Comment faire ?
Merci d'avance pour qui me dépannera.
Daniel- Masquer le texte des messages précédents -
Regarder dan l'aide. Ces directives de compilation sont destinées à paramétrer les programmes en fonction de la plateforme.
JB On 19 sep, 23:31, "Jacky" wrote:
Re.. Bon, ben, je me coucherais moins bête ce soir. Quoi que...
-- Salutations JJ
"JB" a écrit dans le message de news:
Sub test() #If 1 = 2 Then With Sheets("Feuil1") #Else With Sheets("Feuil2") #End If MsgBox .[a1] End With End Sub
JB
On 19 sep, 23:02, JB wrote:
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2") With Sheets(f) MsgBox .[a1] End With
JB
On 19 sep, 22:48, "Daniel.C" wrote:
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Daniel.C
Magique ! Merci beaucoup, on en apprend à toute heure ! Daniel "JB" a écrit dans le message de news:
Sub test() #If 1 = 2 Then With Sheets("Feuil1") #Else With Sheets("Feuil2") #End If MsgBox .[a1] End With End Sub
JB
On 19 sep, 23:02, JB wrote:
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2") With Sheets(f) MsgBox .[a1] End With
JB
On 19 sep, 22:48, "Daniel.C" wrote:
Bonsoir. Avec le code suivant et ses variantes, j'obtiens le message d'erreur de compilation : "else sans if"
Sub test() If 1 = 1 Then With Sheets("Feuil1") Else With Sheets("Feuil2") End If MsgBox .[a1] End With End Sub
Comment faire ? Merci d'avance pour qui me dépannera. Daniel- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Magique !
Merci beaucoup, on en apprend à toute heure !
Daniel
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1190237002.840097.255550@n39g2000hsh.googlegroups.com...
Sub test()
#If 1 = 2 Then
With Sheets("Feuil1")
#Else
With Sheets("Feuil2")
#End If
MsgBox .[a1]
End With
End Sub
JB
On 19 sep, 23:02, JB <boisgont...@hotmail.com> wrote:
Bonsoir,
f = IIf(1 = 1, "feuil1", "feuil2")
With Sheets(f)
MsgBox .[a1]
End With
JB
On 19 sep, 22:48, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Avec le code suivant et ses variantes, j'obtiens le message d'erreur de
compilation :
"else sans if"
Sub test()
If 1 = 1 Then
With Sheets("Feuil1")
Else
With Sheets("Feuil2")
End If
MsgBox .[a1]
End With
End Sub
Comment faire ?
Merci d'avance pour qui me dépannera.
Daniel- Masquer le texte des messages précédents -