Salut à toi
Solution Macro
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex <> xlNone Then
c.EntireRow.Copy Sheets("donnée").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
Next
Cette macro recopie de l'onglet "Feuil1" vers l'onglet "donnée" une seule
ligne colorée
Il est important que seule cette ligne soit en couleur et aucune autre
sinon
il faudrait connaitre la couleur utilisée
Celà devrait convenir
Dis moi !!!!
Salut à toi
Solution Macro
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex <> xlNone Then
c.EntireRow.Copy Sheets("donnée").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
Next
Cette macro recopie de l'onglet "Feuil1" vers l'onglet "donnée" une seule
ligne colorée
Il est important que seule cette ligne soit en couleur et aucune autre
sinon
il faudrait connaitre la couleur utilisée
Celà devrait convenir
Dis moi !!!!
Salut à toi
Solution Macro
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex <> xlNone Then
c.EntireRow.Copy Sheets("donnée").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
Next
Cette macro recopie de l'onglet "Feuil1" vers l'onglet "donnée" une seule
ligne colorée
Il est important que seule cette ligne soit en couleur et aucune autre
sinon
il faudrait connaitre la couleur utilisée
Celà devrait convenir
Dis moi !!!!
Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée (ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée (ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée (ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe de
discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 2FE2407A-BA1F-46C2-9CFA-4813ABB22E07@microsoft.com...
Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe de
discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe de
discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 2FE2407A-BA1F-46C2-9CFA-4813ABB22E07@microsoft.com...
Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe de
discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne "Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Rebonjours à toi
Je t'ai transmis un code pour recopier des lignes colorées non pas pour
exécuter un tri
J'ai du mal à comprendre ton attente
Tu peux me transmettre ton fichier par le biais de ce site :
http://www.cijoint.fr/index.php
Communiques moi le lien pour le récupérer ainsi que toutes les
explications
nécessaire à l'objectif souhaité
Merci
Rebonjours à toi
Je t'ai transmis un code pour recopier des lignes colorées non pas pour
exécuter un tri
J'ai du mal à comprendre ton attente
Tu peux me transmettre ton fichier par le biais de ce site :
http://www.cijoint.fr/index.php
Communiques moi le lien pour le récupérer ainsi que toutes les
explications
nécessaire à l'objectif souhaité
Merci
Rebonjours à toi
Je t'ai transmis un code pour recopier des lignes colorées non pas pour
exécuter un tri
J'ai du mal à comprendre ton attente
Tu peux me transmettre ton fichier par le biais de ce site :
http://www.cijoint.fr/index.php
Communiques moi le lien pour le récupérer ainsi que toutes les
explications
nécessaire à l'objectif souhaité
Merci
Bonjour,
Retire les Exit For (mets un ' devant) de chaque If Then
Michel
"romeo59181" a écrit dans le message de
news:Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe
de discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne
"Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Retire les Exit For (mets un ' devant) de chaque If Then
Michel
"romeo59181" <romeo59181@hotmail.com> a écrit dans le message de
news:3DCF5170-1543-437B-B1D3-DF86DBAD3411@microsoft.com...
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de groupe
de discussion : 2FE2407A-BA1F-46C2-9CFA-4813ABB22E07@microsoft.com...
Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne
"Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Bonjour,
Retire les Exit For (mets un ' devant) de chaque If Then
Michel
"romeo59181" a écrit dans le message de
news:Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe
de discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne
"Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Re Bonjour,
Le fichier de FFO te permet de recopier chaque ligne colorée dans un
onglet différent (chaque couleur correspondant à une affectation).
La macro nécessite deux légères modifications :
1°) comme je te le disais dans mon précédent message (ainsi que FFO dans
son message d'envoi du fichier) : mettre une ' devant chaque Exit For.
En effet, ainsi écrite la macro se terminera dès qu'elle aura trouvé et
recopié la première ligne colorée.
2°) tu devras adapter cette macro sur la ligne correspondant aux lignes
concernant "Losc" et "Braderie" traitant de la même couleur 42.
Mais je ne comprends peut-être pas la question
Michel
"romeo59181" a écrit dans le message de
news:Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe
de discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne
"Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Re Bonjour,
Le fichier de FFO te permet de recopier chaque ligne colorée dans un
onglet différent (chaque couleur correspondant à une affectation).
La macro nécessite deux légères modifications :
1°) comme je te le disais dans mon précédent message (ainsi que FFO dans
son message d'envoi du fichier) : mettre une ' devant chaque Exit For.
En effet, ainsi écrite la macro se terminera dès qu'elle aura trouvé et
recopié la première ligne colorée.
2°) tu devras adapter cette macro sur la ligne correspondant aux lignes
concernant "Losc" et "Braderie" traitant de la même couleur 42.
Mais je ne comprends peut-être pas la question
Michel
"romeo59181" <romeo59181@hotmail.com> a écrit dans le message de
news:3DCF5170-1543-437B-B1D3-DF86DBAD3411@microsoft.com...
Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de groupe
de discussion : 2FE2407A-BA1F-46C2-9CFA-4813ABB22E07@microsoft.com...
Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne
"Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!
Re Bonjour,
Le fichier de FFO te permet de recopier chaque ligne colorée dans un
onglet différent (chaque couleur correspondant à une affectation).
La macro nécessite deux légères modifications :
1°) comme je te le disais dans mon précédent message (ainsi que FFO dans
son message d'envoi du fichier) : mettre une ' devant chaque Exit For.
En effet, ainsi écrite la macro se terminera dès qu'elle aura trouvé et
recopié la première ligne colorée.
2°) tu devras adapter cette macro sur la ligne correspondant aux lignes
concernant "Losc" et "Braderie" traitant de la même couleur 42.
Mais je ne comprends peut-être pas la question
Michel
"romeo59181" a écrit dans le message de
news:Bonjour,
Le tri ne effectue pas ...
Lorsque j'execute la macro la fenetre s'en va mais le tri ne se fait pas
...
Que faire,
Veut tu mon fichier ? Mon tél ?
@+
Romeo59181
"FFO" a écrit dans le message de groupe
de discussion :Rebonjour à toi
Pour créer une Macro dans ton fichier:
Outil/Macro/Nouvelle macro
Nom de la macro : mettre un nom
Ok
Cliques sur le carré bleu de l'icone "Arr"
Puis
Outil/Macro/Macros
Sélectionnes le nom de ta macro
Modifier
Entre le Sub et le End Sub mets ces lignes :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Worksheets("Feuil1").Range("A65535").End(xlUp).Row)
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 6 Then
c.EntireRow.Copy Sheets("Manque de
données").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 5 Then
c.EntireRow.Copy Sheets("Portable").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 46 Then
c.EntireRow.Copy Sheets("A Rap").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 15 Then
c.EntireRow.Copy Sheets("A Rap Avec
Date").Range("A65535").End(xlUp).Offset(1, 0)
Exit For
End If
If c.Interior.ColorIndex = 42 Then
c.EntireRow.Copy Sheets("Losc").Range("A65535").End(xlUp).Offset(1, 0)
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 7 Then
c.EntireRow.Copy Sheets("Braderie").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
Next
Chaque couleur est traitée par ces lignes :
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Négatif").Range("A65535").End(xlUp).Offset(1,
0)
Exit For
End If
If c.Interior.ColorIndex = 3 reprèsente le code de la couleur traitée
(ici
le 3 pour le rouge)
Sheets("Négatif") est le nom de l'onglet de destination
Si tu souhaites rajouter des couleurs tu prends un exemple de ces lignes
que
tu recopies avant le Next de la fin
Puis tu adaptes le code couleur et le nom de l'onglet de destination
Pour connaître le code couleur tu colories une cellule de cette couleur
et
aprés l'avoir sélectionné tu exécutes la macro suivante (aprés l'avoir
créée):
MsgBox (ActiveCell.Interior.ColorIndex)
Une boîte de dialogue te donneras le code couleur de cette cellule
Tu peux aussi modifier les lignes existantes dans ce code en fonction
d'une
nouvelle couleur ou d'un nouveau nom d'onglet
Je suppose qu'une seule couleur sera à traiter par fichier
Dans le cas contraire si plusieurs couleurs par fichier devaient être
recopiées dans les onglets appropriés il faudrait ihniber les ligne
"Exit
For" en mettant une cote devant ainsi :
'Exit For
Ou les supprimer
Je te joint un exemple sur ce lien :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij3ViDvH2.xls.
Fais des essais et dis moi !!!!