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
ru-th
Salut
un exemple 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 Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"VIALETTES" a écrit dans le message de news: 00f601c39e36$e5c7b940$
salut,
existe il un moyen simple de selectionner une ligne sur deux (par exemple toutes les lignes paires ou impaires)
merci d'avance
Salut
un exemple
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
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"VIALETTES" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 00f601c39e36$e5c7b940$a101280a@phx.gbl...
salut,
existe il un moyen simple de selectionner une ligne sur
deux (par exemple toutes les lignes paires ou impaires)
un exemple 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 Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"VIALETTES" a écrit dans le message de news: 00f601c39e36$e5c7b940$
salut,
existe il un moyen simple de selectionner une ligne sur deux (par exemple toutes les lignes paires ou impaires)
merci d'avance
isabelle
bonjour VIALETTES,
voici un exemple,
Sub SelectionUnSurDeux() Dim i As Integer, plage As String For i = 1 To 11 Step 2 If i < 11 Then plage = plage & i & ":" & i & "," Else plage = plage & i & ":" & i End If Next Range(plage).Select End Sub
isabelle
salut,
existe il un moyen simple de selectionner une ligne sur deux (par exemple toutes les lignes paires ou impaires)
merci d'avance
bonjour VIALETTES,
voici un exemple,
Sub SelectionUnSurDeux()
Dim i As Integer, plage As String
For i = 1 To 11 Step 2
If i < 11 Then
plage = plage & i & ":" & i & ","
Else
plage = plage & i & ":" & i
End If
Next
Range(plage).Select
End Sub
isabelle
salut,
existe il un moyen simple de selectionner une ligne sur
deux (par exemple toutes les lignes paires ou impaires)
Sub SelectionUnSurDeux() Dim i As Integer, plage As String For i = 1 To 11 Step 2 If i < 11 Then plage = plage & i & ":" & i & "," Else plage = plage & i & ":" & i End If Next Range(plage).Select End Sub
isabelle
salut,
existe il un moyen simple de selectionner une ligne sur deux (par exemple toutes les lignes paires ou impaires)
