comment selectionner 1 cellule sur 2 sur excel

Manuellement ?

... en cliquant sur les cellules tout en maintenant
la touche Ctrl enfoncée.

P.


"lora003@hotmail.fr" <lora003@hotmail.fr@discussions.microsoft.com> a écrit dans le message de news:
56442AFF-CC24-4E6E-859E-EA8ACEF243F7@microsoft.com...

1 1
2 3
3 5
4
5
6

du grand CDO! : c'est JièL qui va être content, à moins que Joel Chaudy ne
passe par ici avant lui
jps

"lora003@hotmail.fr" <lora003@hotmail.fr@discussions.microsoft.com> a écrit
dans le message de news:
56442AFF-CC24-4E6E-859E-EA8ACEF243F7@microsoft.com...

1 1
2 3
3 5
4
5
6

AV

Bonjour,

Cells(1, 1).Select
For i = 1 To 12 Step 2
Union(Selection, Cells(i, 1)).Select
Next i
Selection.Copy [B1]

JB

Manuellement ?

... en cliquant sur les cellules tout en maintenant
la touche Ctrl enfoncée.

P.


"lora003@hotmail.fr" <lora003@hotmail.fr@discussions.microsoft.com> a é crit dans le message de news:
56442AFF-CC24-4E6E-859E-EA8ACEF243F7@microsoft.com...

1 1
2 3
3 5
4
5
6

Pas bonjour, ni merci
Mais j'ai mis l'objet dans une cellule et
Ca ne marche pas
POURQUOI?????

Ca ne marche pas
POURQUOI?????

Un micro-climat sans doute...

AV

Ah bon!, je ne savais pas que Excel était sensible au climat, je vais donc
attendre qu'il fasse moins gris.
;o))
--
Salutations
JJ

Ceci dit, sur un grand nombre de cellules, petit test comparatif (instructif)
entre la méthode Union et un truc avec "SpecialCells(xlCellTypeVisible)"

Sub zz1()
Application.ScreenUpdating = False
Cells(1, 1).Select
For i = 1 To 10000 Step 2
Union(Selection, Cells(i, 1)).Select
Next i
End Sub

Sub zz2()
Application.ScreenUpdating = False
For i = 1 To 10000 Step 2
Rows(i).RowHeight = 0
Next
[A1:A10000].SpecialCells(xlCellTypeVisible).Select
Rows("1:10000").EntireRow.AutoFit
End Sub

AV

Ah! voilà que le sérieux l'emporte sur la plaisanterie.

--
Salutations
JJ

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
Ohx11ihFHHA.3508@TK2MSFTNGP04.phx.gbl...

Ceci dit, sur un grand nombre de cellules, petit test comparatif
(instructif) entre la méthode Union et un truc avec
"SpecialCells(xlCellTypeVisible)"

Sub zz1()
Application.ScreenUpdating = False
Cells(1, 1).Select
For i = 1 To 10000 Step 2
Union(Selection, Cells(i, 1)).Select
Next i
End Sub

Sub zz2()
Application.ScreenUpdating = False
For i = 1 To 10000 Step 2
Rows(i).RowHeight = 0
Next
[A1:A10000].SpecialCells(xlCellTypeVisible).Select
Rows("1:10000").EntireRow.AutoFit
End Sub

AV

Infernal !!!
8 mn pour zz1, 30 s pour zz2.

Bon, c'est pas tous les jours que j'aurai à
sélectionner une cellule sur deux, mais c'est
vraiment instructif, ça c'est du MPFE à l'ancienne !

;-)
P.


"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news: Ohx11ihFHHA.3508@TK2MSFTNGP04.phx.gbl...

Ceci dit, sur un grand nombre de cellules, petit test comparatif (instructif) entre la méthode Union et un truc avec
"SpecialCells(xlCellTypeVisible)"

Sub zz1()
Application.ScreenUpdating = False
Cells(1, 1).Select
For i = 1 To 10000 Step 2
Union(Selection, Cells(i, 1)).Select
Next i
End Sub

Sub zz2()
Application.ScreenUpdating = False
For i = 1 To 10000 Step 2
Rows(i).RowHeight = 0
Next
[A1:A10000].SpecialCells(xlCellTypeVisible).Select
Rows("1:10000").EntireRow.AutoFit
End Sub

AV