Discussion :

[Tifre]

Bonjour à tous,

Je vous explique mon problème : J'ai une BdD que vous pouvez apercevoir ci-dessous et j'aimerai supprimer les cellules vides afin que mes lignes s'alignent correctement. Seulement certains cellules des lignes sont également vides et celles-là il ne faut pas les supprimer (je ne sais pas si vous me suivez).
Savez vous s'il existe une solution ?




Ma BdD fait 5000 lignes, donc d'avance MERCI !

[joe.levrai]

Bonjour,

j'ai pas compris


et ta copie écran est tout sauf une base de données, puisqu'on devine qu'il y a des enregistrements totalement vides (entre autres)

ça ressemble plutôt à des arborescences mal pensées ... mais je ne parle qu'avec le visu d'une copie écran, ce qui pourrait être trompeur


tu parles de supprimer des cellules, j'aurai plutôt vu une suppression des lignes totalement vides pour commencer

tu peux expliquer plus précisément ce que tu souhaites ?

[Tifre]

Voici l'en-tête de la base de données; ce sera peut-être plus parlant :



Ensuite j'ai 150 produits répartis en cascade avec des lignes vides un peu partout... Le but serait de supprimer les lignes vides que tu peux voir sur le premier post afin que mes produits s'alignent correctement.

Merci de ton aide en tout cas !

[joe.levrai]

Donc tu veux supprimer les lignes sur lesquelles toutes les cellules sont vides ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SuppressionLigne()
Dim i As Long
    With Worksheets("Feuil4")
        For i = .UsedRange.Rows.Count To 2 Step -1
            If Application.WorksheetFunction.CountA(.Range(.Cells(i, 1), .Cells(i, .Cells(1, .Columns.Count).End(xlToLeft).Column))) = 0 Then .Rows(i).Delete
        Next i
    End With
End Sub

[Tifre]

Merci !! Donc je copie colle ça dans une macro, je sélectionne toute ma feuille et je fais "exécuter" c'est bien ça ?

[joe.levrai]

tu n'as rien à sélectionner, c'est VBA qui fais tout comme un grand

tu colles ça dans un module
tu met le bon nom de feuille, j'ai mis Feuil4 pour l'exemple
tu fais une copie de ta feuille par précaution (en cas de soucis, tu conserves tes données)
tu lances le code et tu regardes si c'est ce que tu voulais

[Tifre]

