Si vous travaillez avec Microsoft Office Excel souvent, il est bon de savoir comment utiliser la propriété " ActiveCell " pour ajouter , obtenir , et même de changer le format des données dans une feuille de calcul . Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des tâches de routine. Dans VBA, vous pouvez utiliser la propriété " ActiveCell " pour apporter des modifications à vos données. Avec VBA, vous pouvez gagner du temps en automatisant un processus au lieu d'effectuer la même tâche manuellement . Instructions
1

lancement de Microsoft Office Excel , cliquez sur l'onglet « Développeur » et cliquez sur « Visual Basic ».
2

Cliquez sur le menu "Insertion " et cliquez sur "Module "pour insérer un nouveau module de code. Tapez le code suivant pour commencer une nouvelle sous-procédure :

Private Sub usingActiveCell ()
3

Copiez et collez la commande suivante pour activer " Feuil1: "
< . p> Worksheets ( "Sheet1" ) Activer
4

Copiez et collez la commande suivante pour ajouter une valeur à « A1 », « A2 » et « A3 : "

Range ( "A1") . Sélectionnez

ActiveCell.Value = 3.5

Range (" A2 " ) . Sélectionnez

ActiveCell.Value = 10 &

Range . ( "A3" ) Sélectionnez

ActiveCell.Value = 20
5

Copiez et collez la commande suivante pour mettre en évidence les cellules avec des données :

ActiveCell < br >

Range ( Cells (ligne, CurrentRegion.Column ), des cellules (ligne, CurrentRegion.Columns.Count + CurrentRegion.Column - . . . . . 1) ) Interior.ColorIndex = 8

Range. ( Cells ( CurrentRegion.Row , de la colonne ), des cellules ( CurrentRegion.Rows.Count + CurrentRegion.Row - . . . . . 1, colonne ) ) . Interior.ColorIndex = 8

End With
< p> Application.ScreenUpdating = True
6

Copiez et collez la commande suivante pour afficher les valeurs ajoutée à travers la «fenêtre immédiate: " .

Range (" A1") Sélectionnez < br >

Debug.Print ActiveCell.Value

Range (" A2 " ) . Sélectionnez

Debug.Print ActiveCell.Value

Range (" A3 " ) . Sélectionnez Photos

Debug.Print ActiveCell.Value
7

Copiez et collez le texte suivant à la fin de la procédure sous :

End Sub
8 < p > appuyez sur "Ctrl" et "G " pour afficher la fenêtre " immédiate " et appuyez sur "F5" pour exécuter la procédure .