VBA - Objet Range

Sélection de cellules et/ou plages

Workbooks("Fichier.xls").Worksheets("Feuil1").Range("A1”).Select

Range("A1”) ‘ Cellule

Range("A1:C9”) ‘ Plage

Range("A1:C9,D2:F8”) ‘ Deux plages non contigues

Range("A:A”) ‘ Colonne

Range("1:1”) ‘ Ligne

Range("nomDePlage”) ‘ Plage Nommée

' Sélectionner la zone en cours (Atteindre > Zone en cours)

‘ ? équivaut à un ctrl+A depuis une cellule donnée ("A1”)

Range("A1").CurrentRegion.Select '

' Sélectionner la dernière cellule (Atteindre > Dernière cellule)

Range("A1").SpecialCells(xlCellTypeLastCell).Select

' Sélectionner de la cellule active à la dernière cellule de la zone en direction de ...

‘ ? équivaut à un ctrl+maj+flèche depuis la cellule active

Range(ActiveCell, ActiveCell.End(xlDown)).Select ‘ xlUp, xlDown, xlToRight, xlToLeft

Récupérer un Range avec la fonction Cells

Cells est une fonction qui renvoi un objet de type “Range”.

Range(Cells(1, 1), Cells(10, 8)) ‘ identique à Range ("A1:H10")

Se déplacer avec un “Offset”

Permet de renvoyer la celulle décalée du nombre de lignes/colonnes indiquées

Range(“A1”).Offset(col, ligne) ‘ renvoi le range décalé

Sélectionner la colonne ou la ligne de la cellule courante

On utilise l’objet ActiveCell

ActiveCell.EntireColumn.Select

ActiveCell.EntireRow.Select

Autres fonctions de l'objet Range

Valeur brute et valeur formatée

Exemple : Cellule avec valeur < 2 > et formaté pour afficher < 2.00€ >

.Value ’ 2

.Text ‘ 2.00€

Copier/Coller

Méthode 1 :

Range("A1:B9").Copy ' Cut pour couper

Range("C1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Méthode 2 :

Range("A1:B9").Copy Range("C1")

Effacer/Supprimer des cellules

Effacer le contenu (valeur ou formule) et la mise en forme

.Clear( )

Effacer le contenu (valeur ou formule) uniquement

.ClearContents( )

Supprimer la cellule.

Attention : supprimer une cellule/plage/colonne/ligne implique le décalage des cellules voisines.

Il faut indiquer à la fonction dans quelles sens décaler (gauche/haut)

.Delete [ xlToLeft | xlToUp ]

Mise en Forme d’une cellule

Mettre en gras

.Font.Bold = True

Couleur du texte

.Font.Color = RGB(128,128, 128)

Couleur d’arrière plan

.Interior.Color = RGB(128,128, 128)

Format d’une valeur Numérique

.NumberFormat = "0.00%"

Mettre une Formule dans une Cellule

Vérifier si une cellule contient une formule

.HasFormula ‘ Renvoi True si la cellule contient une formule

Mettre une formule dans une cellule

Range("A5").Formula = "=SUM(A1:A4)" ‘ exemple d’affichage < 4 >

Range("A5").Formula = "=SUM(A1:A4) &""€""" ‘ exemple d’affichage < 4€ >

Page updated

Google Sites

Report abuse