Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Reduction de 3 lignes

  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

anthoYS

XLDnaute Barbatruc
Bonjour,

Je souhaite réduire à partir de C7 (ou A7), toutes les 3 lignes suivantes 7 à 10, puis 10 à 12 (non), puis les suivantes même logique jusqu'à la ligne 1800.

Est-ce possible?

Voir copie d'écrans pour mieux comprendre mon souhait.

Copie d'écran 1 : montre que je sélectionne en alternance les 3 premières séries de 3 lignes en effectuant "Ctrl" puis
copie d'écran 2, montre que je réduit la ligne 7 (les autres suivront puisqu'elles sont sélectionnés en même temps j'entends les lignes 8, 9, 13, 14, 15, 19, 20 et 21), résultat que l'on peut voir copie d'écran 3.
En copie d'écran 4, on voit que ceci se poursuit, c'est ce que je souhaite, et ce, jusqu'en 1800, en sélectionnant et contrôlant jusque là ce serait trop long avec le risque d'une mauvaise sélection etc.

N'y a t-il pas un moyen plus efficace de faire ce que je désire?

Merci à vous.
 

Pièces jointes

  • 1.jpg
    42.7 KB · Affichages: 42
  • 4.jpg
    32.3 KB · Affichages: 35
  • 3.jpg
    20.8 KB · Affichages: 30
  • 2.jpg
    51.8 KB · Affichages: 49
  • 1.jpg
    42.7 KB · Affichages: 40
  • 4.jpg
    32.3 KB · Affichages: 36
  • 3.jpg
    20.8 KB · Affichages: 41
  • 2.jpg
    51.8 KB · Affichages: 42
  • 1.jpg
    42.7 KB · Affichages: 48
  • 4.jpg
    32.3 KB · Affichages: 32
  • 3.jpg
    20.8 KB · Affichages: 30
  • 2.jpg
    51.8 KB · Affichages: 37
Re : Reduction de 3 lignes

Bonjour,

essaie ce code :

Code:
Sub ee()
Application.ScreenUpdating = False
For i = 7 To 1800 Step 6
    Cells(i, 1).Resize(3, 1).EntireRow.Hidden = True
Next i
End Sub

Bon dimanche
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…