Bonjour,
J'ai créé une macro pour faire les choses suivantes :
- Je sélectionne la colonne B et je la copie dans la colonne A
- Ensuite, dans la colonne B, je retire 1 à toutes les valeurs
Actuellement, cela me fait ce principe sur les lignes 9 à 100.
J'aimerai modifier mon code pour que cela s'applique seulement aux cellules sélectionnées. Par exemple, je sélectionne les cellules B9 à B50, je lance la macro, mon code fonctionne seulement pour les lignes jusqu'à 50.
Voici mon code initial :
Merci d'avance,
CARDI
J'ai créé une macro pour faire les choses suivantes :
- Je sélectionne la colonne B et je la copie dans la colonne A
- Ensuite, dans la colonne B, je retire 1 à toutes les valeurs
Actuellement, cela me fait ce principe sur les lignes 9 à 100.
J'aimerai modifier mon code pour que cela s'applique seulement aux cellules sélectionnées. Par exemple, je sélectionne les cellules B9 à B50, je lance la macro, mon code fonctionne seulement pour les lignes jusqu'à 50.
Voici mon code initial :
VB:
Sub baisser1()
Columns("B:B").Select
Selection.Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B9").Select
Application.CutCopyMode = False
Range("B9").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-1"
Range("B9").Select
Selection.AutoFill Destination:=Range("B9:B100"), Type:=xlFillDefault
End Sub
Merci d'avance,
CARDI