Reporter un texte dans 3 cellules

bonjour a tous

je suis a la recherche d'une solution pour reporter un mot d'une cellule vers 3 autre cellules.

exemple je copie un texte an A1 et celui ci est reporter automatiquement dans les 3 cellules suivantes B1-C1-D1.

j'ai fais une macro mais elle ne s’applique pas automatiquement, j'ai essayer avec la validation des données et la je planche.

Sub Macro1()

'' Macro1 Macro

ActiveCell.FormulaR1C1 = "eric"

Range("B1").Select

' ActiveCell.FormulaR1C1 = "eric"

Range("C1").Select

ActiveCell.FormulaR1C1 = "eric"

Range("D1").Select

ActiveCell.FormulaR1C1 = "eric"

Range("A1").Select

End Sub

merci pour votre aide

Cordialement

Bonsoir,

Essaye comme ça :

Range("B1,C1,D1").Formula = "Eric"

ou comme ça :

Range("B1:D1").Formula = "Eric"

Bonjour

Bonjour Raja

Tu écris/efface dans une cellule, les 3 cellules suivantes en ligne auront la même valeur

Procédure à placer dans le module de la feuille concernée(clic droit sur l'onglet de la feuille -->Visualiser le code ) et tu colles le code suivant

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  Target.Resize(, 4) = Target
  Application.EnableEvents = True
End Sub

Bonjour et merci de votre aide mais la formule ne fonctionne pas en auto.

Sub Macro1()

Range("B1:D1").Formula = "Eric"

End Sub

jusque la ok et après si je place la formule de banzai64, le report se fait à chaque écriture et non plus a un endroit précis.

ou alors j'ai zappé la mis en forme de la formule.

le but est d'avoir en auto le report d'un mot sur les 3 cellules suivantes, par contre uniquement a cette endroit la de la feuille.

merci a vous

Bonjour,

Essaye le code suivant dans le module de la feuille en question :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("B1:D1").Formula = Target
    End If
End Sub

Bonjour Raja

je viens d'essayer mais sans resultats.

je joint le fichier pour voir d'ou viens mon erreur.

merci

Re,

Le code doit être présent dans le module de la "Feuil1" non pas dans un module général, car l'évènement de modification d'une cellule

Private Sub Worksheet_Change(ByVal Target As Range)

est lié à une feuille. Rectifie-le et ça marchera.

ok Raja je comprend maintenant d’où viens mon erreur.

dans cette macro est il possible de répéter cette opération dans la colonne.

merci

Re,

Oui on peut. Il suffit d'adapter cette ligne qui prévoit la copie dans la ligne en allant de B1 jusqu'au D1 :

Range("B1:D1").Formula = Target