XL 2016 Erreur dans macro

christ77000 · 17 Octobre 2020

Bonjour à tous, je reviens vers vous pour une incompréhension dans mon code.
Ce que je cherche à faire, j'ai en G12 une liste déroulante avec deux choix je vais dire toto ou titi. En fonction de mon toto ou titi je lance par un bouton la macro 1 ou la macro 2. Voici mon code qui bug sur x=Range(G22).value . Merci pour votre aide.

VB:

Sub Nouveau_document()
x = Range(G22).Value
Select Case x
Case "toto": Call Nouveau_MN
Case "titi": Call Nouveau_AS
Case Else
Exit Sub
End Select
End Sub

soan · 17 Octobre 2020

Bonsoir,

Je propose cette optimisation de code :

VB:

Sub Nouveau_document()
  Select Case [G12] 'ou [G22]
    Case "toto": Nouveau_MN
    Case "titi": Nouveau_AS
  End Select
End Sub

soan

danielco · 17 Octobre 2020

Bonjour,

Il faut mettre :

VB:

x = Range("G22").Value

(ou G12 ?). Sinon G22 est considéré comme une variable.

Daniel

soan · 17 Octobre 2020

Bonsoir,

Je propose cette optimisation de code :

VB:

Sub Nouveau_document()
  Select Case [G12] 'ou [G22]
    Case "toto": Nouveau_MN
    Case "titi": Nouveau_AS
  End Select
End Sub

soan

soan · 17 Octobre 2020

ajout : si vraiment y'a qu'2 choix, « Select Case » est inutile ! utiliser plutôt :

VB:

Sub Nouveau_document()
  If [G22] = "toto" Then Nouveau_MN Else _
    If [G22] = "titi" Then Nouveau_AS
End Sub

soan

christ77000 · 18 Octobre 2020

Bonsoir un grand merci pour votre aide à tous les deux. Effectivement avec les ""ca va mieux.

XL 2016 Erreur dans macro

christ77000

XLDnaute Occasionnel

soan

danielco

XLDnaute Accro

soan

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

christ77000

XLDnaute Occasionnel

Discussions similaires