Re : Cocher une case automatiquement selon une valeur d'une cellule
j'ai ecris une nouvelle fonction et ca fonctionne qu'es ce que je peux ajouter pour que je sois directement dirigé a la feuil 1 apres l'appui sur le bouton
Dim i As Integer
i = 5
Dim s As Integer
s = ActiveCell.Row
While Worksheets(2).Cells(i, 2) <> Empty
i = i + 1
Wend
Dim k As Integer
For k = 2 To 10
Worksheets(2).Cells(i, k) = Worksheets(1).Cells(s, k)
Next k
Worksheets(2).Cells(i, 11) = Worksheets(1).Cells(s, 11)
End Sub