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 plage de cellules toute les 6 lignes [XL-365]


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Homme Profil pro
    Retraité
    Inscrit en
    août 2012
    Messages
    128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 73
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : août 2012
    Messages : 128
    Points : 83
    Points
    83
    Par défaut Sélection plage de cellules toute les 6 lignes
    Bonsoir,

    J'ai une feuille de classeur Excel de 1000 lignes.
    Je voudrai sélectionner à l'aide d'une macro des plages de cellules toutes les 6 lignes

    Exemple :
    A8:K8
    A14:K14
    A20:K20
    Et ainsi de suite jusqu'à A998:K998

    Merci d'avance si vous avez une solution.

    Bonne soirée.

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    juillet 2016
    Messages
    2 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : juillet 2016
    Messages : 2 937
    Points : 5 127
    Points
    5 127
    Par défaut
    Bonjour,

    Votre demande est incomplète, quelles actions faites-vous une fois la ligne sélectionnée ?
    On ne peut fournir que des réponses toutes aussi incomplètes.
    Exemple pour sélectionner 1 plage de cellule toutes les 6 lignes en partant de la 8ème ligne:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        For i = 8 To 998 Step 6
            Range("A" & i & ":K" & i).Select
        Next i
    Suivant ce que vous devez faire après chaque sélection de la plage, on peut se passer du "Select".

    ***************************************************************************************************

    Autre exemple, ici, le saut de ligne se fait par rapport à la ligne active, à chaque lancement de la macro, on sélectionne une nouvelle plage 6 lignes plus bas.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
        Lig = ActiveCell.Row
        Range("A" & Lig + 6 & ":K" & Lig + 6).Select
    A vous d'adapter une de ces propositions.

    Cdlt

  3. #3
    Membre régulier
    Homme Profil pro
    Retraité
    Inscrit en
    août 2012
    Messages
    128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 73
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : août 2012
    Messages : 128
    Points : 83
    Points
    83
    Par défaut
    Citation Envoyé par ARTURO83 Voir le message

    Votre demande est incomplète, quelles actions faites-vous une fois la ligne sélectionnée ?
    On ne peut fournir que des réponses toutes aussi incomplètes.
    Suivant ce que vous devez faire après chaque sélection de la plage, on peut se passer du "Select".
    Bonsoir ARTURO83,

    Merci de vous intéresser à mon problème, désolé pour ma demande incomplète, ce que je souhaite une fois toutes les lignes sélectionnées c'est leurs appliquer une bordure sur le contour et un remplissage couleur bleu clair.
    J'ai testé le code ci-dessous, mais quand je lance la macro depuis n'importe quelle cellule il n'y a que la plage de cellules A998:K998 qui est sélectionnée (lors de l'exécution de la macro, on voit rapidement les autres lignes s'afficher, mais elles ne restent pas sélectionnées). Le second code fonctionne, mais ce n'est pas ce que je souhaite faire.
    Bonne soirée.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     For i = 8 To 998 Step 6
            Range("A" & i & ":K" & i).Select
        Next i

  4. #4
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    juillet 2016
    Messages
    2 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : juillet 2016
    Messages : 2 937
    Points : 5 127
    Points
    5 127
    Par défaut
    Bonjour,

    Voilà, pour appliquer une bordure sur le pourtour de la plage de cellules sélectionnées et d'un fond couleur bleu pâle.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
        For i = 8 To 998 Step 6
            With Range("A" & i & ":K" & i)
                .Borders(xlEdgeLeft).Weight = xlThin
                .Borders(xlEdgeTop).Weight = xlThin
                .Borders(xlEdgeBottom).Weight = xlThin
                .Borders(xlEdgeRight).Weight = xlThin
                .Interior.Color = RGB(184, 204, 228)
            End With
        Next i
    Cdlt

  5. #5
    Membre régulier
    Homme Profil pro
    Retraité
    Inscrit en
    août 2012
    Messages
    128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 73
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : août 2012
    Messages : 128
    Points : 83
    Points
    83
    Par défaut
    Bonjour ARTURO83,

    Merci pour votre réponse, ça marche impeccable.

    Bonne journée.

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

Discussions similaires

  1. somme toutes les n lignes de cellules
    Par gigot dans le forum Excel
    Réponses: 3
    Dernier message: 21/05/2019, 08h27
  2. [XL-2007] Plage dynamique toute les X lignes pour graphique
    Par Pahcixam dans le forum Excel
    Réponses: 5
    Dernier message: 09/06/2015, 16h35
  3. Réponses: 0
    Dernier message: 28/06/2013, 16h30
  4. [E-03] copier une cellule toutes les 7 lignes
    Par hdisnice dans le forum Excel
    Réponses: 7
    Dernier message: 22/03/2009, 12h43
  5. sélection plage de cellule sur Msflexgrid
    Par Charly45 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 22/12/2006, 15h35

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