Boucle VBA

Bonjour,

voici quelque temps que je n'ai plus écrit du code VBA... j'ai un peu de mal à m'y retrouver... Je souhaite faire une boucle avec une condition de fin :

Colonne A des noms de clients. La première ligne contient le nom du client, les suivantes sont vides jusqu'à tant qu'on passe à un nouveau nom de client. Je souhaite remplir les blancs jusqu'a tomber sur la cellule "TOTAL" en fin de tableau sur cette même colonne.

j'ai donc déclaré 2 variables

dim monclient as string

dim i as integer

Mais je suis perdue pour écrire la suite

J'en suis là :

Range("a2").Select

Do Until ActiveCell.Value = "Total"

For i = 2 To ActiveCell.Value = "Total"

i = i + 1

range("a";i).Activate

ActiveCell.Value = monclient

Loop

si quelqu'un peut me structurer un peu mon mini début (faux je le sais) de macro, ce serait tip top !

Merci d'avance

bonjour

essayer ca

Sub test()
Dim monclient
Dim x As Integer
monclient = InputBox("Entrez mon client")
x = 2
Do Until cells(x, 1).Value = "Total"
If cells(x, 1).Value = "" Then cells(x, 1).Value = monclient
x = x + 1
Loop
End Sub

Bonjour,

Sub Patricia()
    Dim monclient$, i%
    i = 2
    Application.ScreenUpdating = False
    With ActiveSheet
        Do
            If .Cells(i, 1) <> "" Then
                monclient = .Cells(i, 1)
            Else
                .Cells(i, 1) = monclient
            End If
            i = i + 1
        Loop While .Cells(i, 1) <> "Total"
    End With
    Application.ScreenUpdating = True
End Sub

Codialement.