Cacher une ligne sous conditions

Résolu
imsa -  
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aurais besoin d'une aide concernant une formule VBA à créer.

Si la cellule C10 = "Entreprises", tu affiches les lignes 15 et 16.

Si la cellule C10 <>"Entreprises", tu masques les lignes 15 et 16.

Le but c'est que cela se fasse automatiquement sans avoir de bouton macro pour activer....

Merci d'avance de votre aide.
A voir également:

6 réponses

imsa
 
Top, c'est parfait.
Merci beaucoup.

Bonne journée à vous et merci
1
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   168
 
Bonjour,

à tester :

Sub masquer()
If Range("C10").Value <> "Entreprises" Then
Range("15:16").Select
    Selection.EntireRow.Hidden = True
    Else
Range("15:16").Select
    Selection.EntireRow.Hidden = False
    End If
End Sub


0
imsa
 
La macro fonctionne mais j'aimerais la meme chose sans utiliser un bouton relié à la macro.

Est-ce possible de le faire en automatique dans la feuille?
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour,

Oui, mais à condition que tu écrives "Entreprises" manuellement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
imsa
 
Cela ne fonctionne pas en automatique. Même si je l'écris manuellement....

Il manquerait un code pour qu'il se fasse sans macro peut etre?
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Re
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
If Target = "Entreprises" Then
Rows("15:16").Hidden = True
Else
Rows("15:16").Hidden = False
End If
End If
End Sub


A intaller dans la fenètre "général" : this worksheet et dans la fenetre "déclaration": "change"

0
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   168
 
Pas eu le temps de répondre avant, merci michel_m (salutations) d'avoir pris la relève ;)
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314 > Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention  
 
salut Yoyo

Pad'koi! pour une fois que je m'étais privé de sieste...

Cordialement
0
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   168 > michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention  
 
J'ai même remarqué l'écriture de ton code, d'une autre façon sans qu'il n'y ait de Select ;)
0