Discussion :

[antonysansh]

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.

[Invité]

Bonjour,
je suis désolé mais j'ai rien compris!

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 cellule = ActiveSheet.Range("A1")
        For i = 1 To cellule.Cells.Count
            Debug.Print cellule.Cells(i).Address
        Next i
fin:
    Set cellule = Nothing
End Sub

[antonysansh]

Je vais tenter une explication plus claire :

Range("A1:B2").Cells(2).Address renvoie bien "B1"

Moi j'aimerais l'inverse c'est à dire j'ai la plage A1:B2 et la cellule "B1" j'aimerais une méthode simple (peut être native en VB Excel) pour avoir le résultat 2.

[Invité]

le mieux ce de comparer!
note que je n'est pas mis en c3 par hasard!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set rg = ActiveSheet.Range("C3")
Debug.Print rg.Cells(5).Address
Debug.Print rg.Cells(1, 3).Address
Debug.Print rg.Range("AZ3").Address

[patricktoulon]

en natif je crois pas
mais l'operation est simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test()
Set plage = Range("A7:D20")
MsgBox Range("B15").Row - plage.Row
End Sub

et pareil pour la colonne

[patricktoulon]

a oui rdurupt a raison avec cells(X,"lettre de la colonne") ca match

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test2()
Set rg = ActiveSheet.Range("A7:D20")
Debug.Print rg.Cells(2, "c").Row
Debug.Print rg.Cells(2, "c").Column
End Sub

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function Indx(ByVal Plage As Range, ByVal Cellule As Range) As Long
 
Indx = Plage.Columns.Count * (Cellule.Row - Plage.Row) + Cellule.Column - Plage.Column + 1
End Function