Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fredo P
Sub transforme() On Error Resume Next ' cette commande ne se positionne jamais dans une boucle. De pref en deb de routine ou aprés un "on error goto 0" [M2:Z300].ClearContents [B1:B1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[M1], Unique:=True For Each c In Range([B2], [B65000].End(xlUp)) Set X = [M:M].Find(c, MatchCase:úlse, lookat:=xlWhole) Set y = Cells(X.Row, 14).Resize(1, 199).Find(c.Offset(0, 1).Value, lookat:=xlWhole) ' il suffisait de changer la valeur de colonne 13 ,en 14. If y Is Nothing Then Cells(X.Row, 255).End(xlToLeft).Offset(0, 1) = c.Offset(0, 1).Value End If Next c [M2:x300].Sort Key1:=[M2] End Sub
--
Sans les bérouettes "Apitos" a écrit dans le message de news:
Bonsoir à tous,
Dans cette macro, qui marche trés bien, j'ai remarqué qu'il y'a une petite erreur.
Lorsque le PrixU à la même valeur que le nom de la désignation, la colonne P1 est vide !
Voila un exemple :
http://cjoint.com/?fkaYcsx6zJ
Merci d'avance.
Sub transforme()
On Error Resume Next ' cette commande ne se positionne jamais dans une
boucle. De pref en deb de routine ou aprés un "on error goto 0"
[M2:Z300].ClearContents
[B1:B1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[M1],
Unique:=True
For Each c In Range([B2], [B65000].End(xlUp))
Set X = [M:M].Find(c, MatchCase:úlse, lookat:=xlWhole)
Set y = Cells(X.Row, 14).Resize(1, 199).Find(c.Offset(0, 1).Value,
lookat:=xlWhole) ' il suffisait de changer la valeur de colonne 13 ,en 14.
If y Is Nothing Then
Cells(X.Row, 255).End(xlToLeft).Offset(0, 1) = c.Offset(0,
1).Value
End If
Next c
[M2:x300].Sort Key1:=[M2]
End Sub
--
ponsinet.frederic363etdesbrouettes@orange.fr
Sans les bérouettes
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1f10a658-29fd-48f0-b15f-9fd4eb651f0d@d77g2000hsb.googlegroups.com...
Bonsoir à tous,
Dans cette macro, qui marche trés bien, j'ai remarqué qu'il y'a une
petite erreur.
Lorsque le PrixU à la même valeur que le nom de la désignation, la
colonne P1 est vide !
Sub transforme() On Error Resume Next ' cette commande ne se positionne jamais dans une boucle. De pref en deb de routine ou aprés un "on error goto 0" [M2:Z300].ClearContents [B1:B1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[M1], Unique:=True For Each c In Range([B2], [B65000].End(xlUp)) Set X = [M:M].Find(c, MatchCase:úlse, lookat:=xlWhole) Set y = Cells(X.Row, 14).Resize(1, 199).Find(c.Offset(0, 1).Value, lookat:=xlWhole) ' il suffisait de changer la valeur de colonne 13 ,en 14. If y Is Nothing Then Cells(X.Row, 255).End(xlToLeft).Offset(0, 1) = c.Offset(0, 1).Value End If Next c [M2:x300].Sort Key1:=[M2] End Sub
--
Sans les bérouettes "Apitos" a écrit dans le message de news:
Bonsoir à tous,
Dans cette macro, qui marche trés bien, j'ai remarqué qu'il y'a une petite erreur.
Lorsque le PrixU à la même valeur que le nom de la désignation, la colonne P1 est vide !
Voila un exemple :
http://cjoint.com/?fkaYcsx6zJ
Merci d'avance.
Fredo P
Le fichier corrigé http://cjoint.com/?fkepJadZx7 --
"Apitos" a écrit dans le message de news:
Bonsoir à tous,
Dans cette macro, qui marche trés bien, j'ai remarqué qu'il y'a une petite erreur.
Lorsque le PrixU à la même valeur que le nom de la désignation, la colonne P1 est vide !
Voila un exemple :
http://cjoint.com/?fkaYcsx6zJ
Merci d'avance.
Le fichier corrigé
http://cjoint.com/?fkepJadZx7
--
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1f10a658-29fd-48f0-b15f-9fd4eb651f0d@d77g2000hsb.googlegroups.com...
Bonsoir à tous,
Dans cette macro, qui marche trés bien, j'ai remarqué qu'il y'a une
petite erreur.
Lorsque le PrixU à la même valeur que le nom de la désignation, la
colonne P1 est vide !