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 :

Sélection Ligne,Colonne lorsque non vide


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Décembre 2009
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : Décembre 2009
    Messages : 117
    Par défaut Sélection Ligne,Colonne lorsque non vide
    Bonjour,

    J'aimerais savoir comment faire en VB pour sélectionnez les colonnes A à G pour les lignes 5, 7, 9,11....etc s'il y a de l'information dans ces lignes afin de modifier la couleur de fonds.

    un style de mise en forme automatique quoi.

    Je cherche sur les forum depuis un bon bout et je ne trouve pas ce que je cherche.

    Merci!

  2. #2
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour Mairequimby le forum cela devrait se faire avec MFC
    tu selectionne ta plage de a2 :g & x
    mise en forme conditionnel
    formule
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =si(a2<>"";MOD(ligne();2)=1)
    format tu choisis ta couleur

  3. #3
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Décembre 2009
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : Décembre 2009
    Messages : 117
    Par défaut
    Oui mais comment le faire en VB pour des lignes avec saut de 2 genre ligne 5,7,8,9...

    Merci!

  4. #4
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    re, un truc dans ce genre peut être!!!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub es()
      Dim i As Long, j As Long
         Application.ScreenUpdating = False
           For i = Range("A65536").End(xlUp).Row To 1 Step -2
           For j = 1 To 7
        If Cells(i, j) <> "" Then Range(Cells(i, 1), Cells(i, 7)).Interior.ColorIndex = 8
      Next j: Next i
     End Sub

  5. #5
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Décembre 2009
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : Décembre 2009
    Messages : 117
    Par défaut
    C'est exactement ce qu'il me faut, Merci!

    Merci beaucoup pour votre aide

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

Discussions similaires

  1. Réponses: 10
    Dernier message: 22/12/2014, 18h58
  2. [XL-2003] Descendre d'une ligne si cellule non vide
    Par JBusnel dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/08/2011, 09h04
  3. [Toutes versions] Insérer lignes avec cellules non vides
    Par esstin dans le forum Excel
    Réponses: 4
    Dernier message: 11/08/2010, 18h23
  4. Réponses: 10
    Dernier message: 25/05/2009, 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