Corrigé de l'exercice

1ère possibilité

donnée par l'enregistreur de macros

Sub ExerciceLecon5()
  Range("B2").Select
  ActiveCell.FormulaR1C1 = "Vive B2"
  Range("B4").Select
  ActiveCell.FormulaR1C1 = "J'aime B4"
  Range("B6").Select
  ActiveCell.FormulaR1C1 = "B6 est le meilleur"
  Range("A1").Select
End Sub

2ème possibilité

Remplacement de FormulaR1C1 par Value, comme nous l'avons vu dans la leçon

Sub ExerciceLecon5()
  Range("B2").Select
  ActiveCell.Value = "Vive B2"
  Range("B4").Select
  ActiveCell.Value = "J'aime B4"
  Range("B6").Select
  ActiveCell.Value = "B6 est le meilleur"
  Range("A1").Select
End Sub

3ème possibilité

Nous enlevons carrément FormulaR1C1 et Value. Ca marche quand même.

Sub ExerciceLecon5()
  Range("B2").Select
  ActiveCell = "Vive B2"
  Range("B4").Select
  ActiveCell = "J'aime B4"
  Range("B6").Select
  ActiveCell = "B6 est le meilleur"
  Range("A1").Select
End Sub

4ème possibilité

Utilisation des références relatives, sauf pour se placer au début dans B2, qui est absolument B2 et pas eutre chose, et à la fin sur A1, qui est A1 et pas autre chose.

Sub ExerciceLecon5()
  Range("B2").Select
  ActiveCell.FormulaR1C1 = "Vive B2"
  ActiveCell.Offset(2, 0).Select
  ActiveCell.FormulaR1C1 = "J'aime B4"
  ActiveCell.Offset(2, 0).Select
  ActiveCell.FormulaR1C1 = "B6 est le meilleur"
  Range("A1").Select
End Sub

5ème possibilité

Il est possible d'attribuer des valeurs aux cellules SANS les sélectionner comme nous l'avons fait jusque là.

Sub ExerciceLecon5()
  Range("B2").FormulaR1C1 = "Vive B2"
  Range("B4").FormulaR1C1 = "J'aime B4"
  Range("B6").FormulaR1C1 = "B6 est le meilleur"
  Range("A1").Select
End Sub

D'autres possibilités existent.

Retour à la leçon