Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Afficher zone de texte sous condition d'une cellule

chaelie2015

XLDnaute Accro
Bonjour Forum
je souhaite afficher les zones de texte selon la valeur dans la cellule(liste déroulante)
Exemple si B12= 2 alors afficher Zone Texte 2
D12= 3 alors afficher Zone Texte 3
F12= 5 alors afficher Zone Texte 5
H12= 1 alors afficher Zone Texte 1
et les autres zone de textes serant masquées.
A+
 

Pièces jointes

  • CHARLIE afficher zone de texte sous condition.xlsx
    11.1 KB · Affichages: 21

Lolote83

XLDnaute Barbatruc
Salut CHAELIE2015,
Tout d'abord, tous mes meilleurs voeux pour cette nouvelle année.
Pas sur d'avoir tout compris, mais en retour ton fichier
@+ Lolote83
 

Pièces jointes

  • Copie de CHAELIE2015 - afficher zone de texte sous condition.xlsm
    19.8 KB · Affichages: 28

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Chaelie,
Je suis encore en retrad : Bonjour James, Lolote
En PJ un essai.
Manque pas mal d'infos donc j'ai improvisé, comme par ex ce qui se passe si plusieurs cellules ont une bonne valeur.
Mais le code est facile à adapter.
 

Pièces jointes

  • CHARLIE afficher zone de texte sous condition.xlsm
    20.1 KB · Affichages: 26

job75

XLDnaute Barbatruc
Bonjour à tous,

La question posée n'est pas très claire, peut-être que ceci suffit :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
DrawingObjects.Visible = False
On Error Resume Next
For Each c In [B12,D12,F12,H12]
    DrawingObjects("TextBox " & c).Visible = True
Next
End Sub
A+
 

Pièces jointes

  • CHARLIE afficher zone de texte sous condition(1).xlsm
    18.7 KB · Affichages: 26

chaelie2015

XLDnaute Accro
Bonjour lolote83, James007,sylvanu,pierrejean et job75
Merci tout le monde pour ces réponses , oui effectivement je confirme que j'ai le choix
Encore une fois merci lolote83, James007,sylvanu,pierrejean et job75 MERCI forum
A+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…