Discussion :

[loacast]

Rebonjour,

Je me suis donc lancé sur l'apprentissage de ce fabuleux objet qu'est le range et j'avous avoir du mal à le comprendre totalement.

En effet, je souhaiterais ajouter ou supprimer telle ou telle ligne ou collone de cet objet (ou cellule). Quand je dis supprimer il est non seulement question de vider la lignen, collone ou cellule mais aussi de remonter les cellules.

J'espère avoir été clair et merci de l'aide que vous m'avez apporté jusqu'à présent.

[Megaxel]

Je te conseille d'enregistrer des macros pendant que tu manipules les "Range". Tu comprendras vite comment ça fonctionne. Et pour les suppression, avec décalage de cellules vers la gauche ou vers le haut, tu auras le code.

[SfJ5Rpw8]

tiens un exemple ...

suppression d'une ligne d'un range ...

Code :

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

1
2
set r = range("C7:D13")
r.Rows(2).Delete shift:=xlUp

une colonne ...

Code :

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

1
2
set r = range("C7:E13")
r.Columns(2).Delete shift:=xlToLeft

[loacast]

Merci, je pense avoir trouvé ce que je cherchais. J'ai désormais un autre petit problème, je voudrais pouvoir remplir un range partant d'une cellule, jusqu'à ce qu'il trouve une cellule vide.

[Megaxel]

Voila un petit exemple: je parcours la colonne B, à partir de la cellule B1, vers le bas, jusqu'à ce que je trouve une cellule vide, et j'y écris "Hello!":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub RemplirCellule()
    Dim MaCelluleCourante As Range
    Set MaCelluleCourante = Range("B1")
 
    While Not IsEmpty(MaCelluleCourante)
        Set MaCelluleCourante = MaCelluleCourante.Offset(1, 0)
    Wend
 
 
    MaCelluleCourante.Value = "Hello!"
 
 
End Sub

Ca devrait t'aider.

[loacast]

Parfait !

[Megaxel]

Arrête, tu vas me faire rougir...


Et allez, hop: