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

Disposer les données autrement et supprimer les lignes vides

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,

Dans le fichier joint il y a un certain nombre de feuilles dont la structure est identique: en-haut toujours les mêmes données, et à partir de la ligne 16, des données concernant des personnes.

Mon problème réside dans le fait que ces données sont réparties sur 3 lignes par personne et qu'entre certaines personnes il y a une ligne vide, alors qu'il n'y en a pas pour d'autres.

Je voudrais donc mettre de l'ordre dans les données en mettant toutes les données d'une personne dans une seule ligne, de sorte à ce qu'il n'y ait plus de lignes vides, comme le montre un exemple dans la feuille "COMME CELA DOIT ETRE".

Je pense qu'il faut du VBA et pour cela j'ai besoin, une fois de plus, de votre aide dont je vous remercie d'avance.

Bonne journée

Aloha
 

Pièces jointes

Trier par date Trier par votes
Proposition

Bonjour Aloha,

Voici ci-joint une proposition.

Comme tu pourras le voir, la macro traite ta feuille "Sheet 1".

Il te reste plus qu'à rajouter une boucle pour qu'elle traite toutes les feuilles de ton choix.

Il faut bien que tu bosse un peu et du même coup apprenne 😉

T'inquiéte pas, j'ai détaillé la macro et inséré des explications à l'intérieur.

Bonne continuation
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Disposer les données autrement et supprimer les lignes vides

Bonjour Excel-lent,

Merci beaucoup pour ta proposition.

Tes intentions sont pédagogiquement hautement louables mais hélas elles se heurtent à mes maigres connaissances en VBA qui m'on permis de réussir une boucle, en copiant le code autre part, mais cela donne n'importe quoi. Qui plus est, dans mon fichier réel je n'ai pas de feuille où déposer les données dans l'ordre souhaité; il faut don les créer, et après effacer la feuille originale.
Et cela me dépasse!

Désolé de te "décevoir"

Aloha
 
Vote positif 0 Vote négatif
Re : Disposer les données autrement et supprimer les lignes vides

Bonjour, salut Excel-lent,

Cela doit être faisable par formules, un peu laborieux, mais faisable.

Question préliminaire :
Comme je vois que tu travailles avec une version anglaise, les codes postaux sont-ils tous à cinq chiffres ?
Ou il y a-t-il une autre donnée qui permet de différencier les séries de trois lignes, par exemple le compte bancaire, toujours au moins trois chiffres à gauche ?
 
Vote positif 0 Vote négatif
Re : Disposer les données autrement et supprimer les lignes vides

Bonsoir Aloha, le fil,

Pas de souci! Il faut bien commencer un jour. On ne peut pas toujours tout savoir tout de suite!

Voici ci-joint la solution complète à ton problème.

Bonne réception
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Disposer les données autrement et supprimer les lignes vides

bonjour tous🙂🙂🙂🙂
on peut peut être partir sur un truc comme cela
reste a faire une boucle sur les feuilles
Code: 
 For Each Ws In Worksheets

Code: 
Sub es()
Dim i As Long
Application.ScreenUpdating = False
For i = 16 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" Then
Cells(i, 2) = Cells(i, 4)
Cells(i, 3) = Cells(i + 1, 1)
Cells(i, 4) = Cells(i + 2, 1)
Cells(i, 6) = Cells(i + 1, 5)
Cells(i, 7) = Cells(i + 2, 5)
Cells(i, 8) = Cells(i, 10)
Cells(i, 10) = ""
End If
Next i
For i = Cells(Rows.Count, 1).End(xlUp).Row To 16 Step -1
If Cells(i, 8) = "" Then Rows(i).Delete
Next i
End Sub

en complement si beaucoup de lignes passer par un "tablo" plus rapide
 

Pièces jointes

Dernière édition:
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

G
  • Question Question
XL 2019 [Résolu] Somme de plusieurs lignes entre deux dates variables en colonnes
Réponses
5
Affichages
209
Jacky67
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
412
Vakarm31
V
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
312
sylvanu
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
263
olivier Clech
O
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
321
xavieralvaro
X
E
  • Résolu(e)
Microsoft 365 TS Copie ligne selon condition
Réponses
6
Affichages
187
eric72
E
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
225
agayet
A
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
298
Sylvia57
S
S
  • Question Question
XL 2016 Différents calculs et graphiques
Réponses
8
Affichages
247
Stephane72
S
  • Question Question
XL 2021 Automatisation Extraction de données et de sommes
Réponses
1
Affichages
145
chris
R
  • Question Question
XL 2021 Récupérer des données dans plusieurs classeurs sans les ouvrir - Résolu
Réponses
10
Affichages
675
job75
A
  • Question Question
Microsoft 365 Verrouillage d'une partie d'une feuille
Réponses
1
Affichages
272
Phil69970
P
  • Question Question
Microsoft 365 Publipostage avec Excel
Réponses
10
Affichages
962
Sequoyah
M
  • Question Question
Microsoft 365 Afficher les données d'un userform sur un autre userform
Réponses
3
Affichages
537
Manon71.
M
D
  • Question Question
Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes
2
Réponses
20
Affichages
1 K
fanch55
R
  • Résolu(e)
XL 2019 supprimer lignes vides qui ont été coupées - collées
Réponses
6
Affichages
538
rh.finances
R
  • Question Question
Microsoft 365 RESOLU - Macro - Recherche de lignes identiques et ressortir les lignes uniques
Réponses
8
Affichages
796
Akortys
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
670
Dégé59
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…