remplire cellules vides d'une colonne

Salut Sandrine,

Un code de ce genre devrait faire l'affaire (j'ai considérer que tes données étaient en colonne A et que ta boucle allait seulement jusqu'à 20) donc a toi d'adapter :

Si tu as un soucis ou des questions, n'hesite pas.

@+

Salut,

Pour éviter de boucler, une soluce parmi d'autres (à adapter):

Sub zzz()
With Range('A1', [A65536].End(3))
.SpecialCells(xlCellTypeBlanks).Formula = '=R[-1]C'
.Value = .Value
End With
End Sub

AV [MVP Excel]

Et si la 1ère cellule était vide ??

Sub RemplirVide()
Dim i, j, k As Integer
Dim NbLig, NbCol As Integer

'Initialisation
NbLig = Range('A1', Range('A65536').End(xlUp)).Count
NbCol = 2
'Traitement
For i = 1 To NbLig
For j = 1 To NbCol
'Les 1ères cellules sur la 1ère ligne ne doivent pas être vides
If Cells(1, j) = '' Then
MsgBox 'une cellule de la 1ère ligne est vide !!', vbCritical, 'Saisie Initiale Vide !'
Exit Sub
End If
'Traitement
If Cells(i + 1, j).Value = '' Then
Cells(i + 1, j).Value = Cells(i, j).Value
End If
Next j
Next i
End Sub

Merci a tous, trop sympa...

Hello!

Merci pour ta reponse de l'autre jour...

Ta marcro marche bien.

Je cherche a appliquer cette macro dans la zone de la (ou des)colonne (s) que j'ai sélectionnées. Aurais tu la solution?

Merci d'avance :kiss: