XL 2016 Erreur dans macro

[christ77000]

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.

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

 

[danielco]

Bonjour,

Il faut mettre :

x = Range("G22").Value

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

Daniel

 

[soan]

Bonsoir,

Je propose cette optimisation de code :

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

soan

 

[soan]

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

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

soan

 

[christ77000]

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