Discussion :

[chito79000]

Bonjour à tous,

Je voulais vous demander comment c'était possible de sélectionner une plage de cellule aléatoire sans ".select". voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveCell.Offset(0, 9).Select
    Range(Selection, Selection.End(xlDown)).Select

La suite du code est juste de remplacer les cellules vides de la sélection par P2015

[mayekeul]

bonjour,

alors selectionner une cellule sans select.... j'ai du mal à cerner le principe...

si tu veux dire y faire référence, alors c'est aussi simple que:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("xxx")=quelque_chose

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(x,y)=autre_chose

et si cela doit être aléatoire ( là aussi, on peux se demander pourquoi faire une telle chose), regarde du coté de rnd et randomize

[Marc-L]

Bonjour,

en consultant l'aide VBA de la méthode SpecialCells …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Theze]

Bonjour,

Donc, remplir les cellules vides de la zone utilisée dans la feuille ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Test()
 
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Value = "P2015"
 
End Sub

Hervé.

[Docmarti]

Bonjour.

Ce n'est pas vraiment aléatoire, mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 
   Set debut = ActiveCell.Offset(0, 9)
   Set r = debut.Parent.Range(debut, debut.End(xlDown))
   r.SpecialCells(xlCellTypeBlanks).Value = "P2015"
 
End Sub