Microsoft 365 Besoin d'une formule SVP

ZABETTE

XLDnaute Nouveau
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
 

Pièces jointes

  • Test.xlsm
    14.1 KB · Affichages: 11

ZABETTE

XLDnaute Nouveau
Re

@ZABETTE
La on est bon, non ?
VB:
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

XLDnaute Nouveau
Re

@ZABETTE
La on est bon, non ?
VB:
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?
 

Discussions similaires

Réponses
4
Affichages
507

Statistiques des forums

Discussions
314 603
Messages
2 111 081
Membres
111 035
dernier inscrit
Gharbi