Bonjour à tous,

En VB beaucoup de fonctions (méthodes) possèdent leurs fonctions inverses.
Comme par exemple les fonctions Split et Join.


Exemple de Join(Split(s,x),x)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test1()
    Dim chaine$, separateur$, obj
        chaine = "a/b/c"
        separateur = "/"
    obj = Join(Split(chaine, separateur), separateur)
    Debug.Print "-----"
    Debug.Print "chaine :":    Debug.Print TypeName(chaine):    Debug.Print chaine
    Debug.Print "obj :":    Debug.Print TypeName(obj):    Debug.Print obj
End Sub
Ma question :
J'aimerais savoir s'il existe l'inverse de : rg.cells(x) avec rg une variable de type Range qui comporte plusieurs cellules et x un entier ?

Exemple de rg.cells(x) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test2()
    Dim rg As Range, i&
        Set rg = ActiveSheet.Range("A1:B2")
        For i = 1 To rg.Cells.Count
            Debug.Print rg.Cells(i).Address
        Next i
fin:
    Set rg = Nothing
End Sub
Ce que j'aimerais faire si c'est possible :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test3()
    Dim rg As Range, cellule As Range
        Set rg = ActiveSheet.Range("A1:B2")
        Set cellule = ActiveSheet.Range("B1")
        'Comment trouver x tel que rg.cells(x) soit la variable cellule ?
fin:
    Set rg = Nothing
    Set cellule = Nothing
End Sub

Merci d’avance pour vos réponses.