Microsoft 365 Comment récupérer l'adresse d'une cellule dans une variable tableau ?

Sub Test()
Dim t, i&, AddrA$, AddrD$
   t = Range("a1").CurrentRegion
   For i = 1 To UBound(t)
      If t(i, 1) + t(i, 2) > t(i, 3) + t(i, 4) Then
         AddrA = "A" & i: AddrD = "D" & i
         MsgBox "Cellules  : " & AddrA & " : " & AddrD
         Exit Sub
      End If
   Next i
   MsgBox "Aucune ligne hors de la condition"
End Sub

Sub test()
Dim FD As Worksheet
    Set FD = Worksheets("Feuil1")
Dim TbAdr As Range
    Set TbAdr = FD.Range("F18:I" & FD.Range("F999999").End(xlUp).Row)
Dim TbBis() As Variant
    TbBis = TbAdr.Value
Dim Calc1 As Integer, Calc2 As Integer
'Teste si la somme des cellules des colonnes A + B et bien < à la somme des cellules des colonnes C + D
'Si ce n'est pas le cas, récupération de l'adresse - de la var tableau - de la cellule de la Col. A + n° de ligne
'et de l'adresse de la cellule de la col. D + n° de ligne
    For I = LBound(TbBis, 1) To UBound(TbBis, 1)
        Calc1 = TbBis(I, 1) + TbBis(I, 2)
        Calc2 = TbBis(I, 3) + TbBis(I, 4)
        If Calc1 > Calc2 Then
            CelTabDep = TbAdr(I, 1).Address: TbAdr(I, 1).Select
            CelTabArv = TbAdr(I, 2).Address: TbAdr(I, 2).Select
        Else
            CelTabDep = TbAdr(I, 3).Address: TbAdr(I, 3).Select
            CelTabArv = TbAdr(I, 4).Address: TbAdr(I, 4).Select
        End If
    Next I
    Erase TbBis
    Set TbAdr = Nothing
    Set FD = Nothing
    Calc1 = Empty: Calc2 = Empty
End Sub

Sub test()
Dim FD As Worksheet
    Set FD = Worksheets("Feuil1")
Dim TbAdr As Range
    Set TbAdr = FD.Range("F18:I" & FD.Range("F999999").End(xlUp).Row)
Dim TbBis(1 To 2) As Variant
        TbBis(1) = TbAdr.Value
    Set TbBis(2) = TbAdr
Dim Calc1 As Integer, Calc2 As Integer
' Libére la mémoire (Puisque cela est dans une variable tableau)
    Set TbAdr = Nothing
'Teste si la somme des cellules des colonnes A + B et bien < à la somme des cellules des colonnes C + D
'Si ce n'est pas le cas, récupération de l'adresse - de la var tableau - de la cellule de la Col. A + n° de ligne
'et de l'adresse de la cellule de la col. D + n° de ligne
    For I = LBound(TbBis, 1) To UBound(TbBis, 1)
        Calc1 = TbBis(1)(I, 1) + TbBis(1)(I, 2)
        Calc2 = TbBis(1)(I, 3) + TbBis(1)(I, 4)
        If Calc1 > Calc2 Then
            TbBis(2)(I, 1).Select: MsgBox TbBis(1)(I, 1)
            TbBis(2)(I, 2).Select: MsgBox TbBis(1)(I, 2)
        Else
            TbBis(2)(I, 3).Select: MsgBox TbBis(1)(I, 3)
            TbBis(2)(I, 4).Select: MsgBox TbBis(1)(I, 4)
        End If
    Next I
' Libére la mémoire
    Erase TbBis
    Set FD = Nothing
    Calc1 = Empty: Calc2 = Empty
End Sub

Sub Test()
Dim t, i&, n&, TabLigne(), s

   ' ----->  construction du tableau des lignes avec anomalie
   ReDim Preserve TabLigne(0 To 0)     ' on crée le tableau résultat à une dimension avec un indice commeçant à zéro
   t = Range("a1").CurrentRegion       ' lecture des valeurs
  
   For i = 1 To UBound(t)     ' boucle sur les lignes de t
      If t(i, 1) + t(i, 2) > t(i, 3) + t(i, 4) Then
         ' la condition d"sirée n'est pas vérifiée
         n = n + 1      'on incrémente le nombre de lignes concernées
         ' si n = 1, c'est le premier élément. On redimensionne le tableau résultat à un élément
         '        mais cette fois ci l'indice de base est 1
         ' si n > 1, Il y a déjà des éléments. On redimensionne le tableau résultat à n élément
         '        mais cette on garde l(indice de base 'et les valeurs déjà présentes)
         If n = 1 Then ReDim TabLigne(1 To 1) Else ReDim Preserve TabLigne(1 To n)
         TabLigne(UBound(TabLigne)) = i   'on rajoute la ligne au dernier élément deu tablreau qu'on vient de créé
      End If
   Next i

  
   'Exemple d'utilisation de Tabligne
   If LBound(TabLigne) = 0 Then
      ' si l'indice de base du tableau est 0, cela signifie qu'on y a mis aucun numéro de ligne
      MsgBox "Aucune ligne hors de la condition"
   Else
      ' si l'indice de base du tableau est 1, cela signifie qu'on y a mis au moins un numéro de ligne
      ' En tout, on y a même mis Ubound(TabLigne) numéros de lignes
      s = UBound(TabLigne) & " cellules concernées : " & vbLf
      For i = 1 To UBound(TabLigne)
         s = s & vbLf & Space(11) & Cells(TabLigne(i), "A").Address(0, 0) & " à " & Cells(TabLigne(i), "D").Address(0, 0)
      Next i
      MsgBox s
   End If
End Sub

Sub test()
Dim FD As Worksheet
    Set FD = Worksheets("Feuil1")
Dim TbBis(1 To 2) As Variant
        TbBis(1) = FD.Range("F18:I" & FD.Range("F999999").End(xlUp).Row).Value
    Set TbBis(2) = FD.Range("F18:I" & FD.Range("F999999").End(xlUp).Row)
    For i = LBound(TbBis(1), 1) To UBound(TbBis(1), 1)
        If TbBis(1)(i, 1) + TbBis(1)(i, 2) > TbBis(1)(i, 3) + TbBis(1)(i, 4) Then
            'TbBis(2)(i, 1).Select: MsgBox TbBis(1)(i, 1)
            'TbBis(2)(i, 2).Select: MsgBox TbBis(1)(i, 2)
            s = s & vbLf & Space(11) & TbBis(2)(i, 1).Address(0, 0) & " à " & TbBis(2)(i, 2).Address(0, 0)
        End If
    Next i
    MsgBox s
' Libére la mémoire
    Erase TbBis
    Set FD = Nothing
    Calc1 = Empty: Calc2 = Empty
End Sub