Discussion :

[beebe]

Bonjour tout le monde!

J'aimerais simplifié le code suivant, qui marche mais super long et répétitif, je n'arrive pas à trouver la syntaxe qui va avec l'utilisation de ":" et "offset"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
With ActiveCell
 
.Offset(1, 1).Copy
.Offset(0, 1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
.Offset(1, 0).Copy
.PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
.Offset(1, -1).Copy
.Offset(0, -1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
 
End With

Merci...

[J.Michel]

Essaye ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For I = -1 To 1 Step 1
    ActiveCell.Offset(0, I) = ActiveCell.Offset(1, I)
Next I

[beebe]

merci, je pensais qu'on pouvait éviter la boucle et utilisé les ":", mais oui c'est bien mieux...
merci