Utilisation de la cellule active

La propriété ActiveCell renvoie un objet Range qui représente la cellule active. Vous pouvez appliquer l’une des propriétés ou méthodes d’un objet Range à la cellule active, comme dans l’exemple suivant. Une ou plusieurs cellule(s) de feuille de calcul peut(peuvent) être sélectionnée(s), mais seule l'une d'entre elles dans la sélection peut être la cellule ActiveCell.

Sub SetValue() 
 Worksheets("Sheet1").Activate 
 ActiveCell.Value = 35 
End Sub

Note Vous pouvez utiliser la cellule active uniquement lorsque la feuille de calcul sur laquelle elle se trouve est la feuille active.

Déplacement de la cellule active

Utilisez la méthode Range.Activate pour désigner la cellule active. Par exemple, la procédure suivante montre comment activer la cellule B5, puis comment lui affecter le style gras.

Sub SetActive_MakeBold() 
 Worksheets("Sheet1").Activate 
 Worksheets("Sheet1").Range("B5").Activate 
 ActiveCell.Font.Bold = True 
End Sub

Note Pour sélectionner une plage de cellules, utilisez la méthode Select . Pour activer une cellule active, utilisez la méthode Activate.

Utilisez la propriété Offset pour déplacer la cellule active. La procédure suivante montre comment insérer du texte dans la cellule active de la plage sélectionnée puis déplacer la cellule active 1 d'une cellule vers la droite sans modifier la sélection.

Sub MoveActive() 
 Worksheets("Sheet1").Activate 
 Range("A1:D10").Select 
 ActiveCell.Value = "Monthly Totals" 
 ActiveCell.Offset(0, 1).Activate 
End Sub

Sélection des cellules entourant la cellule active

La propriété CurrentRegion renvoie une plage ou un « îlot » de cellules délimitées par des lignes et des colonnes vides. Dans l'exemple suivant, la sélection est étendue pour inclure les cellules qui contiennent les données immédiatement adjacentes. Cette plage reçoit ensuite une mise en forme Monétaire.

Sub Region() 
 Worksheets("Sheet1").Activate 
 ActiveCell.CurrentRegion.Select 
 Selection.Style = "Currency" 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.