Grouper des lignes en boucle
Fermé
Stan
-
25 mai 2016 à 19:42
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 30 mai 2016 à 03:42
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 30 mai 2016 à 03:42
A voir également:
- Grouper des lignes en boucle
- Pc s'allume et s'éteint en boucle - Forum Matériel informatique
- Comment ne pas apparaître en ligne sur whatsapp - Guide
- Lidl vente en ligne en france ✓ - Forum Consommation et internet
- En ligne sur instagram alors que non - Forum Instagram
- Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
1 réponse
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
30 mai 2016 à 03:42
30 mai 2016 à 03:42
Bonjour
On aurait bien aimer voir la disposition des tableaux pour que l'on puisse fournir une réponse adaptée. En attendant, voici une proposition à paramétrer selon vos besoins.
Cdlt
On aurait bien aimer voir la disposition des tableaux pour que l'on puisse fournir une réponse adaptée. En attendant, voici une proposition à paramétrer selon vos besoins.
Sub Grouper()
Application.ScreenUpdating = False
Dim Nblig As Long 'nombre de Lignes d'un tableau
Dim Decalage As Long 'Décalage entre chaque tableau
'mettre ici vos propres paramètres
Nblig = 10
Decalage = 12
[A2].Select '1ère ligne du tableau à regrouper, juste en dessous de celle du Nom du premier client
Do While ActiveCell.Offset(-1, 0).Value <> "" 'Boucler tant que la ligne du nom du client n'est pas vide
Range(ActiveCell, ActiveCell.Offset(Nblig, 0)).EntireRow.Rows.Group
ActiveCell.Offset(Decalage, 0).Select
Loop
End Sub
Cdlt