Macro - Decallage de colonne
Fermé
Nicolas
-
30 mars 2015 à 18:39
PHILOU10120 Messages postés 6393 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 9 octobre 2024 - 30 mars 2015 à 19:03
PHILOU10120 Messages postés 6393 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 9 octobre 2024 - 30 mars 2015 à 19:03
A voir également:
- Macro - Decallage de colonne
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Trier colonne excel - Guide
- Colonne word - Guide
1 réponse
PHILOU10120
Messages postés
6393
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
9 octobre 2024
810
30 mars 2015 à 19:03
30 mars 2015 à 19:03
Bonjour
Vous pouvez donner un nom à la cellule O10 par exemple: ANCRE1
Sheets("sauvegarde").Select
ActiveSheet.Unprotect
Sheets("record").Select
Range("O10:O64").Select
Selection.Copy
Sheets("sauvegarde").Select
Application.Goto Reference:="ANCRE1"
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sauvegarde").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("record").Select
...
Si les colonnes sont renseignées le curseur se déplace jusqu'à la dernière cellule et décale d'une cellule vers la droite
Vous pouvez donner un nom à la cellule O10 par exemple: ANCRE1
Sheets("sauvegarde").Select
ActiveSheet.Unprotect
Sheets("record").Select
Range("O10:O64").Select
Selection.Copy
Sheets("sauvegarde").Select
Application.Goto Reference:="ANCRE1"
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sauvegarde").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("record").Select
...
Si les colonnes sont renseignées le curseur se déplace jusqu'à la dernière cellule et décale d'une cellule vers la droite