macro et worksheets

[Alain83]

Bonjour,

j'essaie vainement de faire fonctionner une macro.

Je souhaite qu'elle cherche une valeur dans la feuille active,
qu'elle copie les valeurs de 4 des cellules de la ligne où cette valeur a été trouvé dans la feuille Faron de ce même fichier.

Pouvez vous corriger mon script.
Merci de votre aide.

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

Bonjour,

il est préférable de rester sur le même fil, plus facile à suivre pour tout le monde...https://www.excel-downloads.com/threads/macro-et-worksheets.168124/

bonne soirée
@+

 

[Alain83]

Re : macro et worksheets

Je m'excuse.
J'ai posté 2 fois le même, comment supprimer celui-ci ?

 

[Pierrot93]

Re : macro et worksheets

Re,

tu ne peux pas le supprimer, seuls les modérateurs le peuvent... je vais mettre un lien également sur l'autre fil, cela évitera les confusions....

 

[Alain83]

Re : macro et worksheets

bonjour,

j'ai posté deux fois le même message, du coup je n'ai eu aucune réponse et je ne sais plus moi non plus, sur lequel poser ma question. Celui là me semble le plus approprié, merci Staple1600.