IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

tester une zone de liste.


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut tester une zone de liste.
    Bonjour j ai une zone de list ds une cellule excel sur ma feuille 2
    cette feuille etant copiable plein de fois

    avec trois valeur: bibi,baba,bobo

    je voudrais que quand j ai bibi : je mette le range("V2:Z2").value = nini
    je voudrais que quand j ai baba : je mette le range("V2:Z2").value = nana
    je voudrais que quand j ai bobo : je mette le range("V2:Z2").value = nana

    j y arrive avec un
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    private workbook selection change ()
    select case true
    case activesheet.range("U4").value = bibi 
     range("V2:Z2").value = nini
    ..
    .
    .
    end sub
    mais qd je suis sur ma feuille 1 je neveux pas que ce code s applique.


    Une idée?


    seconde partie quand U4 = bibi je voudrais masquer une colonne entière.

    est ce possible?
    merci

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Citation Envoyé par Tomy
    j y arrive avec un private workbook selection change ()
    Connais pas cet événement (V2003)
    Ça existe dans ta version d'Excel ?
    Tu vérifies ?
    A+

  3. #3
    Expert confirmé
    Avatar de cafeine
    Inscrit en
    Juin 2002
    Messages
    3 904
    Détails du profil
    Informations forums :
    Inscription : Juin 2002
    Messages : 3 904
    Par défaut
    Hello,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        Application.EnableEvents = False
        If Sh.Name = "Feuil1" Then
            If Range("A1") = "bibi" Then
                Range("A2:B10") = "bobo"
                Columns("C").Hidden = True
            Else
                Columns("C").Hidden = False
            End If
        End If
        Application.EnableEvents = True
    End Sub

  4. #4
    Membre éclairé Avatar de tomy7
    Profil pro
    Étudiant
    Inscrit en
    Janvier 2008
    Messages
    540
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2008
    Messages : 540
    Par défaut
    je l ai adapté a ma demande avec quelque modif

    mais c est ce que je desirai, merci cafeine.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Tester une zone de liste égale à Null
    Par Waluigi dans le forum Access
    Réponses: 3
    Dernier message: 17/05/2006, 18h00
  2. Sélection valeur par défaut dans une zone de liste
    Par Cécile154 dans le forum IHM
    Réponses: 2
    Dernier message: 15/02/2005, 18h20
  3. se déplacer sur une zone de liste
    Par bb62 dans le forum IHM
    Réponses: 12
    Dernier message: 31/01/2005, 10h47
  4. Réponses: 6
    Dernier message: 24/01/2005, 11h06
  5. [VB6] largeur d'une zone de liste d'une combobox
    Par Nick13 dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 28/08/2004, 12h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo