Macro

Fermé
Soleil - 2 mai 2013 à 09:52
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 8 mai 2013 à 03:28
Bonjour tout le monde :-)

Voici mon problème. Sur feuil 1 j'ai des chiffres de B2 à B52.

Sur feuil 2 sur la cellule B5 est-il possible de faire une macro qui lorsque je clique une fois me mette le résultat de B2 de la feuil 1, ensuite je reclique B3, ensuite je reclique B4 jusqu'à B52 ?

Merci à tout ceux qui se pencheront sur ma question existentielle ! :-)

A voir également:

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 mai 2013 à 03:28
Bonjour
Colle ce code dans le module de la feuille 1 (pas dans un module classique)

j'utilise la cellule B4 de la feuille1 pour mémoriser la ligne sélectionnée dans la feuille 2, si tu l'utilises déjà, tu en choisis une autre, mais n'oublis pas de remplacer tous les B4 par la cellule de ton choix


Sub Worksheet_SelectionChange(ByVal sel As Range)
    If ActiveCell.Address <> "$B$5" Then Exit Sub
    If Range("B4").Value >= 52 Or Range("B4").Value < 1 Or Range("B4").Value = "" Or Not IsNumeric(Range("B4")) Then Range("B4").Value = 1
    selectionPrecedente = sel.Offset(-1, 0).Value
    sel.Value = Sheets(2).Cells(selectionPrecedente + 1, 2)
    Range("B4").Select
    Selection.Value = Sheets(2).Cells(selectionPrecedente + 1, 2).Row
End Sub


cdlt
-1