des lignes qui sont sensées aller par paire | ||
---|---|---|
Inscription: 24/11/2008
Messages:
2
Système d'exploitation: PC Version Excel utilisée: office2003 |
Posté le : 25-11-2008 12h32
Bonjour à tous
J’aurais besoin d’un coup de main pour une macro VBA: J’ai une liste avec une 20ene de critères en colonne dont : quantité ; prix ; strike Et Cette liste est composée de paires que je veux associer et séparées d’une ligne vierges : je m’explique : Je veux que cette liste qui est en vrac soit retrié afin de mettre dans un nouvel onglet les paires ensemble (l’une en dessous de l’autre) et séparé des autres paires par une ligne vierge. Et les lignes uniques n’ayant pas de paire allant dans un autre onglet et sont séparé les unes des autres par une ligne vierge. Pour l’instant j’ai crée une macro qui à partir d’une liste en vrac, filtre certains critères et le copie trié en fonction de la quantitée, du prix et du strike dans un nouvel onglet. Bref ! Mon problème est d’avoir le code d’une boucle qui va : 1- prendre la 1ere ligne du tableau et voir si via 3 critères disons (quantitée, prix, strike), il existe au moins 2 de ces critères dans une autre ligne de la liste ( voir étendre ça à plus de critères pour ne pas avoir d’erreur de paire qui ne sont pas ensemble alors qu’elle devrait l’être). 2-les/la copier dans un autre onglet et les/le espacer d’une ligne vierge avec la prochaine paires. -Puis passer à la seconde ligne. NB : Il est possible d’avoir des trio Le but est donc de retrouver des lignes qui sont sensées aller par paire mais qui peuvent avoir un critère différent et de les separé par une ligne vierge. J’aimerais que qqun me montre son code s’il a une macro de ce genre ou des parties qui pourraient m’aider. Parce que je ne vois pas comment commencer le code… En vous remerciant bien d’avance… PS : Si vous avez rien compris, merci de me le dire, que je réexplique ! Je vous joints mon fichier ce soir. Voici le début de mon code en attendant: Sub DI() Sheets("Global").Select Range("A1:AP1").Select Selection.AutoFilter ' filtrage DES BROKERS NON DMA 00 et copie ds la sheet nondma00 Range("A1").Select Selection.AutoFilter field:=8, Criteria1:="<>*DMA*", Operator:=xlAnd Cells.Select Selection.Copy Sheets("NonDMA00").Select Range("A1").Select ActiveSheet.Paste ' triauto With Sheets("NonDMA00") With .Range("A1").CurrentRegion .Sort Key1:=.Range("U2"), Order1:=xlAscending, Key2:=.Range("W2"), Order2:=xlAscending, Header:=xlYes End With End With ' filtrage DES BROKERS DMA 00 et copie ds la sheet dma00 Sheets("Global").Select Range("A1").Select Selection.AutoFilter field:=8, Criteria1:="DMA 00" Cells.Select Selection.Copy Sheets("DMA00").Select Range("A1").Select ActiveSheet.Paste With Sheets("DMA00") With .Range("A1").CurrentRegion .Sort Key1:=.Range("U2"), Order1:=xlAscending, Key2:=.Range("W2"), Order2:=xlAscending, Header:=xlYes End With End With Cells.Select Cells.EntireColumn.AutoFit end Sub
Edité par niwed10 le 25/11/2008 12:49:51
|
|
|
Re: des lignes qui sont sensées aller par paire | ||
---|---|---|
Inscription: 23/05/2007
De Chamrousse
Messages:
309
Système d'exploitation: PC Version Excel utilisée: 2013 |
Posté le : 25-11-2008 18h56
Bonjour à tous,
Bienvenue à Niwed , Un petit fichier serait, lui aussi, bienvenu... Au plaisir de te lire et de tenter de t'aider... A+ à tous Cordialement |
|
|
Re: des lignes qui sont sensées aller par paire | ||
---|---|---|
Inscription: 24/11/2008
Messages:
2
Système d'exploitation: PC Version Excel utilisée: office2003 |
Posté le : 26-11-2008 14h57
Merci pour ton accueil, je vais tenter de mettre ça rapidement, dès ce soir.
|
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes