Discussion :

[mancol13091]

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 :

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

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 !

[EricDgn]

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 :

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

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.

[mancol13091]

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 :

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

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