Bonjour à tous,

a l'aide !!!
je ne connais pas trop le langage VBA.

Je désire quand j'écris 1 ou 2 dans une case
que l'image 1 ou 2 apparaisse
et que je cache des cellules quand j'ai 1 mais pas 2.

voici mon petit prog.
La première partie fonctionne bien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function AfficheCache(nb, seuil, image)
 If nb = seuil Then
   ActiveSheet.Shapes(image).Visible = True
 Else
   ActiveSheet.Shapes(image).Visible = False
 End If
 AfficheCache = 0
End Function
 
Sub Affiche(nb, seuil, tableau)
 If nb = seuil Then
   Range(tableau).Visible = False
 Else
   Range(tableau).Visible = True
 End If
 AfficheCache = 0
End Sub
et dans 2 cellules, j'ai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
=(affichecache(AE4;1;"Motor1"))
=(affichecache(AE4;2;"Motor2"))
merci de votre aide