Extraire valeur d'une cellule

Sub test()
    x = "$E$11-$E$39-"
    tAddr = Split(x, "-")
    For a = 0 To UBound(tAddr)
        If tAddr(a) <> "" Then
            adr = tAddr(a)
            'code de traitement de l'adresse cellule
            
        End If
    Next a
End Sub

Sub test()
    x = "$E$11-$E$39-"
    tAddr = Split(x, "-")
    Textbox1 = tAddr(0)
    Textbox2 = tAddr(1)
End Sub

Discussions similaires