Comment remplir des cellules vides ?

bonjour,

svp comment faire pour remplir les colonnes vides par un texte "None" avec un code vba et juste sur la premiere colonne?

et merci

Bonjour,

Essaie avec

Sub Test()
Dim Cel As Range
    For Each Cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If Cel = "" Then Cel = "None"
    Next Cel
End Sub

Cordialement.

Merci beaucoup ça marche très bien

Ma deuxième question : je souhaite un code VBA pour masquer les doublons voici le nouveau Excel

Bonjour,

Une précision : Masquer ou supprimer les doublons ?

Cdlt.

Supprimer

Bonsoir,

Essai cette macro ...

Sub Test()
    Application.DisplayAlerts = False
    With Worksheets("Feuil1")
        .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
    End With
    Application.DisplayAlerts = True
End Sub

Cordialement.

Bonjour,

Les données sont sous forme de tableau et le fichier enregistré en xlsx (Excel 2007+).

Cdlt.

Public Sub RemoveDuplicates()
Dim lo As ListObject
    With ActiveSheet.ListObjects(1)
        .Range.RemoveDuplicates Columns:=1, Header:=xlYes
    End With
End Sub