Selectionner 1ligne sur 2 et l'affecter à une variable
Bonjour,
Je sélectionne une ligne sur deux sur la plage $A$1 : $D$61
Dans zone nom je nomme cette sélection plage1.
Je constate:
la plage1 se limite de $A$1 : $D$43
dans le gestionnaire de noms =Feuil1!$A$1:$D$1; .... ; Feuil1!$A$43:$D$43
Questions:
- Pourquoi la plage1 ne va t-elle pas jusqu'à Feuil1!$A$61:$D$61 comme ma sélection?
Peut-on augmenter cette sélection?
En VBA, quel code pourrait me permettre ce type de sélection et de l'affecter à ma variable Plage1 par exemple?
Merci pour les idées
ddetp88
Bonsoir Ddetp, bonsoir le forum,
Peut-être comme ça :
Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim I As Byte 'déclare la variable I (Incrément)
Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
Set PL = O.Cells(1, 1).Resize(1, 4) 'Initialise la plage PL (A1:D1)
For I = 3 To 61 Step 2 'boucle de la ligne 3 à 61 par pas de deux
Set PL = Application.Union(PL, Cells(I, 1).Resize(, 4)) 'redéfinit la plage PL
Next I 'prochaine ligne de la boucle
PL.Name = "Plage1" 'nomme la plage PL
End SubBonsoir ThauTheme,
Très bien vu.
Juste un truc pourquoi en le faisant manuellement (à l'arrache
Merci pour la solution VBA.
ddetp88
Bonsoir Ddetp, bonsoir le forum,
Arf ! Je n'en sais absolument rien... Encore une bizarrerie d'Excel...