Discussion :

[Invité]

Bonjour,

Je recherche un script pour une sélection de plage discontinue par pas de 7 sur les colonne de J à P jusqu'à la première ligne vide d'un tableau (pour une récup. de données dans une Gestion de quatorzaine)

J'ai bien trouvé dans ce forum, provenant de IGLOOBEL, un début mais l'adapter avec une boucle jusqu'a la fin, c'est pas mon fort.

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub selection_variable()
    Dim Lign, Xfois, NbLign As Long
    Dim Plage As String
 
    Lign = 1
    Xfois = 7 
    NbLign = Lign + Xfois - 1
    Plage = "J" & Lign & ":M" & NbLign
    Range(Plage).Select
 
End Sub