VBA - With conditionnel

Jacky

19/09/2007 à 22:59

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

19/09/2007 à 23:02

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

19/09/2007 à 23:11

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

19/09/2007 à 23:13

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

19/09/2007 à 23:23

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

19/09/2007 à 23:23

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 -

Jacky

19/09/2007 à 23:31

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 -

JB

19/09/2007 à 23:44

Bonsoir,

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

19/09/2007 à 23:46

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 -

Jacky

19/09/2007 à 23:51

Re...
C'est la première chose que j'ai fait.
J'ignorais totalement cette instruction.:-(

--
Salutations
JJ

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

Bonsoir,

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 -

VBA - With conditionnel

10 réponses

Veuillez sélectionner un problème