macro et worksheets

[Alain83]

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.

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

 

[Pierrot93]

Re : macro et worksheets

Re,

double post, voir lien ci-dessous :
https://www.excel-downloads.com/threads/macro-et-worksheets.168126/

 

[Alain83]

Re : macro et worksheets

Bonjour,
pas beaucoup d'aide. Y aurait il quelqu'un qui puisse me corriger pendant cette période estivale ?

Merci de votre aide.

 

[Staple1600]

Re : macro et worksheets

Bonjour

Bonjour,
Y aurait il quelqu'un qui puisse me corriger pendant cette période estivale ?

Tu as une préférence pour le martinet ou la trique ?

PS: c'est censé être de l'humour (je précise au cas où 😉 )

PS2: re Pierrot93