Vous connaissez probablement l’astuce suivante dans Excel: vous marquez une zone, puis entrez un texte et confirmez avec la combinaison de touches .Cela remplira toutes les cellules de la zone sélectionnée avec le texte que vous venez d’entrer. Vous pouvez également mapper cette fonctionnalité dans VBA à l’aide de la macro suivante.
Sub RemplirCellule() Dim maplage as range Dim s As String s = InputBox ("Entrez le texte / formule! "," Marqueur de remplissage ") If s = "" Then Exit Sub Set maplage = Selection maplage.Select maplage.Formula = s End Sub
Ici, vous avez la possibilité de saisir le texte ou la formule à l’aide d’un masque de saisie. Votre entrée sera ensuite transférée dans toutes les cellules de la zone sélectionnée.
Si vous entrez des formules, vous pouvez le faire avec des références relatives ou absolues.
Si vous regardez la figure , vous pouvez voir que la cellule B1 a été définie de manière absolue. Cette cellule contient le taux de TVA actuellement applicable. La colonne A montre les montants nets. La colonne B indique les montants incluant la TVA. Les références relatives sont automatiquement ajustées lorsque la formule est insérée.
Dans l’exemple suivant, vous voulez faire sans entrer le texte ou la formule et utiliser à la place le remplissage directement à partir d’une cellule. Pour ce faire, utilisez la macro suivante .
Sub RemplirCellule1 () Dim maplage as range Set maplage = Selection maplage.Select maplage.Formula = Range ("A1"). Formula End Sub