Microsoft 365 Besoin d'une formule SVP

[ZABETTE]

Bonjour,
j'ai une extraction qui me met le titre en fin de cumul pour chaque cas, j'aimerais si c'est possible que la cellule se recopie sur les cases vides vers le haut mais sans écraser celles qui sont déjà complètes ?
Je mets un extrait de mon extraction.
Merci d'avance pour votre aide.
Cordialement
Zabette

 

[ZABETTE]

Re

@ZABETTE
La on est bon, non ?

Sub Essai_5()
Dim dL&, i
Application.ScreenUpdating = False
dL = Cells(Rows.Count, 1).End(xlUp).Row
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
   .Value = .Value
End With
For i = dL + 1 To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 6 Then
Cells(i, 1).EntireRow.Delete
End If
Next
End Sub

Bonsoir Staple,

Ca ne me retire pas les lignes de couleurs,
A quoi correspond colorindex=6

 

[ZABETTE]

Re

@ZABETTE
La on est bon, non ?

Sub Essai_5()
Dim dL&, i
Application.ScreenUpdating = False
dL = Cells(Rows.Count, 1).End(xlUp).Row
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
   .Value = .Value
End With
For i = dL + 1 To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 6 Then
Cells(i, 1).EntireRow.Delete
End If
Next
End Sub

Bonsoir Staple

Trop chouette ça fonctionne.
Merciiiiiii beaucoup
Bonne fin de soirée
PS j'aurais d'autres demandes pensez-vous que je pourrais à nouveau vous solliciter?

 

[Staple1600]

Bonsoir,

Le forum est fait pour cela.
Une partie de pingpong sans fin entre demandeurs et répondeurs