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 :

changement page automatique


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Juillet 2007
    Messages
    25
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 25
    Par défaut changement page automatique
    Bonjour à tous

    J'aimerais mettre une condition : si la cellule B20 est rempli je voudrais que le curseur se place automatiquement sur une autre page.
    Quelqu'un peut-il m'aider?
    Merci d'avance
    Linda

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 567
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 567
    Par défaut
    salut , tu place ça dans le code de la feuille en question
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [b20].Address Then Sheets(2).Select
    End Sub

  3. #3
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Il manque le contrôle cellule rempli

    si la cellule B20 est rempli je voudrais que le curseur se place automatiquement sur une autre page.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target= range("B20") Then 
         if target.value<>"" then Sheets(2).Select
    end if 
    End Sub

  4. #4
    Membre averti
    Inscrit en
    Juillet 2007
    Messages
    25
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 25
    Par défaut
    SUPER CA MARCHE
    MERCI BEAUCOUP
    lINDA

  5. #5
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 567
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 567
    Par défaut
    Citation Envoyé par jfontaine
    Il manque le contrôle cellule rempli
    c'est une sécurité de plus en effet, mais en testant, tu verra que si la cellule ne change pas, la macro ne s'execute pas

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

Discussions similaires

  1. Mise en page automatique changement de page
    Par Suzuki3694 dans le forum Mise en forme
    Réponses: 12
    Dernier message: 09/05/2012, 17h57
  2. changement de page automatique
    Par YG210844 dans le forum Struts 2
    Réponses: 1
    Dernier message: 21/07/2010, 12h14
  3. Problème saut de page automatique du "chapter"
    Par polomim dans le forum Mise en forme
    Réponses: 2
    Dernier message: 10/11/2006, 13h30
  4. actualisation d'une page automatiquement
    Par jack_1981 dans le forum Général JavaScript
    Réponses: 13
    Dernier message: 22/05/2006, 13h28
  5. mise en page automatique
    Par kayser dans le forum ASP
    Réponses: 6
    Dernier message: 16/11/2004, 09h43

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