inserer texte dans plusieurs cellules

[TEMAGOULTFARID]

Bonjour,
j'ai trouver ce bout de vab qui me plait bien et qui fonctionne.Ma question est la suivante:
est-ce possible de mettre une lettre ou un texte a la placxe du chiffre "45"
est ce possible de mettre une plaGe de cellule exemple A1:A30.
Par avance, merci

Sub essai()
Dim Plage As Range
Set Plage = Union([A1], [A20], [A30])
Plage.Value = 45
End Sub

 

[sylvanu]

Bonsoir TEMAGOULTFARID,
Vous pouvez définir la plage comme vous voulez, la syntaxe est Range("A1:A30") avec des guillemets et deux points de séparation.
La valeur peut être quelconque, si c'est un texte il doit être entre guillements.

Sub essai2()
Dim Plage As Range
Set Plage = Range("A1:A30")
Plage.Value = "Texte"
End Sub

 

[TEMAGOULTFARID]

Bonsoir TEMAGOULTFARID,
Vous pouvez définir la plage comme vous voulez, la syntaxe est Range("A1:A30") avec des guillemets et deux points de séparation.
La valeur peut être quelconque, si c'est un texte il doit être entre guillements.

Sub essai2()
Dim Plage As Range
Set Plage = Range("A1:A30")
Plage.Value = "Texte"
End Sub

Bonjour,
Cela fonctionne très bien et je vous en remercie énormément.
bien a vous
au plaisir
Farid