Discussion :

[kawabush]

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

[BDA53]

Bonjour kawabush,

Pour afficher ou masquer une plage de cellules en vba, tu peux utiliser la méthode Hidden.
Elle correspond à l'action proposée par excel quand tu fais un clic droit sur une ligne ou une colonne (capture d'écran en pièce jointe)
Du coup, si tu l'utilises dans ton programme cela donne ceci :

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).EntireRow.Hidden = True
 Else
   Range(tableau).EntireRow.Hidden = False
 End If
 AfficheCache = 0
End Sub

Tu peux utiliser cette méthode de 2 façons : masquer les lignes ou les colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range(tableau).EntireRow.Hidden = True
Range(tableau).EntireColumn.Hidden = True

Je reste disponible pour plus d'explications sur ce sujet,
Cordialement,
BDA53

[BDA53]

Attention j'ai modifié le post précédent les valeurs True/False n'étaient pas au bon endroit pour la méthode Hidden.
Maintenant avec le post modifié c'est good

[kawabush]

Bonjour BDA53,

Merci pour ta solution, mais cela ne marche pas.
Voici une capture d'écran qui explique:
si le nombre de moteur = 1 j'affiche image1 sinon 2 et image 2

et les cellules en gris sont invisibles pour le nombre 1 uniquement

Je joins aussi mon fichier excel

merci

Bonne journéeessai.xlsm

[BDA53]

D'accord je comprends un peu mieux ta demande. Du coup plusieurs questions me viennent à l'esprit :

Tes variables nb, seuil, image, tableau sont déclarées et initialisées dans une procédure ?
Si oui que contiennent-elles ?
Si non que faut-il comme contenu dans tes variables ?
Le but est d'afficher / masquer un ou plusieurs tableaux ?

[kawabush]

nb est le chiffre 1 ou 2 (number motor)
seuil est soit 1 ou 2
image est Motor1 ou Motor2

le but est d'afficher ou masquer les cellules ad12 à 16 et af12 à 16 aisni que les 2 dernières lignes du tableau (M2)
et de pouvoir afficher une image en fonction du choix.