Macro
Soleil
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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 ! :-)
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:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
1 réponse
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
cdlt
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
