Récupérer l'adresse dans un tableau dynamique type Array

Bonjour,

Alors voila je bloque depuis pas mal de temps car je voudrais récupérer l'adresse de chacune de mes lignes pour pouvoir les extraires dans une autre feuille. je veux passer par un tableau () car j'ai beaucoup de données et celà permettrait de traiter ces dernières beaucoup plus rapidement.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub MonTableau()     Dim MyTab() As Variant Dim Mycell As Variant Dim SEC As Variant Dim Cellule As Variant Dim A as String   Worksheets("Feuil2").Range("A1").End(xlDown).Select f = Range("A" & Rows.Count).End(xlUp).Row   Mycell = Range("B1:B" & f)   MyTab = ActiveSheet.Range("B1:B" & f).Value   For Each Mycell In MyTab   SEC = Second(Mycell)   If SEC = 0 Then   Worksheets("Feuil2").Range("A" & i) = Mycell   i = i + 1   End If   A = Mycell.Address   Next Mycell       End Sub

---

J'ai une erreur sur le A = MyCell.Address..


Merci beaucoup !

Bonjour,

MyCell n'étant pas un range, il n'est pas possible d'en avoir l'adresse.

Ce code met dans un tableau la colonne B de Feuil1 et en recopie certaines données dans la colonne A de Feuil2. A adapter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub MonTableau() Dim MyTab() As Variant, i As Long, j As Long   Worksheets("Feuil1").Select i = Range("A" & Rows.Count).End(xlUp).Row MyTab = Range("B1:B" & i)   Worksheets("Feuil2").Select j = Range("A" & Rows.Count).End(xlUp).Row   For i = 2 To UBound(MyTab) '--- 2 si ligne de titres à ne pas utiliser If Format(MyTab(i, 1), "ss") = "00" Then j = j + 1 Debug.Print j, Format(MyTab(i, 1), "hh:nn:ss") Range("A" & j) = MyTab(i, 1) End If Next i End Sub

---

Rappel: un tableau (array) construit à partir d'une plage (range) a toujours 2 dimensions, la première correspondant au n° de ligne, la deuxième au n° de colonne (dans l'array, pas dans la feuille)).

Cordialement.

Bonjour,

Merci beaucoup pour votre aide, c'est effectivement beaucoup mieux de travailler avec les 2 dimensions du tableaux, cela me permet de sélectionner quelle colonne je veux extraire. Si jamais, voici le code que j'ai légèrement adapté, pour extraire l'ensemble des lignes qui correspondent si la condition "secondes =00:00" est validée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub MonTableau() Dim MyTab() As Variant, i As Long, j As Long   Worksheets("Feuil1").Select i = Range("A" & Rows.Count).End(xlUp).Row MyTab = Range("A1:H" & i)   Worksheets("Feuil2").Select ' j = Range("A" & Rows.Count).End(xlUp).Row j = 1 For i = 1 To UBound(MyTab) '--- 2 si ligne de titres à ne pas utiliser If Format(MyTab(i, 2), "ss") = "00" Then   Range("A" & j) = MyTab(i, 1) Range("B" & j) = MyTab(i, 2) Range("C" & j) = MyTab(i, 3) Range("D" & j) = MyTab(i, 4) Range("E" & j) = MyTab(i, 5) Range("F" & j) = MyTab(i, 6) Range("G" & j) = MyTab(i, 7) j = j + 1 Debug.Print j, Format(MyTab(i, 2), "hh:nn:ss")   End If Next i End Sub

---