VBA : Sélection de plusieurs plages avec un décalage de n colonnes

Anonyme
2022-12-03T16:58:20+00:00

Bonjour à tous ;o)

Je souhaiterais par macro appliquer un formatage conditionnel à une selection de plusieurs plages de mêmes tailles mais séparées de n colonnes.

  • Les plages sont toutes comprises entre les lignes 5 et une variable "derlig"
  • La première plage commence dans la colonne 2 (B) et la dernière colonne est une variable "dercol"
  • Entre chaque plage il y a un décalage de 3 colonnes vers la droite jusqu'à la dernière colonne "dercol".

Dis autrement, au final, je souhaite obtenir une sélection des plages suivantes :

B5:Bderlig + E5:Ederlig + H5:Hderlig + etc. jusqu'à la dernière colonne dercol5:dercol derlig

J'ai su le faire avec une boucle en sélectionnant les plages l'une après l'autre, mais je n'ai pas trouvé comment tout sélectionner en une seule fois

For i = 2 To dercol Step 3

    With Range(Cells(5, i), Cells(derlig, i))

          .select

          ......

J'espère que j'ai été clair dans ma demande

Merci pour votre aide ;o)

Microsoft 365 et Office | Excel | Pour les entreprises | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires Aucun commentaire
Réponse acceptée par l’auteur de la question
Hecatonchire 53,950 Points de réputation Modérateur bénévole
2022-12-04T00:03:23+00:00

Bonjour

A adapter

Sub Macro1()

Dim c As Integer 

Dim iDerlig As Integer 

Dim iDerCol As Integer 

iDerlig = 12 

iDerCol = 11 

Range("B5:B" & iDerlig).Select 

For c = 5 To iDerCol Step 3 

    Application.Union(Selection, Range(Cells(5, c), Cells(iDerlig, c))).Select 

Next 

End Sub

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires Aucun commentaire

1 réponse supplémentaire

  1. Anonyme
    2022-12-04T06:01:40+00:00

    C'est parfait, un grand merci ;o)

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire