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

Compte Supprimé 979 · 9 Octobre 2022

Bonjour Zabette

danielco · 9 Octobre 2022

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

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

BrunoM45 à dit:
Bonjour Zabette

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

danielco · 9 Octobre 2022

ZABETTE à dit:
oui j'avoue des fois je me perds aussi dans mes questions

Regarde le classeur joint. La macro est :

VB:

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

danielco à dit:

Regarde le classeur joint. La macro est :

VB:

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

Seulement en colonne A ou de A à F ?

Staple1600 · 9 Octobre 2022

Bonsoir @ZABETTE , le fil

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

VB:

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

danielco à dit:
Seulement en colonne A ou de A à F ?

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

Staple1600 · 9 Octobre 2022

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

danielco · 9 Octobre 2022

ZABETTE à dit:
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 · 9 Octobre 2022

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

danielco à dit:
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 · 17 Octobre 2022

Staple1600 à dit:

Bonsoir @ZABETTE , le fil

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

VB:

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

Microsoft 365 Besoin d'une formule SVP

ZABETTE

XLDnaute Nouveau

Pièces jointes

Compte Supprimé 979

Guest

danielco

XLDnaute Accro

ZABETTE

XLDnaute Nouveau

ZABETTE

XLDnaute Nouveau

danielco

XLDnaute Accro

Pièces jointes

ZABETTE

XLDnaute Nouveau

danielco

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

ZABETTE

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

danielco

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

ZABETTE

XLDnaute Nouveau

ZABETTE

XLDnaute Nouveau

Discussions similaires