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 :

Excel VBA - si cellule X contient valeur afficher ligne suivante


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Femme Profil pro
    Administration
    Inscrit en
    Février 2022
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 50
    Localisation : Canada

    Informations professionnelles :
    Activité : Administration
    Secteur : Distribution

    Informations forums :
    Inscription : Février 2022
    Messages : 11
    Par défaut Excel VBA - si cellule X contient valeur afficher ligne suivante
    Bonjour,


    Dans mon fichier Excel, les colonnes sont définies comme suit:

    colonne A = Item no.
    colonne B = Qté
    colonne C = modèle

    Est-il possible d'avoir un bouton qui affecte une macro (VBA) de sorte que lorsque la cellule C11 n'est pas vide ceci affiche la ligne suivante considérant que toutes les lignes sont masquées à la base. La commande devra être en boucle de façon à pouvoir entrer 25 lignes au total.

    Par exemple: si C11 contient une valeur affiche ligne 12, si C12 contient une valeur affiche ligne 13....


    Merci.

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 438
    Par défaut
    Bonjour,

    Une façon de faire:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub AfficherSuivant()
        Dim kR As Long
        kR = ActiveSheet.UsedRange.Rows.Count   '--- note: suppose qu'il n'y a rien en dehors du tableau
        While kR > 1
            If Range("C" & kR) <> "" Then
                Rows(kR + 1).EntireRow.Hidden = False
            End If
            kR = kR - 1
        Wend
    End Sub
    Cordialement.
    Fichiers attachés Fichiers attachés

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

Discussions similaires

  1. [XL-2016] Appel Solveur Excel VBA avec cellules des variables non fixes
    Par TSHITSHI dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 26/08/2017, 07h58
  2. Solveur Excel VBA sans cellules
    Par Piof55 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 27/07/2011, 21h16
  3. [vba Excel] Obtenir dernier cellule non vide d'une ligne
    Par cow_boy dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/05/2007, 10h07
  4. [Excel/VBA] Récuperer cellule dans un tableau
    Par Myogtha dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/02/2007, 09h20
  5. [Excel-VBA]Coordonnées cellule
    Par lenouvo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 27/02/2006, 16h56

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