Sélectionner 1 cellule sur 5 sur une ligne

[olhey]

Bonjour xldien,

je dois affecter un format a toute une série de cellule séparée par 4 colonnes.
Existe t il un petit script pour sélectionner une cellule toutes les 5 colonnes.

Merci!

 

[pierrejean]

Re : Sélectionner 1 cellule sur 5 sur une ligne

bonjour olhey

Oui , il y en a même plusieurs !!!
Vois si tu peux t'inspirer de celui-ci

Sub selection()
coldeb = 3
colfin = 25
ligne = 1
For n = coldeb To colfin Step 5
  Cells(ligne, n).Select
  MsgBox ("j'ai selectionné la cellule " & Cells(ligne, n).Address(0, 0))
Next n
End Sub

 

[olhey]

Re : Sélectionner 1 cellule sur 5 sur une ligne

MERCI!
ça ressemble bien à ce que je veux, mais la j'arrive pas à saisir dans les cellules, ça passe directement à la suivante

 

[ROGER2327]

Re : Sélectionner 1 cellule sur 5 sur une ligne

Bonjour à tous

Sélectionnez une cellule et essayez ceci :

[COLOR="DarkSlateGray"]Sub multiSelection()
Dim i As Long
   For i = 2 To 3 'pour sélectionner 3 cellules
      With Selection
         Union(.Cells, .Offset(0, 5).Cells).Select
      End With
   Next i
End Sub[/COLOR]

ROGER2327

 

[pierrejean]

Re : Sélectionner 1 cellule sur 5 sur une ligne

Re

OK essaie celle-ci

Sub suivante()
 Selection.Offset(0, 5).Select
End Sub

Edit: Salut Roger

 

[olhey]

Re : Sélectionner 1 cellule sur 5 sur une ligne

Merci, merci!

En fait je me demande si il est directemnet possible de numéroter toutes les celulles d'une ligne dela feuille comme cela

|500| | | | |1000| | | | |1500| | | | |2000|....

 

[ROGER2327]

Re : Sélectionner 1 cellule sur 5 sur une ligne

Re...

Bonjour xldien,
(...)
je dois affecter un format a toute une série de cellule séparée par 4 colonnes.
(...)
Merci!

je me demande si il est directemnet possible de numéroter toutes les celulles d'une ligne dela feuille comme cela

|500| | | | |1000| | | | |1500| | | | |2000|....

Ce n'est pas la même chose... Il faut choisir !

[COLOR="DarkSlateGray"]Sub numérotage()
Dim i As Long
   For i = 0 To 4 [COLOR="SeaGreen"]'Pour numéroter 5 colonnes[/COLOR]
      Selection.Offset(0, 5 * i).Value = 500 * i
   Next i
End Sub[/COLOR]

ROGER2327

 

[olhey]

Re : Sélectionner 1 cellule sur 5 sur une ligne

Merci de votre aide! ja'i pu utiliser cette solution