Recherche et remplace

Bonjour à tous,

Je vous explique mon petit souci ( petit mais il m’embête pas mal )

J'ai une grande base de données numérique qui comporte des cellules vide parfois.

j'ai besoin d'une macro qui va chercher ces cellules ou c'est marqué "NULL" et les remplacer par la valeur de cellule de la ligne du haut ou du bas.

Toutes vos idées sont les bienvenues

Bonjour,

solution via une macro, lancer la macro via ALT-F8

Sub aargh()
    Set pl = ActiveSheet.UsedRange
    Set re = pl.Find("NULL", lookat:=xlPart, LookIn:=xlValues)
    If Not re Is Nothing Then
        fa = re.Address
        fini = False
        Do
            If re.Offset(1) <> "" And InStr(re.Offset(1).Value, "NULL") = 0 Then re.Value = re.Offset(1).Value Else re.Value = re.Offset(-1).Value
            Set re = pl.FindNext(re)
            If re Is Nothing Then
                fini = True
            ElseIf re.Address = fa Then
                fini = True
            End If
        Loop Until fini
    End If
End Sub

Bonjour,

Je l'ai testé sur ma base de donnée et elle fonctionne super bien.

Merci beaucoup