Alors ça m'a supprimé les lignes au dessus de l'entête (car l'entête était à la ligne 10) par contre comme tu peux le voir ci dessous les lignes en cascades n'ont pas bougé...



Merci encore de prendre le temps, c'est super sympa en tout cas !

[joe.levrai]

Déjà, c'est normal que ça ne fonctionne pas, j'ai pris ton postulat au pied de la lettre, à savoir une BDD : les en-têtes en ligne 1


tu as des données ou pas sur les 10 premières lignes ?
si c'est pas le cas, pourquoi ne pas commencer en ligne 1 ?

[Tifre]

Arf... Oui, donc ce que je veux c'est "casser l'arbo" comme tu dis, afin que mes données remontent et se retrouvent sur la même ligne... A la suite. C'est plus clair ? Désolé si je manque de clarté ds mes explications

[joe.levrai]

ah ben mince, j'ai édité mon poste en me disant que finalement, tu voulais pas casser ton arbo mais juste supprimer les lignes

décidemment


résumons simplement :

- casser les arbos pour tout remonter sur la même ligne
- supprimer ensuite toutes les éventuelles lignes vides



je dois m'absenter, je reviens d'ici 1h, je te prépare un truc en fonction de la réponse à ce que je viens de proposer

[Tifre]

Oui c'est ça !

J'ai fait la 1ère ligne à la mano pour que tu puisse visualiser ce que je veux obtenir.
Tout en prenant en compte qu'il y aura certaines cellules vides dans les lignes car pas de données à inscrire (comme la cellule N2 ici par exemple)...



Je sais pas si tu saisis ?

A tte !

[joe.levrai]

si on est sur une vraie cascade ce n'est pas un problème : à chaque fois qu'on se décale d'une colonne, on se décale en même temps d'une ligne


c'est sur cette base qu'on va définir le nombre de cellules "de hauteur" qu'il faut supprimer sur chaque colonne, en faisant totale abstraction du contenu/absence de contenu des cellules


rassure moi simplement sur le fait que la colonne A contient à chaque fois des données, pour des questions de simplicité de code, j'ai besoin d'une colonne qui n'aura jamais de cellule vide

à tout à l'heure

[Tifre]

Oui la cellule A contient à chaque fois des cellules, cependant, ce ne sont pas tjs des cascades comme tu px le voir ci dessous :

[Edit] Et là par exemple, nous avons deux cellules vides qu'il faut conserver...

[joe.levrai]

S'il n'y a aucun dénominateur commun permettant de définir une structure globale ... il devient impossible de traiter de manière globale ta BDD

il devient dès lors impératif de consulter ton fichier pour appréhender (et gérer) tous les cas, et le code sera probablement beaucoup plus long que ce que je t'ai proposé

[Tifre]

Arf... Du coup ça veut dire que c'est mort ou tu penses qu'il existe qd même une commande VBA capable de faire ça ?

[joe.levrai]

on a commencé avec une cascade
on est ensuite passé à une cascade à trou
et on termine sur une pseudo cascade à trou qui contient de l'aléatoire en terme de structure


sans avoir un visuel de ta BDD c'est impossible de te répondre
tu peux facilement remplacer des caractères par des caractères spéciaux ou des nombres .... bref rendre les données anonymes, et me montrer le fichier.
ou alors tout simplement colorier les cellules remplies et effacer les données (1 couleur identique pour chaque cellule qui va composer la ligne reconstituée) ==> c'est d'ailleurs le meilleur compromis pour analyser la structure !


ce qui est écrit m'importe peu, je veux voir l'agencement de tes données sur cette feuille.
sinon c'est trop hasardeux et relève presque de la divination

[beninformatique]

Bonsoir Tifre,

N'as tu pas la possibilité de récupérer tes informations d'une autre manière ? as tu fait un copier-coller d'un site ? Il est vrai que la structure de ton fichier est trés étrange.

[NVCfrm]

Bonjour,
Très souvent les bonnes vieilles et basique fonctions Excel sont redoutablement efficaces en termes de codage, d'implémentation de l'algo pour un fainéant comme moi.
Essayes ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim plage As Range, cr As Range, addr$
 
Set plage = Range("maplage")
 
For Each cr In plage.Columns
    addr = cr.AddressLocal(True, True, xlA1)
    plage.Offset(, plage.Columns.Count + 1).Columns(1).FormulaArray = _
        "=IFERROR(INDEX(" & addr & ",SMALL(IF(" & addr & "<>"""",ROW(" & addr & "),""""),ROW(" & addr & ")),1),"""")"
    cr.Value = plage.Offset(, plage.Columns.Count + 1).Columns(1).Value
Next
 
plage.Offset(, plage.Columns.Count + 1).Columns(1).Delete

[Tifre]

On a réussi !

Merci beaucoup pr votre aide !

Bonne journée,

[Tifre]

Par contre j'ai maintenant un autre soucis (peut-être plus simple à expliquer cette fois ci)

Dans une cellule j'ai ces données :

<li> Observer méthodiquement les activités
<li> Savoir identifier les gaspillages
<li> Proposer des solutions pour augmenter la valeur ajoutée
<li> Faire évoluer les pratiques

Je voudrais pouvoir fermer mes balises </li> sachant que j'ai 150 cellules avec des balises <li> ouvertes (toutes les cellules commençaient par "*" j'ai donc pu remplacer simplement par <li> mais pour les fermer sachant qu'elles ne terminent pas toutes par la même chose, je suis coincé.

Pour info tout cela se trouve dans la même colonne (colonne F)

[Edit] Je pense qu'il faudrait une macro expliquant "avt chaque retour à la ligne, insérer un </li>" ou quelque chose comme ça..

Merci de votre aide,