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 !