Suppression lignes vides, mais conservation du format, du contenu cellules déplacées

[VIARD]

Bonjour à toutes et tous

J'ai réalisé une petite procédure pour supprimer des lignes vides dans une plage de cellules (donc plusieurs colonnes).
cette réalisation fonctionne très bien tant que le format reste le même.

Pb: je veux conserver les différents formats lors des déplacements des contenus.

J'ai placé un fichier exemple (nota: autour de cette plage les données ne doivent pas bouger)

 

[laetitia90]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

bonjour VIARD
brut je dirais comme cela ???

[a11:a40].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[VIARD]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Bonjour Leatitia

Merci de promptitude.

Je fais le test et te tiens au courant.

Jean-Paul

 

[VIARD]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

ReBonjour Laetitia

Désolé, Le test me provoque une erreur 400.

je pense réécrire mon test.

Salutation

Jean-Paul

 

[job75]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Bonsoir VIARD, Laetitia

Les macros dans le fichier joint utilisent un document auxiliaire provisoire.

A+

 

[job75]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Re,

Si des cellules sont colorées, il faut ajouter une ligne dans chaque macro.

Fichier (2).

A+

 

[VIARD]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

re, Job, Laetitia et à tous

Merci infiniment, je vais épluché ce code.
Je n'ai pas pensé à cette solution. Ca fonctionne super bien.

merci beaucoup, et bon WK

Jean-Paul

 

[job75]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Bonjour VIARD, le forum,

On peut utiliser un seul bouton et une seule macro :

Private Sub CommandButton1_Click()
Dim test As Boolean, a, i&, n&
With CommandButton1
  test = .Caption Like "S*"
  .Caption = IIf(test, "Insérer", "Supprimer") & " lignes vides"
  .ForeColor = IIf(test, &HFF&, &H8000&) 'rouge, vert
End With
a = Array(2, 4, 6, 8, 10, 12, 18) 'position des lignes
Application.ScreenUpdating = False
Workbooks.Add 'nouveau document
With ActiveWorkbook.Sheets(1)
  [Tableau].Copy .[A1]
  .Cells.ClearContents
  .Cells.Interior.ColorIndex = xlNone
  For i = 1 To [Tableau].Rows.Count
    If [Tableau].Cells(i, 1) <> "" Then
      n = n + 1
      [Tableau].Rows(i).Copy .Cells(IIf(test, n, a(n - 1)), 1)
    End If
  Next
  .[A1].Resize([Tableau].Rows.Count, [Tableau].Columns.Count).Copy [Tableau]
  ActiveWorkbook.Close False
End With
End Sub

Nota : le bouton est un bouton ActiveX.

Fichier (3).

A+

 

[VIARD]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Bonjour Job

C'est super le travail effectué.
Effectivement je préparais une manip avec un seul bouton.
Il n'y a qu'un bémol, je ne connais jamais la position des données dans cette plage.
Seul indice leur nombre est connu en "A7"
J'ai tenté des manips en deletant les lignes vides sur le classeur auxilliaire.

En tout cas super travail Job

amicalement

Jean-Paul

 

[mapomme]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Bonjour à toutes et tous,

Voir message #12 de ce fil :
https://www.excel-downloads.com/thr...-format-du-contenu-cellules-deplacees.178914/

 

[VIARD]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Bonjour mapomme, Job et Tous

Super solution, Je commençais à me faire des noeuds au cerveau.
Et la solution du tableau intermédiaire est également génial on n'y pense pas assez souvent.
Je retiens les 2 solutions, vue que j'ai des tableaux un peu partout.

Merci à tous

amicalement

Jean-Paul

 

[mapomme]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Bonjour le forum,

Erreur dans le fichier v2 (aussi grosse que moi!)
Voir version 3.

Sub SupprLigne()
Dim Source As Range, Ncol

Set Source = Nothing
On Error Resume Next
Set Source = Application.InputBox("Sélectionner la zone à traiter ?:", Type:=8)
If Source Is Nothing Then Exit Sub
On Error GoTo 0

Source.Columns("A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Ncol = Source.Columns.Count
Set Source = Source.Offset(0, -1).Resize(, Source.Columns.Count + 1)
Source.Columns("A").FormulaR1C1 = "=IF(COUNTBLANK(RC[1]:RC[" & Ncol & "])=" & Ncol & ",""""," & "Row())"
Source.Columns("A").Value = Source.Columns("A").Value
Source.Sort key1:=Source(1, 1), order1:=xlAscending, Header:=xlNo
Source.Columns("A").Delete Shift:=xlToLeft
End Sub

 

[job75]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Re, salut mapomme,

Il n'y a qu'un bémol, je ne connais jamais la position des données dans cette plage.

Cette version (4) traite tous les tableaux nommés Tableaun :

- les tableaux avec lignes vides sont mémorisés dans la feuille Mémorisation

- par sécurité les tableaux sans lignes vides ne peuvent pas être modifiés

- par sécurité encore, la feuille Mémorisation est protégée (mot de passe VIARD).

A+

 

[VIARD]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

re Job, mapomme et à tous

Merci Job, pour tous tes efforts il y a vraiment beaucoup de solution.
Je viens de voir avec la fonction "Sort" de "mapomme" que l'on pouvait déplacer les formats.
comme quoi excel est plein de ressource.

Encore merci à tous

amicalement

Jean-Paul

 

[job75]

Re : Suppression lignes vides, mais conservation du format, du contenu cellules dépla

Re,

Effectivement trier les tableaux est une bonne idée, la macro est plus simple.

Le fait que l'ordre des lignes est modifié ne paraît guère gênant puisqu'on peut revenir à l'état d'origine.

Fichier (5).

Edit : il fallait [A5].Select à la fin de la macro du bouton, et j'ai masqué la feuille Mémorisation.

A+