Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Trier des lignes contenant des formules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Aloha
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Aloha

XLDnaute Accro
Bonjour,

Comment faire pour que, lorsque je trie des lignes contenant des formules dans Feuil2 (pour afficher les noms) dans le fichier joint dont certaines n'affichent aucune valeur, d'autres des valeurs, les lignes n'affichant aucune valeur soient en-dessous de celles qui contiennent des valeurs?
Je veux que, après le tri, la Feuil2 se présente comme la Feuil3, c'est-à-d. sans les lignes vides. Ou, mieux encore, que les noms pour lesquels il n'y a pas de valeurs, ne s'affichent pas non plus, comme dans la Feuil4.

Le mieux serait de procéder par VBA, ou non?

Merci pour toute aide

Aloha
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Trier des lignes contenant des formules

Re,
Ou, mieux encore, que les noms pour lesquels il n'y a pas de valeurs, ne s'affichent pas non plus, comme dans la Feuil4.
Cliquez pour agrandir...

j'avais réalisé le fichier sans avoir vu la modification de la question
voici

à+
Philippe
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Bonjour Philippe,

Cela marche! Merci beaucoup

La seule chose qui n'est pas si pratique, c'est que les données sont copiées dans la même feuille; ce serait mieux si elles l'étaient dans une autre feuille ou même dans un autre classeur.

En réalité j'ai une feuille par mois sur laquelle il faut faire cette opération, mois après mois. J'avais l'intention d'enregistrer une macro pour imprimer janvier, et de la multiplier 11 fois et de l'adapter aux autres mois.

J'ai adapté le fichier pour qu'il soit plus proche de la réalité.
Une précision: Il y a tout un système de bordures et également des couleurs; voilà pourquoi il faut aussi copier les formats.

A+

Aloha
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Re,
remplace le code par celui-ci
Code: 
Sub Macro1()
Application.ScreenUpdating = False
For doc = 2 To 13
Sheets(doc).Select
 
Dim derligne
ligne = 1
derligne = Range("A65535").End(xlUp).Row
For i = 1 To derligne
    If Range("b" & i).Value <> "" And Range("c" & i).Value <> "" Then
        Range("G" & ligne).Value = Range("A" & i).Value
        Range("H" & ligne).Value = Range("B" & i).Value
        Range("I" & ligne).Value = Range("C" & i).Value
        ligne = ligne + 1
    End If
Next i
' calcul de la somme
For j = 2 To ligne - 1
    Range("H" & ligne).Value = Range("H" & ligne).Value + Range("H" & j).Value
    Range("I" & ligne).Value = Range("I" & ligne).Value + Range("I" & j).Value
Next j
Next doc
Application.ScreenUpdating = True
End Sub
La macro fonctionnera sur toutes les feuilles

For doc = 2 To 13
2 étant le feuille "Janvier"
13 étant la dernière feuille---->décembre
à modifier si tu as moins de feuilles

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Re,

Merci beaucoup.
Seulement, -je me suis sûrement mal exprimé- je n'imprime qu'un mois à la fois. Et si je comprends bien ton code il imprime tous les mois.
Qui plus est, il copie toujours dans la même feuille, alors que ce serait mieux si c'était dans une autre feuille ou même un autre classeur (qui peut être effacé une fois la feuille imprimée).

Ce qui n'est pas sans importance non plus: le nombre de colonnes à copier va de A à AP, donc 42 si j'ai bien compté.
A+

Aloha
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Re,

