Macro pour remplir les cellules avec le même contenu, Excel VBA

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

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x