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
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
A voir également:
- Macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Tri automatique excel sans macro ✓ - Forum Excel
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
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
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