J'ai appliqué ton code à mon fichier, et cela marche, sauf que, lorsque j'ajoute le formatage (j'ai ajouté du code, enregistré par macro, qui copie (avec la brosse) le formatage des colonnes originales et qui le colle dans les colonnes copiées). L'inconvénient: j'ai le formatage de toutes les lignes du tableau original, puisque je ne sais pas comment limiter le formatage aux nombres de lignes dans le tableau créé.

Pour les mois j'ai mis en commentaire le code correspondant et j'ai ajouté Sheets("Janvier").Select.

Avec cette méthode je dois évidemment reproduire le code 11 fois!

A+

Aloha
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Re,

le fichier en retour
alors que ce serait mieux si c'était dans une autre feuille ou même un autre classeur (qui peut être effacé une fois la feuille imprimée).
Cliquez pour agrandir...
c'est maintenant fait

je n'ai pas encore regardé pour " la déco " des cellules on verra après
il y a maintenant les grilles autour des valeurs lors de l'impression
l'important pour l'instant c'est la procédure

à+
Philippe
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Bonjour Philippe,

Cela fonctionne à merveille! Merci beaucoup.

En essayant de transcriore ton code sur mon projet:

Je n'ai pas que 3 colonnes à copier, mais 42.

Y a-t-il moyen de remplacer

Sheets("IMPRESSION").Range("A" & ligne).Value = Range("A" & i).Value
Sheets("IMPRESSION").Range("B" & ligne).Value = Range("B" & i).Value
Sheets("IMPRESSION").Range("C" & ligne).Value = Range("C" & i).Value
.
.
.
Sheets("IMPRESSION").Range("AP" & ligne).Value = Range("AP" & i).Value

par un For ...Next?

Je n'arrive d'ailleurs pas à copier le Userform.

Pour le reste je continue ma transcription

A+

Aloha
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Re,
il y a effectivement moyen de paramétrer cela dans une boucle supplémentaire et imbriquée
en utilisant Range(Cells(.......) , Cells(...))
ou alors, copie ci-dessous et colle dans ton code

Sheets("IMPRESSION").Range("A" & ligne).Value = Range("A" & i).Value
Sheets("IMPRESSION").Range("B" & ligne).Value = Range("B" & i).Value
Sheets("IMPRESSION").Range("C" & ligne).Value = Range("C" & i).Value
Sheets("IMPRESSION").Range("D" & ligne).Value = Range("D" & i).Value
Sheets("IMPRESSION").Range("E" & ligne).Value = Range("E" & i).Value
Sheets("IMPRESSION").Range("F" & ligne).Value = Range("F" & i).Value
Sheets("IMPRESSION").Range("G" & ligne).Value = Range("G" & i).Value
Sheets("IMPRESSION").Range("H" & ligne).Value = Range("H" & i).Value
Sheets("IMPRESSION").Range("I" & ligne).Value = Range("I" & i).Value
Sheets("IMPRESSION").Range("J" & ligne).Value = Range("J" & i).Value
Sheets("IMPRESSION").Range("K" & ligne).Value = Range("K" & i).Value
Sheets("IMPRESSION").Range("L" & ligne).Value = Range("L" & i).Value
Sheets("IMPRESSION").Range("M" & ligne).Value = Range("M" & i).Value
Sheets("IMPRESSION").Range("N" & ligne).Value = Range("N" & i).Value
Sheets("IMPRESSION").Range("O" & ligne).Value = Range("O" & i).Value
Sheets("IMPRESSION").Range("P" & ligne).Value = Range("P" & i).Value
Sheets("IMPRESSION").Range("Q" & ligne).Value = Range("Q" & i).Value
Sheets("IMPRESSION").Range("R" & ligne).Value = Range("R" & i).Value
Sheets("IMPRESSION").Range("S" & ligne).Value = Range("S" & i).Value
Sheets("IMPRESSION").Range("T" & ligne).Value = Range("T" & i).Value
Sheets("IMPRESSION").Range("U" & ligne).Value = Range("U" & i).Value
Sheets("IMPRESSION").Range("V" & ligne).Value = Range("V" & i).Value
Sheets("IMPRESSION").Range("W" & ligne).Value = Range("W" & i).Value
Sheets("IMPRESSION").Range("X" & ligne).Value = Range("X" & i).Value
Sheets("IMPRESSION").Range("Y" & ligne).Value = Range("Y" & i).Value
Sheets("IMPRESSION").Range("Z" & ligne).Value = Range("Z" & i).Value
Sheets("IMPRESSION").Range("AA" & ligne).Value = Range("AA" & i).Value
Sheets("IMPRESSION").Range("AB" & ligne).Value = Range("AB" & i).Value
Sheets("IMPRESSION").Range("AC" & ligne).Value = Range("AC" & i).Value
Sheets("IMPRESSION").Range("AD" & ligne).Value = Range("AD" & i).Value
Sheets("IMPRESSION").Range("AE" & ligne).Value = Range("AE" & i).Value
Sheets("IMPRESSION").Range("AF" & ligne).Value = Range("AF" & i).Value
Sheets("IMPRESSION").Range("AG" & ligne).Value = Range("AG" & i).Value
Sheets("IMPRESSION").Range("AH" & ligne).Value = Range("AH" & i).Value
Sheets("IMPRESSION").Range("AI" & ligne).Value = Range("AI" & i).Value
Sheets("IMPRESSION").Range("AJ" & ligne).Value = Range("AJ" & i).Value
Sheets("IMPRESSION").Range("AK" & ligne).Value = Range("AK" & i).Value
Sheets("IMPRESSION").Range("AL" & ligne).Value = Range("AL" & i).Value
Sheets("IMPRESSION").Range("AM" & ligne).Value = Range("AM" & i).Value
Sheets("IMPRESSION").Range("AN" & ligne).Value = Range("AN" & i).Value
Sheets("IMPRESSION").Range("AO" & ligne).Value = Range("AO" & i).Value
Sheets("IMPRESSION").Range("AP" & ligne).Value = Range("AP" & i).Value

Je n'arrive d'ailleurs pas à copier le Userform.
Cliquez pour agrandir...
Précise ta question, ma boule de cristal est en panne 😀 😀 😀

à+
Philippe
.
 
Vote positif 0 Vote négatif
Re : Trier des lignes contenant des formules

Re
Je suis finalement arrivé à en fabriquer une.
Ce qui ne fonctionne pas encore comme il faut, mais qui est essentiel, c'est la copie des données. Je vais essayer d'y bricoler encore.
Merci pour ce code; je suis désolé que tu te sois donné autant de peine: je n'étais tout de même pas assez paresseux pour ne pas l'avoir fait moi-même!
Bonne après-midi

Aloha
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
607
Vakarm31
V
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
402
agayet
A
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
C
  • Question Question
XL 2010 Trier des lignes par nombre de mots pertinent
Réponses
3
Affichages
909
crocrocro
C
POWERQUERY :: Tris dynamiques, regroupements et somme
Réponses
1
Affichages
458
merinos-BernardEtang
L
  • Question Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
524
Langrand
L
M
  • Question Question
Microsoft 365 Impossible de trier des rangées vides
Réponses
13
Affichages
836
mapomme
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
816
Webperegrino
W
N
  • Question Question
Autres listes
Réponses
7
Affichages
927
nicolaspoulain77
N
POWERQUERY :: Combinaison de dossiers multiples non adjacents (non hiérarchiques) - Tables - Feuilles - Puis filtrage à l'issue de la combinaison
Réponses
1
Affichages
320
oguruma
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
663
Romain77144
R
A
  • Question Question
Autres Trier un tableau contenant des cellules vides avec formules
Réponses
13
Affichages
1 K
Ab68
A
L
  • Question Question
XL 2019 Filtre avancé recherche multiple, remplir des champs manuellement
Réponses
6
Affichages
683
LoshiMoshi
L
P
  • Résolu(e)
XL 2013 Mise en forme suite à utilisation de UserForm
Réponses
4
Affichages
812
PR.
P
C
  • Question Question
Autres Afficher lignes contenant des cellules suivant plusieurs critères
Réponses
2
Affichages
602
Hasco
L
  • Question Question
XL 2019 Excel - utilisation des unbound pour grande base de donnees
Réponses
11
Affichages
1 K
Lordpeter
L
  • Résolu(e)
XL 2016 Résolu: Trier puis compléter après recherchev
2
Réponses
19
Affichages
2 K
Olivier29b
W
  • Question Question
XL 2016 Transfert de 2 colonnes sans formules et duplication des cellules selon le nbre de fois indiqué en colonne L
Réponses
9
Affichages
837
Webperegrino
W
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
1 K
PatFr38
P
  • Question Question
XL 2019 Masquer des lignes en fonction d'un critère
Réponses
5
Affichages
687
gbinforme
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…