désolé

[petchy]

bonjour
je suis vraiment désolé,mais avec tous les conseils que j'ai eu je n'arrive toujours pas à décaler les dates vers le haut,j'ai mis une piéce jointe avec les explications.

merci
petchy

 

[Mytå]

Salut Petchy et le forum

Modifie ta macro comme ceci

Private Sub Calendar1_Click()
Dim L As Integer
Static Tic
L = Sheets(1).Range("A65536").End(xlUp).Row
For i = L To 2 Step -1
Range("A" & i & ":" & "H" & i).Cut
Range("a" & i + 1).Select
ActiveSheet.Paste
Next i
Tic = Tic + 1
With Sheets(1)
.Range("A2") = Format(Calendar1, " DD/MM/YYYY")
End With
End Sub

Ca devrait aller pour le déplacement vers le bas

Mytå

 

[petchy]

bonjour myta et le forum
merci pour ta formule cela fontionne bien,mais quand je veut l'appliquer sur mon prog ça ne fonctionne pas"j'ai mis une des pages en piece jointe" en plus sur la colonne B il y a sur chaque cases des données de validation.

merci
petchy