Concaténation sur colonne A de la ligne 2 à i(dernière cellules avec data)

Range("A2").Formula = " '0 " & 506

Range("A3").Formula = " '0 " & 506

Range("A4").Formula = " '0 " & 506

Range("A5").Formula = " '0 " & 506

Range("A6").Formula = " '0 " & 506

Range("A7").Formula = " '0 " & 506

Range("A8").Formula = " '0 " & 506

Bonjour Madame, Monsieur,

j'essaye d'automatiser une formule de concaténation.

J'ai une macro qui me ressort un tableau de "Calcul" avec un nombre de ligne variable. Tout dépend sur qu'elle partie on fait le calcul.

Le code de "calcul" donne par exemple 506 et j'aimerai intégrer un " ' 0 " devant.

J'aimerais l'automatiser de manière à ce qu'il le fasse tout seul. L'opération s'effectue sur la colonne A ligne 2, jusqu'à une ligne i qui dépend du calcul.

La ligne i à une data (506 pour cet exemple) dans sa cellule.

À cette ligne i j'aimerais qu'il s'arrête.

C'est pour un projet important donc n'hésitez pas :D

Bien cordialement,

Charlie

Bonjour

Un simple format de nombre "0000" suffirait

Bonjour 78chris,

Je ne peux pas le mettre sous le format nombre, cette colonne doit rester au format texte suite à une demande spécifique :/

Pour l'instant j'arrive à sélectionner toutes les datas de la colonne A mais pas à rajouter mon '0 à toute la colonne.

( Sub Conca1()

Set tbl = Range("A1").CurrentRegion


Dim I As Integer

For I = 1 To 6

tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
tbl.Columns.Count - I).Select

Next

End Sub )

Charlie

Bonjour,

Est-il possible de récupérer la Valeur de cellule active/sélectionné à la fin d'une boucle de manière à ce qu'il est automatiquement le nombre de ligne sur laquelle elle doit effectuer l'opération ?

En vous remerciant.

Charlie