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

[momo]

Bonjour à tous

Je e permets de demander votre aide sur la possibilité de créer un macro qui puisse dupliquer certains numéros pré-choisi en y insérant une lettre

Je joins un fichier afin de mieux m'expliquer

Merci d'avance à tous

 

[Lone-wolf]

Bonsoir momo

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

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

 

[momo]

Bonsoir momo

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

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

Merci Beaucoup M. Wolf ca marche impec

 

[Lone-wolf]

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.

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

 

[Staple1600]

Bonsoir à tous

Une formule peut aussi faire le job
=SI(A2<>"";GAUCHE(A2;4)&"C"&DROITE(A2;5);"")
ou celle là
=SI(A2<>"";ENT(A2/100000)&"C"&DROITE(A2;5);"")

EDITION: Bonsoir Loup Solitaire

 

[Lone-wolf]

Bonsoir JM

 

[momo]

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.

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

Oooh c'est parfait , je me demandais bien comment remédier à ca ... Merci encore M. Loup

 

[momo]

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.

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

Si je peux me permettre, Est ce que dans le code il serait possible de Définir les numéros pour lesquls on voudrait insérer les lettres?

 

[Lone-wolf]

Bonjour momo,

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

 

[momo]

Bonjour momo,

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

Oooki je vois ... En tout cas je vous remercie un max vous m'avez beaucoup aidé déjà!!!

 

[momo]

Par contre quelqu'un pense t il qu'il puisse m'aider à trouver cette solution

 

[momo]

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

Bonjour à tous,
Je voudrais qu'à partir de cet excellent code que Mister Wolf m'a aidé à concevoir , je puisse définir les numéros pour lesquels je voudrais insérer des lettres
J'ai joins le fichier dans le post #1 de la discussion...

Merci d'avance à toutes personnes qui se pencherait dessus

 

[laetitia90]

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

 

[momo]

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

Bonjour Laetitia
En fait j'ai déjà posté le fichier il est en Post #1 sur le fil de discussion .. En fait c'est toujours la même problématique; M.Wolf m'a aidé a trouvé un code qui permette de dupliquer un compte en y insérant une lettre..
Ce code prend en compte tous les comptes présents sur la feuille or je voudrais savoir si il y a une possibilité de pré-choisir les comptes pour lesquels on devra insérer une lettre

 

[laetitia90]

re
tout a fait possible il faut seulement déterminer les critéres ou conditions
c'est pour cela qu il faut un fichier plus representatif du but a atteindre
exemple en colonne A la liste des comptes en colonne B le resultat attendu