Probleme declaration variable dans select case

Bonjour,

je souhaite utilisé la fonction "select case" avec l'adresse de la cellule active mais je n'y arrive pas.

Voici ce que je fais:

Dim i As Range
Sub Macro1()
'Selection de la feuille
 Sheets("Feuil2").Activate

  i = ActiveCell.Address

 'cas à résoudre'

Select Case i
 Case 1 = "$B$3"
 blablablabla
  case 2= "$B$5"
  blablablabla 

  etc...
 

Là où cela bloque c'est dans la déclaration de ma variable i ,ce ne dois pas être bon car quand je lance le débogueur à cette endroit il me marque i = nothing alors que ActiveCell.adress est bien égale à "$B$3".

Du coup il ne me résout pas mes "cas"

qu'est-ce que je dois mettre? si c'est bon où est-ce que je fais une erreur sinon?

merci

Bonjour,

i est une adresse et est donc de format chaîne.

Dim i  as String

Remarque :

Le choix de cette variable n'est pas judicieux car "i" représente plutôt un indice. Une variable de nom "adr" ou " adresse" serait un bien meilleur choix.

Dim adresse as String

Bonjour à tous,

concernant la syntaxe du select case, il vaudrait mieux utiliser:

 'cas à résoudre'

Select Case i
    Case "$B$3"
      'blabla1
    Case "$B$5"
      'blacla2
    Case Else    ' Autres valeurs.
    'blabla autre
End Select

A+

J'ai mis ceci:

Dim adresse As String

Sub Macro1()

'Selection de la feuille
 Sheets("Feuil2").Activate

adresse = ActiveCell.Address

 'cas a résoudre'

Select Case adresse
 Case 1 = "$B$3"

Maintenant dans adresse il vois bien ma cellule active , mille merci.

Mais quand il passe a "case 1" il m'envoie un message d'erreur "erreur d’exécution 13" incompatibilité de type

par contre le "blablabal" c'est pas du texte mais du code , il est très long c'est pour cela que j'ai préférez mettre "blablablabla"

Merci merci cela fonctionne,

j'avais pas remarque qu'algoplus plus avais retirer le "=1" "de case 1 =" .

Grace à vous deux cela fonctionne .

Merci