Microsoft 365 Besoin d'une formule SVP

ZABETTE · 9 Octobre 2022

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 · 19 Octobre 2022

Staple1600 à dit:

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 · 19 Octobre 2022

Staple1600 à dit:

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?

Staple1600 · 20 Octobre 2022

Bonsoir,

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

Microsoft 365 Besoin d'une formule SVP

ZABETTE

XLDnaute Nouveau

Pièces jointes

ZABETTE

XLDnaute Nouveau

ZABETTE

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires