Bonjour,
En "D" j'ai une liste de courses comprenant au moins 100 lignes.
En "E" la quantité.
En "F" les unités
Comment puis-je trier cette liste en 10 groupes différents en "G" ou "G:F"?
Cordialement
Guy
Bonjour, C'est tout simplement génial. En plus c'est instantané. Décidément, je comprendrais toujours rien en VBA. Merci encore de ton aide. Guy
"Daniel.C" a écrit dans le message de news:
Bonjour. Essaie : Sub Liste() Dim c As Range, Plage As Range, Ligne As Long Dim i As Long Application.ScreenUpdating = False Ligne = -1 Range("I:L").Clear Set Plage = Range([D1], [D65000].End(xlUp)) For Each c In Range([N1], [N65000].End(xlUp)) If Application.CountIf([G:G], c.Value) > 0 Then Ligne = Ligne + 2 Cells(Ligne, 9) = c.Value Cells(Ligne, 9).Font.Bold = True For i = 1 To Plage.Rows.Count If Cells(i, 7) = c.Value Then Ligne = Ligne + 1 Cells(Ligne, 9) = Cells(i, 4) Cells(Ligne, 10) = Cells(i, 5) Cells(Ligne, 11) = Cells(i, 6) Cells(Ligne, 12) = Cells(i, 7) End If Next i End If Next c Application.ScreenUpdating = True End Sub
Cordialement. Daniel
Bonjour Daniel, Je souhaiterais savoir ce qu'il faut modifier pour avoir la possibilité : 1) Ne pas mettre de cellule vide sous les "types d'aliments". 2) Ne pas faire apparaître les "types d'aliments non concernés". 3) Par contre garder toujours la cellule vide sous les "types d'aliments". Merci de ton aide Cordialement Oupssss !!!!!....fichier joint : http://www.cijoint.fr/cjlink.php?file=cj201003/cijZ5PmDP4.xls Guy
"Daniel.C" a écrit dans le message de news:
http://www.cijoint.fr/cjlink.php?file=cj201003/cijGrYK2SV.xls Daniel
Re bonjour, Oui ça me conviens à 99.8%. Pour 0.1%, j'ai ajouté la ligne ....Cells(Ligne, 12) = Cells(i, 7).... Le dernier 0.1% vient de la colonne E : J'aurais préféré utiliser la colonne G pour le type d'aliments. Je souhaiterais éviter de séparer les colonnes d'origines D, E, F Cordialement Guy
"Daniel.C" a écrit dans le message de news:
Bonjour Guy. J'ai ajouté une colonne E pour le type d'aliment et la liste de ces catégories, je l'ai mise en colonne M. La macro "Liste" remplit les colonnes I:K :
Sub Liste() Dim c As Range, Plage As Range, Ligne As Long Dim i As Long Range("I:K").Clear Set Plage = Range([D1], [D65000].End(xlUp)) For Each c In Range([M1], [M65000].End(xlUp)) Ligne = Ligne + 2 Cells(Ligne, 9) = c.Value Cells(Ligne, 9).Font.Bold = True Ligne = Ligne + 1 For i = 1 To Plage.Rows.Count If Cells(i, 5) = c.Value Then Ligne = Ligne + 1 Cells(Ligne, 9) = Cells(i, 4) Cells(Ligne, 10) = Cells(i, 5) Cells(Ligne, 11) = Cells(i, 6) End If Next i Next c End Sub
Voici ton classeur modifié : http://www.cijoint.fr/cjlink.php?file=cj201003/cijstaIrF0.xls Cordialement. Daniel
Bonjour Daniel, Voici un exemple : http://www.cijoint.fr/cjlink.php?file=cj201003/cijCk63KAW.xls Cordialement Guy
"Daniel.C" a écrit dans le message de news:
Bonjour Guy. Selon quel(s) critère(s) ? Cordialement. Daniel
Oupsss...... Comment puis-je trier cette liste en 10 groupes différents en "G" ou "G:I"?
"Guy85" a écrit dans le message de news:
Bonjour, En "D" j'ai une liste de courses comprenant au moins 100 lignes. En "E" la quantité. En "F" les unités Comment puis-je trier cette liste en 10 groupes différents en "G" ou "G:F"? Cordialement Guy
Bonjour,
C'est tout simplement génial.
En plus c'est instantané.
Décidément, je comprendrais toujours rien en VBA.
Merci encore de ton aide.
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eCBn1t0xKHA.4492@TK2MSFTNGP05.phx.gbl...
Bonjour.
Essaie :
Sub Liste()
Dim c As Range, Plage As Range, Ligne As Long
Dim i As Long
Application.ScreenUpdating = False
Ligne = -1
Range("I:L").Clear
Set Plage = Range([D1], [D65000].End(xlUp))
For Each c In Range([N1], [N65000].End(xlUp))
If Application.CountIf([G:G], c.Value) > 0 Then
Ligne = Ligne + 2
Cells(Ligne, 9) = c.Value
Cells(Ligne, 9).Font.Bold = True
For i = 1 To Plage.Rows.Count
If Cells(i, 7) = c.Value Then
Ligne = Ligne + 1
Cells(Ligne, 9) = Cells(i, 4)
Cells(Ligne, 10) = Cells(i, 5)
Cells(Ligne, 11) = Cells(i, 6)
Cells(Ligne, 12) = Cells(i, 7)
End If
Next i
End If
Next c
Application.ScreenUpdating = True
End Sub
Cordialement.
Daniel
Bonjour Daniel,
Je souhaiterais savoir ce qu'il faut modifier pour avoir la possibilité :
1) Ne pas mettre de cellule vide sous les "types d'aliments".
2) Ne pas faire apparaître les "types d'aliments non concernés".
3) Par contre garder toujours la cellule vide sous les "types
d'aliments".
Merci de ton aide
Cordialement
Oupssss !!!!!....fichier joint :
http://www.cijoint.fr/cjlink.php?file=cj201003/cijZ5PmDP4.xls
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eJOm3hpxKHA.4240@TK2MSFTNGP06.phx.gbl...
http://www.cijoint.fr/cjlink.php?file=cj201003/cijGrYK2SV.xls
Daniel
Re bonjour,
Oui ça me conviens à 99.8%.
Pour 0.1%, j'ai ajouté la ligne ....Cells(Ligne, 12) = Cells(i, 7)....
Le dernier 0.1% vient de la colonne E :
J'aurais préféré utiliser la colonne G pour le type d'aliments.
Je souhaiterais éviter de séparer les colonnes d'origines D, E, F
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OwuJ6uoxKHA.3408@TK2MSFTNGP06.phx.gbl...
Bonjour Guy.
J'ai ajouté une colonne E pour le type d'aliment et la liste de ces
catégories, je l'ai mise en colonne M.
La macro "Liste" remplit les colonnes I:K :
Sub Liste()
Dim c As Range, Plage As Range, Ligne As Long
Dim i As Long
Range("I:K").Clear
Set Plage = Range([D1], [D65000].End(xlUp))
For Each c In Range([M1], [M65000].End(xlUp))
Ligne = Ligne + 2
Cells(Ligne, 9) = c.Value
Cells(Ligne, 9).Font.Bold = True
Ligne = Ligne + 1
For i = 1 To Plage.Rows.Count
If Cells(i, 5) = c.Value Then
Ligne = Ligne + 1
Cells(Ligne, 9) = Cells(i, 4)
Cells(Ligne, 10) = Cells(i, 5)
Cells(Ligne, 11) = Cells(i, 6)
End If
Next i
Next c
End Sub
Voici ton classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201003/cijstaIrF0.xls
Cordialement.
Daniel
Bonjour Daniel,
Voici un exemple :
http://www.cijoint.fr/cjlink.php?file=cj201003/cijCk63KAW.xls
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: ut7Z57gxKHA.1548@TK2MSFTNGP02.phx.gbl...
Bonjour Guy.
Selon quel(s) critère(s) ?
Cordialement.
Daniel
Oupsss......
Comment puis-je trier cette liste en 10 groupes différents en "G"
ou "G:I"?
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de
news: O60DelgxKHA.5940@TK2MSFTNGP02.phx.gbl...
Bonjour,
En "D" j'ai une liste de courses comprenant au moins 100 lignes.
En "E" la quantité.
En "F" les unités
Comment puis-je trier cette liste en 10 groupes différents en "G"
ou "G:F"?
Cordialement
Guy
Bonjour, C'est tout simplement génial. En plus c'est instantané. Décidément, je comprendrais toujours rien en VBA. Merci encore de ton aide. Guy
"Daniel.C" a écrit dans le message de news:
Bonjour. Essaie : Sub Liste() Dim c As Range, Plage As Range, Ligne As Long Dim i As Long Application.ScreenUpdating = False Ligne = -1 Range("I:L").Clear Set Plage = Range([D1], [D65000].End(xlUp)) For Each c In Range([N1], [N65000].End(xlUp)) If Application.CountIf([G:G], c.Value) > 0 Then Ligne = Ligne + 2 Cells(Ligne, 9) = c.Value Cells(Ligne, 9).Font.Bold = True For i = 1 To Plage.Rows.Count If Cells(i, 7) = c.Value Then Ligne = Ligne + 1 Cells(Ligne, 9) = Cells(i, 4) Cells(Ligne, 10) = Cells(i, 5) Cells(Ligne, 11) = Cells(i, 6) Cells(Ligne, 12) = Cells(i, 7) End If Next i End If Next c Application.ScreenUpdating = True End Sub
Cordialement. Daniel
Bonjour Daniel, Je souhaiterais savoir ce qu'il faut modifier pour avoir la possibilité : 1) Ne pas mettre de cellule vide sous les "types d'aliments". 2) Ne pas faire apparaître les "types d'aliments non concernés". 3) Par contre garder toujours la cellule vide sous les "types d'aliments". Merci de ton aide Cordialement Oupssss !!!!!....fichier joint : http://www.cijoint.fr/cjlink.php?file=cj201003/cijZ5PmDP4.xls Guy
"Daniel.C" a écrit dans le message de news:
http://www.cijoint.fr/cjlink.php?file=cj201003/cijGrYK2SV.xls Daniel
Re bonjour, Oui ça me conviens à 99.8%. Pour 0.1%, j'ai ajouté la ligne ....Cells(Ligne, 12) = Cells(i, 7).... Le dernier 0.1% vient de la colonne E : J'aurais préféré utiliser la colonne G pour le type d'aliments. Je souhaiterais éviter de séparer les colonnes d'origines D, E, F Cordialement Guy
"Daniel.C" a écrit dans le message de news:
Bonjour Guy. J'ai ajouté une colonne E pour le type d'aliment et la liste de ces catégories, je l'ai mise en colonne M. La macro "Liste" remplit les colonnes I:K :
Sub Liste() Dim c As Range, Plage As Range, Ligne As Long Dim i As Long Range("I:K").Clear Set Plage = Range([D1], [D65000].End(xlUp)) For Each c In Range([M1], [M65000].End(xlUp)) Ligne = Ligne + 2 Cells(Ligne, 9) = c.Value Cells(Ligne, 9).Font.Bold = True Ligne = Ligne + 1 For i = 1 To Plage.Rows.Count If Cells(i, 5) = c.Value Then Ligne = Ligne + 1 Cells(Ligne, 9) = Cells(i, 4) Cells(Ligne, 10) = Cells(i, 5) Cells(Ligne, 11) = Cells(i, 6) End If Next i Next c End Sub
Voici ton classeur modifié : http://www.cijoint.fr/cjlink.php?file=cj201003/cijstaIrF0.xls Cordialement. Daniel
Bonjour Daniel, Voici un exemple : http://www.cijoint.fr/cjlink.php?file=cj201003/cijCk63KAW.xls Cordialement Guy
"Daniel.C" a écrit dans le message de news:
Bonjour Guy. Selon quel(s) critère(s) ? Cordialement. Daniel
Oupsss...... Comment puis-je trier cette liste en 10 groupes différents en "G" ou "G:I"?
"Guy85" a écrit dans le message de news:
Bonjour, En "D" j'ai une liste de courses comprenant au moins 100 lignes. En "E" la quantité. En "F" les unités Comment puis-je trier cette liste en 10 groupes différents en "G" ou "G:F"? Cordialement Guy