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 :

Renvoi à une cellule.


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Inscrit en
    Avril 2008
    Messages
    9
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 9
    Par défaut Renvoi à une cellule.
    Bonjours a tous, voila mon probléme:

    Je voudrais que quand j'entre une information dans une case, puis que je clique
    sur aller, la macro me selectionne la cellule de la page voulue.

    Il me faudrai pour deux critére different svp:
    -le premier si je rentre une lettre il me selectionne le premier nom
    commencant par cette lettre dans le tableau de gauche.
    (C.f Aperçu)

    -le deuxieme, si je rentre un numero. Par exemple je rentre 22 dans une case, il me selectionne la ligne qui comporte ce numero dans le tableau à gauche.
    (C.f Aperçubis)

    Merci de votre aide.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre éclairé
    Inscrit en
    Avril 2008
    Messages
    45
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 45
    Par défaut
    Bonjour,

    As tu essayé quelque chose du genre pour le classeur Apreçu.xls
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    Sub Bouton1_QuandClic()
    Dim Ligne As Long
    Ligne = 5
    If Cells(4, 7) = "" Then
    Exit Sub
    End If
    While Cells(Ligne, 2) <> ""
        If UCase(Left(Cells(Ligne, 2), 1)) <> UCase(Left(Cells(4, 7), 1)) Then
        Ligne = Ligne + 1
        Else
        Cells(Ligne, 2).Select
        Exit Sub
        End If
    Wend
    End Sub
    et pour Aperçubis:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    Sub Bouton1_QuandClic()
    Dim Ligne As Long
    Ligne = 5
    If Cells(4, 7) = "" Then
    Exit Sub
    End If
    While Cells(Ligne, 1) <> ""
        If Cells(Ligne, 1) <> Cells(4, 7) Then
        Ligne = Ligne + 1
        Else
        Cells(Ligne, 1).Select
        Exit Sub
        End If
    Wend
    End Sub

Discussions similaires

  1. créer une macro qui renvoie à une cellule vide
    Par cachou52fr dans le forum Macros et VBA Excel
    Réponses: 20
    Dernier message: 17/06/2011, 14h11
  2. [XL-2007] Renvoie d'une cellule à partir d'une autre
    Par jeremiefiber dans le forum Excel
    Réponses: 2
    Dernier message: 08/05/2009, 14h19
  3. renvoi dernière cellule non vide d'une colonne
    Par emilie31 dans le forum Excel
    Réponses: 5
    Dernier message: 29/09/2008, 15h26
  4. Réponses: 2
    Dernier message: 23/12/2007, 20h09
  5. Renvoi d'une cellule
    Par jbollagnier dans le forum Excel
    Réponses: 3
    Dernier message: 27/11/2007, 13h58

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