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

 

[Compte Supprimé 979]

Bonjour Zabette

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

😉

 

[danielco]

Bonjour,
C'est à dire que tu veux "Compte : nnnn" en colonne A quand il y a un numéro de pièce en colonne B ? Je ne pense pas qu'on puisse faire ça avec une formule. On peut le faire avec une macro. Si tu es d'accord, dis-le.

Daniel

 

[ZABETTE]

Bonjour, oui mais souvent la colonne B est vide, donc juste recopier vers le haut le N° de compte qui se met en bas sur une ligne de totaux, et que je puisse refaire un TCD sans être obligée de supprimer toutes les lignes jaunes. donc une macro me conviendrait également
Merci d'avance

 

[ZABETTE]

Bonjour Zabette

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

😉

oui j'avoue des fois je me perds aussi dans mes questions 😉

 

[danielco]

oui j'avoue des fois je me perds aussi dans mes questions 😉

Regarde le classeur joint. La macro est :

Sub Remplissage()
  Dim I As Long, Res As String
  For I = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Left(Cells(I, 1), 6) = "Compte" Then
      Res = Cells(I, 1).Value
    ElseIf C = "" Then
      Cells(I, 1) = Res
    End If
  Next I
End Sub

Daniel

 

[ZABETTE]

Regarde le classeur joint. La macro est :

Sub Remplissage()
  Dim I As Long, Res As String
  For I = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Left(Cells(I, 1), 6) = "Compte" Then
      Res = Cells(I, 1).Value
    ElseIf C = "" Then
      Cells(I, 1) = Res
    End If
  Next I
End Sub

Daniel

Merci DanielCo C'est trop super, c'est exactement ça.
Y a t-il possibilités de lui rajouter la suppression des lignes en jaunes ou de couleurs ? 🙂
Merci beaucoup
Cordialement
Zabette

 

[danielco]

Seulement en colonne A ou de A à F ?

 

[Staple1600]

Bonsoir @ZABETTE , le fil

@ZABETTE
Si j'ai bien compris
Une autre façon de remplir

Sub Remplissage_bis()
'code initial de job75
Dim dL&, i&, tablo
dL = Cells(Rows.Count, 1).End(xlUp).Row
If dL = 1 Then Exit Sub
tablo = [A1].Resize(dL, 1) 'matrice, plus rapide
For i = 2 To dL
If Trim(tablo(i, 1)) = "" Then
tablo(i, 1) = tablo(i - 1, 1)
End If
Next
[A1].Resize(dL) = tablo
End Sub

 

[ZABETTE]

Seulement en colonne A ou de A à F ?

Daniel,
L'extraction comporte des colonnes jusqu'à la lettre O
Cordialement.
Zabette

 

[Staple1600]

@ZABETTE
On ne me salue pas ? (cf le message#9)
Pourtant je me suis brossé les dents...
🙄

 

[danielco]

Daniel,
L'extraction comporte des colonnes jusqu'à la lettre O
Cordialement.
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

 

[Staple1600]

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é.
😉

 

[ZABETTE]

Seulement en colonne A ou de A à F ?

Bonsoir,
Toutes les colonnes, mais peut-être qu'il existe un raccourci clavier ou une manip pour soit changer la couleur soit la supprimer sans être obliger de les sélectionner une par une.
Merci d'avance.
Zabette

 

[ZABETTE]

Bonsoir @ZABETTE , le fil

@ZABETTE
Si j'ai bien compris
Une autre façon de remplir

Sub Remplissage_bis()
'code initial de job75
Dim dL&, i&, tablo
dL = Cells(Rows.Count, 1).End(xlUp).Row
If dL = 1 Then Exit Sub
tablo = [A1].Resize(dL, 1) 'matrice, plus rapide
For i = 2 To dL
If Trim(tablo(i, 1)) = "" Then
tablo(i, 1) = tablo(i - 1, 1)
End If
Next
[A1].Resize(dL) = tablo
End Sub

Bonsoir 😉
Je n'arrive pas à la faire fonctionner
Cordialement
Zabette