Discussion :

[CalatheaWF]

Bonjour,

Je cherche un code qui me permet de remplir mes cellules vides comme si je faisais un ctrl+D. Si je fait un enregistrement de macro ça donne ça :

Code :

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

1
2
3
4
    Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Selection.FillRight

Seulement je ne sais pas gérer les boucles (loop).
Après recherches j'ai pu trouver des bouts de codes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sheets("Report").Select
 
    'Renvoi le numéro de la dernière ligne avec du contenu (part du bas de la feuille, dernière ligne (1 048 576) et remonte jusqu'à la première cellule avec du contenu.
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
 
'Boucle de la ligne 2 à la dernière ligne remplie de la colonne B
For i = 2 To lastRow
 
'Si La cellule Ai est vide, Ci conserve la valeur précedente, si elle est pleine on récupère la valeur de Ai
    If Cells(i, 1).Value = "" Then
    Cells(i, 3).Value = Cells(i - 1, 3).Value
    Else:  Cells(i, 3).Value = Cells(i, 1).Value
    End If
Next i

Mais je n'ai pas trouver comment l'adapté exactement parce que là, il me semble qu'il duplique la ligne vers le bas.
Voilà le type de données que j'ai :

Je veux que tout ce qui est vide prenne la valeur non vide la plus à gauche. Ca jusqu'en bas du tableau.
Bémol sur le fait que le tableau peux aller de la colonne AF à AI en fonction du nombre de jour dans le mois, si ça change quelque chose au code ou pas..

Par avance merci pour votre aide