Copier - coller des cellules avec une macro

Bonjour Forum,

Je me tourne encore une fois vers vous car je sais pas ou me mettre la tête.

Je vous explique ma problématique:

J'ai un fichier avec environ 6 000 lignes que je dois traiter afin de l’intégrer dans un logiciel comptable - Quadra.

Mais pour ce faire, je dois remettre, pour chaque ligne, le numéro de compte.

Exemple:

Pour le client CHRISTOPHER, je dois mettre le code "90CHRIST" dans chaque lignes. De même pour les autres clients après.

J'ai essayé avec une formule "=90&MID(C2;4;6)" mais arriver aux autres lignes, il y a problème - logique pour moi.

La solution serait de figer la cellule comme cela : "=90&MID($C$2;4;6)" mais lors de l’incrémentation il y a problème la aussi.

Solution:

Je sais qu'un copier-coller valeur fera l'affaire, sauf que avec 6 000 lignes et 8 dossiers à traiter, c'est super difficile.

Je voudrais savoir comment faire dans cette situation : une macro ? une astuce ?

Si vous pouvez m'aider SVP ce serait super sympas.

Je mets un exemple en P.J afin de mieux comprendre mon problème.

Merci d'avance Forum.

Bonjour,

Voici un code à essayer :

Sub Test()
   Dim rg As Range, c As Range

   Set rg = Range("C2:C" & Range("C65000").End(xlUp).Row)
   For Each c In rg
      If Left(c, 3) = "411" Then c.Offset(0, -1) = "90" & Mid(c, 4, 6)
   Next c

   Set rg = rg.Offset(0, -1)
   rg.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
   rg.Copy
   rg.PasteSpecial xlPasteValues
   Application.CutCopyMode = False
End Sub

A+

C'est juste PARFAIT....

Je vous remercie ENORMEMENT Grand Chaman.

Vous me faites économiser beaucoup de temps.

Merci encore...