Résolu copier coller

[Mitch]

Bonjour et bon dimanche, voila difficile a expliquer mais je vais être le plus clair possible, j'ai une macro pour faire un copier coller jusque la pas de souci, mais en colonne A j'ai plusieurs fois le même chiffre (c'est jamais pareil) je voudrais qu'en colonne L s'inscrive le chiffre 1 en face du premier doublon 😕 dur les explications

..A L
212 1
212
212
213 1
214 1
215 1
215

 

[david84]

Re : copier coller

Bonjour,

=SI(NB.SI(A$2:A2;A2)=1;1;"")

Formule à tirer vers le bas.
A+

 

[Mitch]

Re : copier coller

Bonjour david84, je te remercie de me répondre mais j'ai besoin par macro car je l'enregistre en CSV et une formule me génère une suite de ;

 

[david84]

Re : copier coller

Re
une possibilité parmi d'autres à tester :

Sub a()
Dim derlig&, mondico As Object
Set mondico = CreateObject("scripting.dictionary")
derlig = Range("A" & Rows.Count).End(xlUp).Row
 For Each c In Range("A2:A" & derlig)
     If Not mondico.exists(c.Value) Then
        mondico(c.Value) = mondico(c.Value)
        c.Offset(, 11) = 1
    End If
    Next c
End Sub

A+

 

[Mitch]

Re : copier coller

j'ai mis le code dans le module a la suite mais ça marche pas

 

[david84]

Re : copier coller

Re
j'ai pourtant testé le code tel quel de mon côté et il fonctionne.
A+

 

[Mitch]

Re : copier coller

c'est peut être parce que je copie de la feuille 4 ( Nouveaux-articles) vers la feuille 2 (Déclinaisons ), or je voit pas comment définir les feuilles dans le code

 

[david84]

Re : copier coller

Re
Il te faut peut-être définir la feuille dans laquelle tu travailles.
Dans le cas de ton fichier exemple, cela donnerait :

Sub a()
Dim derlig&, mondico As Object
Set mondico = CreateObject("scripting.dictionary")
With Sheets("Déclinaisons")
derlig = .Range("A" & .Rows.Count).End(xlUp).Row
 For Each c In .Range("A2:A" & derlig)
     If Not mondico.exists(c.Value) Then
        mondico(c.Value) = mondico(c.Value)
        c.Offset(, 13) = 1
    End If
    Next c
End With
End Sub

Si la feuille de recopie n'est pas la même que la feuille où est placée ta plage, il te faut alors modifier le code en conséquence.
A+

 

[Mitch]

Re : copier coller

Excuse moi je suis nul 🙁, je sais pas définir la feuille 4(Nouveaux-articles)

 

[david84]

Re : copier coller

Re
Le code recopie en colonne L de la feuille Nouveaux-articles les 1 à partir du traitement du tableau de la feuille déclinaisons :

Sub a()
Dim derlig&, mondico As Object
Set mondico = CreateObject("scripting.dictionary")
With Sheets("Déclinaisons")
derlig = .Range("A" & .Rows.Count).End(xlUp).Row
 For Each c In .Range("A2:A" & derlig)
     If Not mondico.exists(c.Value) Then
        mondico(c.Value) = mondico(c.Value)
        Sheets("Nouveaux-articles").Cells(c.Row, 12) = 1
    End If
    Next c
End With
End Sub

A+

 

[Mitch]

Re : copier coller

Je ne voudrais pas abuser de ta patiente, je pense que je me suis mal expliqué je joint mon fichier plus complet,

 

[david84]

Re : copier coller

Re
je ne comprends pas où est le problème : colle le code du message #8 avant le End Sub de la Sub Copier en remplaçant

c.Offset(, 13) = 1

par

c.Offset(, 11) = 1

et lance la macro.
Cela fonctionne chez moi.
A=

 

[Mitch]

Re : copier coller

Merci David je te remercie pour ta patiente , en fait je coller le code après le End Sub
je marque résolu et te souhaite une bonne journée