VBA offset

Macfa · 12 Novembre 2010

Bonjour,

Je fais une mise à jour, par rapport au dates, de mes données avec une fonction Vlookup dans VBA, et certaines données n'existent pas dans ma source.

Je souhaiterais remplacer les données non existantes (#N/A) par la donnée de la date précédente.

Est ce que une fonction VBA, type offset ou autre pourrait s'appliquer à une Range type Range ("B1:B100") et remplacer les données #N/A, par la valeur de la date précédente.

Merci pour votre aide.

En pièce joint un exemple.

Softmama · 12 Novembre 2010

Re : VBA offset

Bonjour,

Peut-être comme ceci :

Code:

Sub Macro2()
On Error Resume Next
Dim c As Range
    Set c = Range("B:C").Find("#N/A")
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            c = c(2, 1)
            Set c = Range("B:C").FindNext(c)
            If Not c Is Nothing Then c = c(2, 1)
        Loop While Not c Is Nothing Or c.Address <> Adr
        Macro2
    Else
        Exit Sub
    End If
End Sub

Macfa · 12 Novembre 2010

Re : VBA offset

Bonjour Softmama,
Oui c'est bien ça.
Tout roule.
Merci!
Macfa

VBA offset

Macfa

Guest

Pièces jointes

Softmama

XLDnaute Accro

Macfa

Guest

Discussions similaires

VBA offset

Macfa

Guest

Pièces jointes

Softmama

XLDnaute Accro

Macfa

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency