XL 2013 [Résolu] Dupliquer des comptes avec insertion de lettres

Lone-wolf à dit:

Bonsoir momo

D'abord change ton fichier en .xlsm (classeur prenant en charge les macros), puis

VB:

Sub test()
Dim Code As String
With Feuil1
For i = 3 To 11 Step 2
Code = Left(.Cells(i - 1, 1), 4) & "C" & Right(.Cells(i - 1, 1), 5)
.Cells(i, 1) = Code
Next i
End With
End Sub

Cliquez pour agrandir...

Lone-wolf à dit:

Re Momo,

si tu repasse par ici, cette macro est quand même mieux. Si tu rajoute encore des comptes, plus besoin d'aller dans le code pour faire les modifications. En B1 tu pourra écrire la ou les lettres que tu veux.

VB:

Sub Insert_Char()
Dim Code As String, Car As String
With Feuil1
Car = .Range("b1")  'Lettre C ou autre
derlig = .Range("a" & Rows.Count).End(xlUp).Row + 1
For i = 3 To derlig Step 2
Code = Left(.Cells(i - 1, 1), 4) & Car & Right(.Cells(i - 1, 1), 5)
.Cells(i, 1) = Code
Next i
End With
End Sub

Regarde la pièce jointe 973581

Cliquez pour agrandir...

Lone-wolf à dit:

Re Momo,

si tu repasse par ici, cette macro est quand même mieux. Si tu rajoute encore des comptes, plus besoin d'aller dans le code pour faire les modifications. En B1 tu pourra écrire la ou les lettres que tu veux.

VB:

Sub Insert_Char()
Dim Code As String, Car As String
With Feuil1
Car = .Range("b1")  'Lettre C ou autre
derlig = .Range("a" & Rows.Count).End(xlUp).Row + 1
For i = 3 To derlig Step 2
Code = Left(.Cells(i - 1, 1), 4) & Car & Right(.Cells(i - 1, 1), 5)
.Cells(i, 1) = Code
Next i
End With
End Sub

Regarde la pièce jointe 973581

Cliquez pour agrandir...

Lone-wolf à dit:

Bonjour momo,

je pense que oui, mais c'est un peu compliqué pour moi, vu que les cellules vont être variables.

Cliquez pour agrandir...

laetitia90 à dit:

bonjour momo ,lone wolf , jean marie
soit plus explicite mets un fichier avec un exemple concret!!! comme cela assez floue

Cliquez pour agrandir...