A voir également:
- Incrémenter par macro la date d'une cellule sélectionnée,
- Aller à la ligne dans une cellule excel - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Verrouiller cellule excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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
16 mai 2016 à 06:15
16 mai 2016 à 06:15
Bonjour
Remplacez les valeurs des du tableau
Cdlt
Remplacez les valeurs des du tableau
Sub Incremente()
Application.ScreenUpdating = False
LbG = 2 'Limite bord gauche du tableau
LbD = 20 'Limite bord droit du tableau
LbH = 2 'Limite bord Haut du tableau
LbB = 20 'Limite bord gauche du tableau
'Si la cellule activeest en dehors des limites du tableau, alors on quitte le programme
If ActiveCell.Row < LbH Or ActiveCell.Row > LbB Or ActiveCell.Column < LbG Or ActiveCell.Column > LbD Then Exit Sub
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Sub Decremente()
Application.ScreenUpdating = False
LbG = 2 'Limite bord gauche du tableau
LbD = 20 'Limite bord droit du tableau
LbH = 2 'Limite bord Haut du tableau
LbB = 20 'Limite bord gauche du tableau
'Si la cellule activeest en dehors des limites du tableau, alors on quitte le programme
If ActiveCell.Row < LbH Or ActiveCell.Row > LbB Or ActiveCell.Column < LbG Or ActiveCell.Column > LbD Then Exit Sub
ActiveCell.Value = ActiveCell.Value - 1
End Sub
Cdlt
16 mai 2016 à 16:36
Déjà merci beaucoup d'avoir pris le temps de répondre et si vite.
En plus je n'avais pas pensé à donner des limites d'action à la macro, ça sera très utile
Je teste tout ça de suite
Cordialement