Supprimer des cellules vides inutiles

[Toubabou]

Bonjour à tous,

J'ai un tableau où se trouve des cellules non remplies, donc inutiles pour moi. je voudrais supprimer ces cellules et que celles remplies se regroupent.
Pourriez vous m'aider.

Merci par avance,

Toubabou

 

[djidji59430]

Re : Supprimer des cellules vides inutiles

Bonjour,

Tu cliques sur le haut de la colonne et tu fais supprimer

 

[Toubabou]

Re : Supprimer des cellules vides inutiles

Bonjour Djidji59430,

Dans ce cas là c'est toutes les cellules du tableau qui disparaissent même celles contenant des informations

 

[djidji59430]

Re : Supprimer des cellules vides inutiles

Bonjour à tous,
J'ai un tableau où se trouve des cellules non remplies,
Toubabou

oui, lesquelles ? colore en vert tout ce que tu veux supprimer
Si on savait pourquoi il y a ref et les coches ? Ton fichier n'est pas representatif de ton probleme !

 

[Toubabou]

Re : Supprimer des cellules vides inutiles

oui, lesquelles ? colore en vert tout ce que tu veux supprimer
Si on savait pourquoi il y a ref et les coches ? Ton fichier n'est pas representatif de ton probleme !

Voila j’espère être plus clair

 

[mapomme]

Re : Supprimer des cellules vides inutiles

Bonjour à tous,

Un essai dans le fichier joint (si j'ai bien compris 😕). le code VBA est dans Module1:

Sub SuppSaufCoche()
Dim xcell As Range, plage As Range, col, i, j&, max&, k$
Application.ScreenUpdating = False
With Sheets("IMPRESSION")
For Each col In Array(5, 10, 15)
max = 12
For Each i In Array(col - 4, col - 1, col)
j = .Cells(.Rows.Count, i).End(xlUp).Row
If j > max Then max = j
Next i
For j = max To 12 Step -1
If .Cells(j, col) = "" Then
.Cells(j, col - 4).Resize(, 5).Delete xlShiftUp
End If
Next j
Next col
End With
End Sub

 

[Toubabou]

Re : Supprimer des cellules vides inutiles

Bonjour mapomme, bonjour à tous,

Voila c'est ce que je recherchais
- est il encore possible de regrouper les informations pour que cela fasse un tableau homogène?
- Cela fonctionne t il sur tout les cellules car biensûr mon tableau est plus grand ( environ 1500 ligne)?

Amicalement,

Toubabou

 

[Toubabou]

Re : Supprimer des cellules vides inutiles

Bonjour mapomme, bonjour à tous,
Oui car mon tableau ressemblerai plutôt à cela mais sur plus de 1500 lignes.

 

[BigDaddy154]

Re : Supprimer des cellules vides inutiles

Bonjour tout le monde,

un petit essai de ma part également à tester voir si cela peut te convenir.

CTRL+d pour lancer la macro.

Cordialement.

 

[Toubabou]

Re : Supprimer des cellules vides inutiles

Bonjour BigDaddy 154,

Même sooucis que Mapomme #8

Amicalement,

 

[mapomme]

Re : Supprimer des cellules vides inutiles

Bonjour à tous,

Vite fait, un autre essai qui devrait s'adapter à la taille du tableau (pas pu trop vérifier)

 

[klin89]

Re : Supprimer des cellules vides inutiles

Bonsoir à tous,

Ma compréhension :
Dans le fichier du post #8, avec cette macro, tu effaces les cellules concernées :

Sub Efface()
    Application.ScreenUpdating = False
    Dim rng As Range, r As Range
    On Error Resume Next
    Set rng = Range("E12:E94,J12:J94,O12:O94").SpecialCells(4)
    On Error GoTo 0
    If Not rng Is Nothing Then
        For Each r In rng
            On Error Resume Next
            r.Offset(, -4).Resize(, 4).ClearContents
            On Error GoTo 0
        Next
    End If
    Application.ScreenUpdating = True
End Sub

Ensuite, tu n'as plus qu'à supprimer les lignes entièrement vides.

klin89

 

[Toubabou]

Re : Supprimer des cellules vides inutiles

Merci Mapomme,
Cela fonctionne, pas comme je voulais mais sa fonctionne.

Merci encore
Toubabou

 

[Toubabou]

Re : Supprimer des cellules vides inutiles

Bonsoir à tous,

Ma compréhension :
Dans le fichier du post #8, avec cette macro, tu effaces les cellules concernées :

Sub Efface()
    Application.ScreenUpdating = False
    Dim rng As Range, r As Range
    On Error Resume Next
    Set rng = Range("E12:E94,J12:J94,O12:O94").SpecialCells(4)
    On Error GoTo 0
    If Not rng Is Nothing Then
        For Each r In rng
            On Error Resume Next
            r.Offset(, -4).Resize(, 4).ClearContents
            On Error GoTo 0
        Next
    End If
    Application.ScreenUpdating = True
End Sub

Ensuite, tu n'as plus qu'à supprimer les lignes entièrement vides.

klin89

Bonjour Klin89

Oui biensûr mais je pensais que l'on pouvais supprimer également dans la foulée les lignes vides
Et plus je viens de m'apercevoir que dans mon tableau qui contient un peu plus de 1500 lignes et où le lignes de 1 à 11 (qui sont des entêtes) se répètent régulièrement cela ne fonctionne pas correctement( ces entêtes sont partiellement supprimées.

Amicalement,

Jean-Marie

 

[klin89]

Re : Supprimer des cellules vides inutiles

Re Toubabou,

Concernant ta dernière remarque, pas vraiment testé, mais les cellules fusionnées doivent mettre le bazar.

Dans le fichier du post 11 :
Tu appliques cette 2 ème macro suite à la première proposée.

Sub Remonte()
    With [A12:O47]
        .Value = [index(trim(clean(A12:O47)),)]
        .SpecialCells(4).Delete xlShiftUp
    End With
End Sub

Redéfinis tes plages.
Sinon, il faudrait intégrer ces 2 codes dans une boucle et parcourir tes différentes zones.
Klin89