1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Selection.Copy <<< JE SUIS POSITIONNE SUR LA 1E CELLULE ET JE LA COPIE
ActiveCell.Offset(0, 1).Range("A1").Select <<< JE ME DEPLACE VERS LA
DROITE MAIS CE A1 DANS LA MACRO M'ENERVE
Selection.End(xlDown).Select <<< JE SAUTE DANS LA 2E COL. SUR LA 1E LIGNE
Range(Selection, Selection.End(xlDown)).Select <<< J'IDENTIFIE LE NB DE
LIGNE CONCERNEES
Range(Selection, Selection.End(xlToLeft)).Select <<< JE ME DEPLACE A
GAUCHE TOUT EN MAINTENANT LA SELECTION
ActiveCell.Offset(0, -1).Range("A1:A5").Select <<< L'ENDROIT OU JE VAIS
COPIER MA FORMULE; LE A1:A5 M'ENERVE PUISQUE LA GRANDEUR DE LA ZONE VA ETRE
CHANGEANTE ; LA MACRO SE BLOQUE DE TOUTE FACON ICI
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False <<< COPIER LA CELLULE
>>> ENSUITE J'AI DES LIGNES DE DEPLACEMENT DANS LE TABLEAU QUI 1) SUPPRIME LA LIGNE CELLULE ET SE POSITIONNE SUR LA SUIVANTE
ActiveCell.Select
Application.CutCopyMode = False
Selection.End(xlUp).Select
ActiveCell.Range("A1:F1").Select
Selection.ClearContents
ActiveCell.Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select |
Partager