Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Etendre une sélection ligne par ligne

Etendre une sélection ligne par ligne

5 réponses
Avatar
Keuf
bonjour à toutes et tous,

voici mon petit problème (Excel 2000 et Windows 2000) :

je voudrais simplement sélectionner une ligne sur 2, mais chaque nouvelle
ligne sélectionnée doit s'ajouter à la sélection initiale. Donc je
sélectionne la ligne 3 puis vient s'ajouter à ma sélection la ligne 5, puis
7, etc ...

J'utilise ce code pour sélectionner une ligne sur 2 :

Sheets("Tri").Activate
For a = 3 To 99
Rows(a).Select ' (True)
a = a + 1
Next a

J'ai essayer d'utiliser la méthode Union mais sans succès, il faut dire que
je ne maitrise pas franchement ... :)

Auriez-vous quelqu'indice pour me mettre sur la voix ?

D'avance merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
...patrick
avec ceci entre autres

Sub Unesur2()
Dim rng2 As Range
Dim rngdelete2 As Range
Dim i As Integer
With ActiveSheet
For i = 3 To 99 Step 2
Set rng2 = Cells(i, 1)
If rngdelete2 Is Nothing Then
Set rngdelete2 = rng2.EntireRow
Else
Set rngdelete2 = Union(rngdelete2,
rng2.EntireRow)
End If
Next i
End With
rngdelete2.EntireRow.Interior.ColorIndex = 19
End Sub

Bye
...patrick
-----Message d'origine-----
bonjour à toutes et tous,

voici mon petit problème (Excel 2000 et Windows 2000) :

je voudrais simplement sélectionner une ligne sur 2, mais
chaque nouvelle

ligne sélectionnée doit s'ajouter à la sélection
initiale. Donc je

sélectionne la ligne 3 puis vient s'ajouter à ma
sélection la ligne 5, puis

7, etc ...

J'utilise ce code pour sélectionner une ligne sur 2 :

Sheets("Tri").Activate
For a = 3 To 99
Rows(a).Select ' (True)
a = a + 1
Next a

J'ai essayer d'utiliser la méthode Union mais sans
succès, il faut dire que

je ne maitrise pas franchement ... :)

Auriez-vous quelqu'indice pour me mettre sur la voix ?

D'avance merci




.



Avatar
ru-th
Salut

Sub test()
Dim plg As Range
Set plg = Rows(3)
For i = 3 To 99 Step 2
Set plg = Union(plg, Rows(i))
Next
plg.Select
Set plg = Nothing
End Sub

a+
rural thierry

"Keuf" a écrit dans le message de news:

bonjour à toutes et tous,

voici mon petit problème (Excel 2000 et Windows 2000) :

je voudrais simplement sélectionner une ligne sur 2, mais chaque nouvelle
ligne sélectionnée doit s'ajouter à la sélection initiale. Donc je
sélectionne la ligne 3 puis vient s'ajouter à ma sélection la ligne 5,
puis

7, etc ...

J'utilise ce code pour sélectionner une ligne sur 2 :

Sheets("Tri").Activate
For a = 3 To 99
Rows(a).Select ' (True)
a = a + 1
Next a

J'ai essayer d'utiliser la méthode Union mais sans succès, il faut dire
que

je ne maitrise pas franchement ... :)

Auriez-vous quelqu'indice pour me mettre sur la voix ?

D'avance merci






Avatar
Keuf
Merci à tous les deux (... Patrick, ru-th),
c'est parfait ...



"ru-th" wrote in message
news:#
Salut

Sub test()
Dim plg As Range
Set plg = Rows(3)
For i = 3 To 99 Step 2
Set plg = Union(plg, Rows(i))
Next
plg.Select
Set plg = Nothing
End Sub

a+
rural thierry

"Keuf" a écrit dans le message de news:

bonjour à toutes et tous,

voici mon petit problème (Excel 2000 et Windows 2000) :

je voudrais simplement sélectionner une ligne sur 2, mais chaque
nouvelle


ligne sélectionnée doit s'ajouter à la sélection initiale. Donc je
sélectionne la ligne 3 puis vient s'ajouter à ma sélection la ligne 5,
puis

7, etc ...

J'utilise ce code pour sélectionner une ligne sur 2 :

Sheets("Tri").Activate
For a = 3 To 99
Rows(a).Select ' (True)
a = a + 1
Next a

J'ai essayer d'utiliser la méthode Union mais sans succès, il faut dire
que

je ne maitrise pas franchement ... :)

Auriez-vous quelqu'indice pour me mettre sur la voix ?

D'avance merci










Avatar
Keuf
Encore une fois merci, mais ... si ce n'est pas abusé,
j'aurai une petite question sur le code :
j'ai découvert Step, je comprends un peu mieux Union,
mais pourquoi Set plg = Nothing ???
Pourquoi ?

loin de moi l'envie de critiquer ou quoi que ce soit de
ce genre, c'est juste pour comprendre ...

keuf


"ru-th"
Salut

Sub test()
Dim plg As Range
Set plg = Rows(3)
For i = 3 To 99 Step 2
Set plg = Union(plg, Rows(i))
Next
plg.Select
Set plg = Nothing
End Sub

a+
rural thierry


Avatar
ru-th
re-

c'est juste pour vider la variable plg et de réduire la place mémoire
si, je dis des inexactitudes, d'autres plus confirmés corrigeront mes propos

rural thierry

"Keuf" a écrit dans le message de news:

Encore une fois merci, mais ... si ce n'est pas abusé,
j'aurai une petite question sur le code :
j'ai découvert Step, je comprends un peu mieux Union,
mais pourquoi Set plg = Nothing ???
Pourquoi ?

loin de moi l'envie de critiquer ou quoi que ce soit de
ce genre, c'est juste pour comprendre ...

keuf


"ru-th"
Salut

Sub test()
Dim plg As Range
Set plg = Rows(3)
For i = 3 To 99 Step 2
Set plg = Union(plg, Rows(i))
Next
plg.Select
Set plg = Nothing
End Sub

a+
rural thierry