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]

Bonjour @danielco

Merci j'ai cru être tombé dans une faille spatio-temporelle
ou avoir revêtu une cape d'invisiibilté à l'insu de mon plein gré.

Désolée Staple, j'ai pas vu les messages, j'ai eu un message d'erreur et impossible d'actualiser.
Je pense à cause des cookies, j'avais tout refusé, enfin j'espère que c'était ça, depuis mon changement je vois les messages diffusées depuis.
Zabette

 

[ZABETTE]

Je pense que le plus simple est d'effacer la couleur une fois pour toutes. Sinon, la macro de @Staple1600 est la plus efficace. Si tu le veux, je peux mettre l'effacement des couleurs dans la macro.

Daniel

Bonsoir Danielco,
Oui ce serait plus simple, concernant la macro de Staple je n'arrive pas à obtenir le recopiage du 1er chiffre mais vers le haut.
Merci d'avance
Cordialement
Zabette

 

[Staple1600]

Bonsoir @ZABETTE

Voici une illustration du fonctionnement
Telle que la macro est écrite, elle s'occupe de la colonne A.

 

[ZABETTE]

Bonsoir @ZABETTE

Voici une illustration du fonctionnement
Telle que la macro est écrite, elle s'occupe de la colonne A.
Regarde la pièce jointe 1152594

Bonsoir Staple,
Merci de ton humour, je rigole après une journée pas drôle alors merci
il faudrait que par rapport a ton exemple, zabette veut remplir le vide doit aller vers le haut jusque la ligne ou c'est plus vide, car la ça prend la ligne d'en tête et ça descend, mais dans mon extraction il ne me met le N° que sur les lignes de couleur et ce sont les lignes de total que je voudrais pouvoir supprimer après le remplissage.
Merci d'avance
Zabette

 

[Staple1600]

Re

@ZABETTE
Et dans ce sens là?
On se rapproche du but ?

Sub Essai_2()
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
   .Value = .Value
End With
End Sub

 

[ZABETTE]

Re

@ZABETTE
Et dans ce sens là?
On se rapproche du but ?

Sub Essai_2()
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
   .Value = .Value
End With
End Sub

oui Staple, plus qu'après cette macro supprimer les lignes de couleurs
C'est déjà chouette.
Merci beaucoup
zabette

 

[Staple1600]

Re

@ZABETTE
Oui mais avec cette dernière macro
les cellules de A88 à A92 restent vides.
Quelles valeurs devraient-elles avoir ?

Tu es sur de ton sens de remplissage ? (du bas vers le haut)

 

[ZABETTE]

Re
Oui j'ai mis un extrait mais il y a bien des lignes en jaunes en fin de tableau sachant que la toute dernière ligne de mon extraction est le total de toutes les jaunes.
Zabette

 

[ZABETTE]

Je réessaierais demain soir.
En attendant merci de m'avoir accompagné ce soir et trouver des solutions.
Bonne soirée
Zabette

 

[Staple1600]

Re

@ZABETTE
Ca ne réponds pas à cette question

Oui mais avec cette dernière macro
les cellules de A88 à A92 restent vides.
Quelles valeurs devraient-elles avoir ?

 

[Staple1600]

Re

Avec cette version, plus de cellules vides

Mais est-ce le résultat escompté ?

Sub Essai_4()
Dim dL&
dL = Cells(Rows.Count, 1).End(xlUp).Row
Set r = Cells(Rows.Count, 2).End(xlUp).Offset(, -1)
r.Value = Cells(Rows.Count, 1).End(xlUp)
With Range("A1", Range("A1").End(xlDown))
.SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
.Value = .Value
End With
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
   .Value = .Value
End With
End Sub

 

[ZABETTE]

Re

Avec cette version, plus de cellules vides

Mais est-ce le résultat escompté ?

Sub Essai_4()
Dim dL&
dL = Cells(Rows.Count, 1).End(xlUp).Row
Set r = Cells(Rows.Count, 2).End(xlUp).Offset(, -1)
r.Value = Cells(Rows.Count, 1).End(xlUp)
With Range("A1", Range("A1").End(xlDown))
.SpecialCells(xlBlanks).FormulaR1C1 = "=R[1]C"
.Value = .Value
End With
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
   .Value = .Value
End With
End Sub

Bonsoir,
Ca complète les cellules vides mais ne supprime pas les lignes en couleurs, peut être que ce n'est pas possible car les cellules à recopier sont dans une cellule de couleur à la base
zabette

 

[Staple1600]

Re

@ZABETTE
Je ne sais que cela ne supprime pas les lignes colorées.
(Puisque je ne l'ai pas encore mis dans la macro)

Ma question est dans quel sens doit se faire le remplissage.

Le plus simple pour être sûr de comprendre serait que tu joignes un classeur avec deux onglets

AVANT​

APRES​

Et sur l'onglet APRES tu mets précisément manuellement le résultat à obtenir

Fais le avec ton fichier Exemple initial

 

[ZABETTE]

Re

@ZABETTE
Je ne sais que cela ne supprime pas les lignes colorées.
(Puisque je ne l'ai pas encore mis dans la macro)

Ma question est dans quel sens doit se faire le remplissage.

Le plus simple pour être sûr de comprendre serait que tu joignes un classeur avec deux onglets

AVANT​

APRES​

Et sur l'onglet APRES tu mets précisément manuellement le résultat à obtenir

Fais le avec ton fichier Exemple initial

Re
Voici le fichier, mais je suis arrivée à faire fonctionner la dernière macro et il me recopie bien les cellules dans le bon sens vers le haut, plus qu'à supprimer les lignes en couleurs
Merci de ton aide

 

[Staple1600]

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