Problème avec duplication

[patsyl60]

Bonjour à tous,

J'ai besoin sur un fichier de dupliquer 5 fois les produits, les tarifs et d'ajouter un code ets différent à chaque fois.

J'ai réussi à faire une boucle pour les 2 premiers cas mais je bloque sur le 3ème. Chaque ets à un code différent ( 01,02,03,05 et 06). Comment faire pour qu'à chaque boucle, il me prenne un code ets différent.

En piece jointe, l'exemple.

D'avance merci de votre aide.



Patsyl60 😕

 

[GIBI]

Re : Problème avec duplication

Bonsoir,

voici ta nouvelle macro 'annule et remplace la précédente)


Sub dupliqets()
Dim i

derlig = [a65000].End(xlUp).Row
For i = 1 To 5
'duplication code article
Range("a2").Resize(derlig - 1, 2).Select
Selection.Copy
Cells(2, 3 * i + 1).Select
ActiveSheet.Paste
Range(Cells(2, 3 * i + 1), Cells(derlig - 1, 3 * i + 3)) = i + 1
Next i
Range("a1").Select



End Sub


GIBI

 

[patsyl60]

Re : Problème avec duplication

Merci GIBI pour ta réponse rapide mais cela ne fonctionne pas .

Comme tu ne l'as peut être pas vu dans mon message initial, il y a un trou dans les numéros d'ets.( 01,02,03,05,06). Il n'y a pas d'ets 04.

Une autre idée ?

Merci encore.

Patsyl60

 

[Gael]

Re : Problème avec duplication

Bonjour Patsyl60, Gibi,

Essaye le code suivant:

Sub dupliqets()
    Dim i, Ets
    
    Ets = Array("01", "02", "03", "05", "06")
    
    For i = 1 To 5
    'duplication code article
    
    derlig = [a65000].End(xlUp).Row
    Range("a2").Resize(derlig - 1, 2).Select
    Selection.Copy
    Range("d65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    With Selection.Offset(0, 2).Resize(derlig - 1, 1)
        .Cells = Ets(i - 1)
        .NumberFormat = "00"
    End With
    
    Next i
   Range("a1").Select
   
    
End Sub

@+

Gael

 

[patsyl60]

Re : Problème avec duplication

Bonjour Gael,

C'est exactement ce dont j'avais besoin.

Merci à toi et GIBI pour votre aide.

Patsyl60 😉