Remonter un tableau automatiquement

[Ozzoun]

Bonjour,

Pouvez-vous m'expliquer la logique à suivre pour remonter un tableau automatiquement ?
Je réfléchis à des solutions avant de me lancer dans la création de mon excel..

Côté scénario, j'aurais une liste de numéros d'affaire dont certain ne serait pas forcément utile à chacun. Donc je cherche une solution où en supprimant les lignes indésirables et en exécutant un macro, on remonte toutes les lignes en haut du tableau. Pour me compliquer la tâche, sans supprimer de ligne..

Si vous pouvez m'aiguiller un petit peu

Merci d'avance.

 

[Ozzoun]

J'ai remplacer la ligne indiqué par:
If Not xrg Is Nothing Then xrg.EntireRow.Delete.Resize(, 34).Offset(, 8).xlShiftUp

Pour voir progressivement comment cela fonctionne, mais à l’exécution j'ai un message d'erreur

Erreur d'exécution '424':
Objet requis

Qui pointe sur "xrg.EntireRow.Delete.Resize(, 30).Offset(, 8).xlShiftUp"

 

[mapomme]

Ce n'est pas :

If Not xrg Is Nothing Then xrg.EntireRow.Delete.Resize(, 34).Offset(, 8).xlShiftUp

Mais :

If Not xrg Is Nothing Then xrg.EntireRow.resize(,35).offset(,7).Delete xlShiftUp

 

[Ozzoun]

Bizarre, j'ai effectuer la modification, désormais j'ai une erreur 1004 "Erreur définie par l'application ou par l'objet"
qui pointe sur "xrg.EntireRow.Resize(, 35).Offset(, 7).Delete xlShiftUp"

 

[Ozzoun]

Bonjour,

@mapomme, avez-vous une idée de pourquoi j'ai une erreur ici ? J'ai tenté plusieurs reformulation de cette instruction mais rien de fructueux..

Merci d'avance

Sub Complete2()
Dim xcell, xrg As Range

   Application.ScreenUpdating = False
   With Sheets("Data")
      If .FilterMode Then .ShowAllData
      For Each xcell In .Range("a2:a130")
         If xcell = "" Then
            If xrg Is Nothing Then Set xrg = xcell.Resize(, 2) Else Set xrg = Union(xrg, xcell.Resize(, 2))
         End If
      Next xcell
      If Not xrg Is Nothing Then xrg.Delete xlShiftUp
   End With
   With Sheets("Mois")
      Set xrg = Nothing
      If .FilterMode Then .ShowAllData
      On Error Resume Next
      Set xrg = .Columns("b").SpecialCells(xlCellTypeFormulas, xlErrors)
      On Error GoTo 0
      If Not xrg Is Nothing Then xrg.EntireRow.Resize(, 30).Offset(, 8).Delete xlShiftUp
   End With
End Sub

 

[Ozzoun]

Ci-joint le fichier excel test

 

[mapomme]

Bonjour @Ozzoun ,

Voir le fichier joint...

 

[Ozzoun]

Bonjour,
Merci pour l'aide, j'ai réussi à avoir un fonctionnement proche de celui souhaiter.
Bonne journée