Bonjour,
J'ai une petite question:
J'ai sur une feuille différentes données dans une même colonne, et je souhaiterais créer une variable qui a attribuerait un nom à chaque ligne non vide. Du genre toto(1)=ligne 1 ...
Sub toto_test()
Dim toto As String
Windows("Comparaison week.xls").Activate
Sheets("Sheet6").Select
Range("A2").Select
n = 0
Do While ActiveCell.Value <> ""
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
n = n + 1
Loop
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''resoudre le toto(i)''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 2 To 2 + n - 1
toto = Cells(A, "i")
Next i
Sheets("Sheet1").Select
Range("B10") = toto(2).Value
End SUB
En rouge les parties qui coincent.
Merci!!
NanZ
J'ai une petite question:
J'ai sur une feuille différentes données dans une même colonne, et je souhaiterais créer une variable qui a attribuerait un nom à chaque ligne non vide. Du genre toto(1)=ligne 1 ...
Sub toto_test()
Dim toto As String
Windows("Comparaison week.xls").Activate
Sheets("Sheet6").Select
Range("A2").Select
n = 0
Do While ActiveCell.Value <> ""
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
n = n + 1
Loop
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''resoudre le toto(i)''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 2 To 2 + n - 1
toto = Cells(A, "i")
Next i
Sheets("Sheet1").Select
Range("B10") = toto(2).Value
End SUB
En rouge les parties qui coincent.
Merci!!
NanZ