Sujet Précédent Sujet Suivant

Cacher une ligne sous conditions

Résolu/Fermé
imsa - 12 oct. 2020 à 11:52
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 12 oct. 2020 à 19:11
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

Réponse 1 / 6
imsa
12 oct. 2020 à 13:56
Top, c'est parfait.
Merci beaucoup.

Bonne journée à vous et merci
1
Réponse 2 / 6
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 166
Modifié le 12 oct. 2020 à 12:29
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
Réponse 3 / 6
imsa
12 oct. 2020 à 13:32
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
Réponse 4 / 6
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
12 oct. 2020 à 13:37
bonjour,

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

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

Posez votre question
Réponse 5 / 6
imsa
12 oct. 2020 à 13:49
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
Réponse 6 / 6
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié le 12 oct. 2020 à 13:58
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 samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 166
12 oct. 2020 à 14:54
Pas eu le temps de répondre avant, merci michel_m (salutations) d'avoir pris la relève ;)
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310 > Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022
12 oct. 2020 à 18:56
salut Yoyo

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

Cordialement
0
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 166 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
12 oct. 2020 à 19:11
J'ai même remarqué l'écriture de ton code, d'une autre façon sans qu'il n'y ait de Select ;)
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
Ligne occupée : pourquoi mon téléphone sonne occupé ?
nanou -
Tiguet -

29 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses