Formule dans une macro

Bonjour pijaku

Une petite question svp pour ma culture,
Pour quelle raison utilise-tu dans tes codes [E31] à la place de Range("E31")?
Est-ce pour une facilité d'écriture?
Est-ce exactement la même chose?

cordialement

Bonjour,

C'est exactement la même chose. Pure fainéantise de ma part.

Alors, Je crois que je vais devenir faignant

Ta question manquant cruellement de précision...

Sub Image1_Cliquer()
'Avec condition ET
If [E31] = 1 And [G31] = 2 And [I31] = 3 And [K31] = 4 Then
'Avec Condition OU
'If [E31] = 1 Or [G31] = 2 Or [I31] = 3 Or [K31] = 4 Then
    Sheets("Feuil2").Activate
ElseIf  [E31] = 10 And [G31] = 20 And [I31] = 30 And [K31] = 40 Then
    Sheets("Feuil3").Activate
Else
    Sheets("Feuil4").Activate
End If
End Sub

le 1er code et fonctionnelle et il vas super bien
ma question et la suivante:
supposont que je voudrais ouvrir 10 feuilles avec 10 code different
a partir du premier code

Quels sont les 10 codes d'ouverture?

le 1er 1234 le 2ieme 2546 par exemple ,ect... pour les autre

Ben voilà. ..

Dim Code As String

Code = CStr([E31].Value & [G31].Value & [I31].Value & [K31].Value)
Select Case Code
  Case "1234"
      Sheets("Feuil1").Activate
  Case "2546"
      Sheets("Feuil2").Activate
  Case "6541"
      Sheets("Feuil3").Activate
  '...
  '...
  Case Else
      MsgBox "Mauvais code"
End Select

Bonjour,

Pour ta culture personnel le RANGE sert à grouper plusieurs cellule:
Le RANGE("A1").select ne va grouper qu'une seule cellule alors que le Range("A1", "B4").Select sélectionnera toutes les cellule de A1 jusqu'à B4 donc 8 celulles au total.

Après le VBA c'est comme une langue vivante, parfois il ya plusieurs manière de dire la même chose. Si tu veux sélectionner une cellule tu peux le noter de ces différente manières :
Range("A1").select
[A1].select
Cells(1,"A").select
Cells(1,1).select

pour ma part je te conseil d'utiliser la dernière solution car elle utilise uniquement des nombres pour déterminer la position d'une cellule ce qui te permet de jouer avec les variable quand la cellule à sélectionner n'est pas connu à l'avance.

pour en revenir au groupement des cellules voilà ce que Range("A1", "B4").Select donnerait en utilisant le Cells :
Range(cells(1,1),cells(4,2)).select