A
Alain83
Guest
Bonjour,
j'ai de grosses difficultés à faire fonctionner ma macro.
Je voudrais qu'elle cherche la valeur 1 dans une partie de colonne de la feuille active (où se trouve le bouton).
Une fois cette valeur trouvée, qu'elle copie 4 valeurs contenues dans 4 cellules de la ligne où la valeur 1 a été trouvée dans la feuille Faron.
Voilà mon code qui compile mais ne produit rien.
Pouvez me dire où sont mes erreurs ?
Merci d'avance, Alain.
j'ai de grosses difficultés à faire fonctionner ma macro.
Je voudrais qu'elle cherche la valeur 1 dans une partie de colonne de la feuille active (où se trouve le bouton).
Une fois cette valeur trouvée, qu'elle copie 4 valeurs contenues dans 4 cellules de la ligne où la valeur 1 a été trouvée dans la feuille Faron.
Voilà mon code qui compile mais ne produit rien.
Pouvez me dire où sont mes erreurs ?
Merci d'avance, Alain.
Code:
Option Explicit
Const Parcours = 6
Const Col1 = 1
Const jour = 1
Const pds = 8
Const tps = 9
Const my = 10
Const dn = 11
...
Sub extrait_cotes()
'rappatrie les lignes où le Faron ou le Mt Caume sont chronométrés
Dim derniereligne As Integer
Dim i, j, k As Integer
Dim A, B, C, D As Variant
k = 0
j = 2
derniereligne = Application.InputBox("derniere ligne")
For i = 1 To derniereligne
If Cells(i, dn).Value = 370 Then
A = Cells(i, jour).Value
B = Cells(i, tps).Value
C = Cells(i, my).Value
D = Cells(i, pds).Value
With Sheets("Faron")
If .Cells(j, 1).Value = " " Then
.Cells(j, 1).Value = A
.Cells(j, 2).Value = B
.Cells(j, 3).Value = C
.Cells(j, 4).Value = D
j = j + 1
End If
End With
k = k + 1
End If
Next i
End Sub