Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel si...alors...et...sinon...et....

si...alors...et...sinon...et....

6 réponses
Avatar
gaston
bonjour !
comment peut-on exprimer ceci:
Si ActiveSheet.Name = "Acptes" Alors Call
annul_traitementAcptes et Call Acptes
ou si si ActiveSheet.Name = "Credits" alors Call
annul_traitementCredits et Call Credits
si ni l'un ni l'autre alors ne rien faire
Signaler un problème avec ce contenu

6 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
Paul V.
Bonjour

Utilise l'instruction select case, idéale ici comme dans cet exemple :

Dim N As String
N = ActiveSheet.Name
Select Case N
Case "ACP"
MsgBox "acp"
Case "CRE"
MsgBox "cre"
Case Else
MsgBox "bye bye"
End Select


Attention à la casse des textes.

--
HTH

Paul V.

gaston wrote:
bonjour !
comment peut-on exprimer ceci:
Si ActiveSheet.Name = "Acptes" Alors Call
annul_traitementAcptes et Call Acptes
ou si si ActiveSheet.Name = "Credits" alors Call
annul_traitementCredits et Call Credits
si ni l'un ni l'autre alors ne rien faire


Avatar
Michel Pierron
Bonjour Gaston
If ActiveSheet.Name = "Acptes" Then
Call annul_traitementAcptes
Call Acptes
ElseIf ActiveSheet.Name = "Credits" Then
Call annul_traitementCredits
Call Credits
End If

MP

"gaston" a écrit dans le message de
news:938a01c4336f$5793b1a0$
bonjour !
comment peut-on exprimer ceci:
Si ActiveSheet.Name = "Acptes" Alors Call
annul_traitementAcptes et Call Acptes
ou si si ActiveSheet.Name = "Credits" alors Call
annul_traitementCredits et Call Credits
si ni l'un ni l'autre alors ne rien faire



Avatar
Clément Marcotte
Bonjour,

sub lequeldelagang()
if activesheet.name = "Acptes" then
annul_traitementAcptes
Acptes
elseif ActiveSheet.Name = "Credits" then
annul_traitementCredits
Credits
else
end if
end sub

ou avec select case:

sub lequeldelagang2()
select case activesheet.name
case "Acptes"
annul_traitementAcptes
Acptes
case "Credits"
annul_traitementCredits
Credits
case else
end select
end sub



"gaston" a écrit dans le message
de news:938a01c4336f$5793b1a0$
bonjour !
comment peut-on exprimer ceci:
Si ActiveSheet.Name = "Acptes" Alors Call
annul_traitementAcptes et Call Acptes
ou si si ActiveSheet.Name = "Credits" alors Call
annul_traitementCredits et Call Credits
si ni l'un ni l'autre alors ne rien faire



Avatar
Bonjour,
On peut dire :

If ActiveSheet.Name = "Acptes" Then
Call annul_traitementAcptes
Call Acptes
End If
If ActiveSheet.Name = "Credits" Then
Call annul_traitementCredits
Call Credits
End If

A+
-----Message d'origine-----
bonjour !
comment peut-on exprimer ceci:
Si ActiveSheet.Name = "Acptes" Alors Call
annul_traitementAcptes et Call Acptes
ou si si ActiveSheet.Name = "Credits" alors Call
annul_traitementCredits et Call Credits
si ni l'un ni l'autre alors ne rien faire

.



Avatar
gaston
merci à tous les deux, je teste laquelle va le plus vite
-----Message d'origine-----
Bonjour Gaston
If ActiveSheet.Name = "Acptes" Then
Call annul_traitementAcptes
Call Acptes
ElseIf ActiveSheet.Name = "Credits" Then
Call annul_traitementCredits
Call Credits
End If

MP

"gaston" a écrit
dans le message de

news:938a01c4336f$5793b1a0$
bonjour !
comment peut-on exprimer ceci:
Si ActiveSheet.Name = "Acptes" Alors Call
annul_traitementAcptes et Call Acptes
ou si si ActiveSheet.Name = "Credits" alors Call
annul_traitementCredits et Call Credits
si ni l'un ni l'autre alors ne rien faire




.




Avatar
Paul V.
Sans conteste, le select case ;-)

Mais je ne suis pas sûr que cela pourra se vérifier sur une procédure aussi
courte

--
HTH

Paul V.

gaston wrote:
merci à tous les deux, je teste laquelle va le plus vite
-----Message d'origine-----
Bonjour Gaston
If ActiveSheet.Name = "Acptes" Then
Call annul_traitementAcptes
Call Acptes
ElseIf ActiveSheet.Name = "Credits" Then
Call annul_traitementCredits
Call Credits
End If

MP

"gaston" a écrit dans le
message de news:938a01c4336f$5793b1a0$
bonjour !
comment peut-on exprimer ceci:
Si ActiveSheet.Name = "Acptes" Alors Call
annul_traitementAcptes et Call Acptes
ou si si ActiveSheet.Name = "Credits" alors Call
annul_traitementCredits et Call Credits
si ni l'un ni l'autre alors ne rien faire




.