Discussion :

[lucie972]

Bonjour,

je vous sollicite pour m'aider à faire une macro pour combler les cellules vide à partir de la cellule précédente à condition qu'en colonne A la référence soit la même.-voir mon fichier joint

Je suis débutante en macro ..Je vous remercie .

Lucie972

[Marc-L]

Bonjour,

merci d'effacer la discussion d'origine dans le forum Microsoft Office !
En cas d'échec, y indiquer au moins la création d'une nouvelle discussion dans ce forum Macros et VBA Excel …

Dans le fichier joint, où est la feuille du résultat désiré ?
Et merci de poster votre code avec l'icône dédiée # …

Ne pas oublier : l'Enregistreur de macros est un ami, il livre au moins une base de code …

[jijie]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Dim NbLigne As Integer
Dim T As Integer
Dim ReF As Variant
 
NbLigne = Sheets("feuil1").Range("A65536").End(xlUp).Row
ReF = Cells(2, 1)
For T = 3 To NbLigne
If Cells(T, 1) = ReF Then
 
If Cells(T, 2) = "" Then Cells(T, 2) = Cells(T - 1, 2)
If Cells(T, 3) = "" Then Cells(T, 3) = Cells(T - 1, 3)
Else
ReF = Cells(T, 1)
End If
Next T
End Sub

Dans le fichier joint, où est la feuille du résultat désiré ?
Et merci de poster votre code avec l'icône dédiée # …

Ne pas oublier : l'Enregistreur de macros est un ami, il livre au moins une base de code …

Marc, il faut bien s'occuper!

[lucie972]

Bonjour,

Merci pour votre aide, j'ai pu faire fonctionner ma macro.

Et j'ai noté vos remarques quant à l'utilisation du forum.

Merci encore et bonne journée