Microsoft 365 Remplir les cellules vides

[Ines99]

Bonjour le forum,
Pourriez-vous m'aider à trouver comment remplir les cellules vides de la référence des comptes commençant par le chiffre 4 ?
Ce sont des données qui proviennent d'un logiciel, mais pas pratique.
Auriez-vous une proposition, je pense Power query, mais je ne connais pas bien.
Merci pour votre aide
Ines

 

[sylvanu]

Bonjour Ines,
Un essai en PJ avec :

Sub Complète()
    Dim DL%, L%, Tiers$
    DL = Cells(Rows.Count, "D").End(xlUp).Row
    For L = DL To 9 Step -1
        If Cells(L, "A") = "" Then Exit Sub
        If Cells(L, "G") <> "" Then
            Tiers = Cells(L, "G")
            If UCase(Left(Tiers, 5)) = "FFREE" Then Tiers = "FFREE"
        Else
            Cells(L, "G") = Tiers
        End If
    Next L
End Sub

Sur la feuille concernée faire ALT+F8 et lancer "Complète"

 

[Ines99]

Bonjour Ines,
Un essai en PJ avec :

Sub Complète()
    Dim DL%, L%, Tiers$
    DL = Cells(Rows.Count, "D").End(xlUp).Row
    For L = DL To 9 Step -1
        If Cells(L, "A") = "" Then Exit Sub
        If Cells(L, "G") <> "" Then
            Tiers = Cells(L, "G")
            If UCase(Left(Tiers, 5)) = "FFREE" Then Tiers = "FFREE"
        Else
            Cells(L, "G") = Tiers
        End If
    Next L
End Sub

Sur la feuille concernée faire ALT+F8 et lancer "Complète"

Bonjour Sylvanu,
Merci beaucoup,
Ça va beaucoup me servir.
Merci à vous
Ines