salut Forum!
j'ai un petit code qui permet de supprimer le contenu d'une ligne puis décaler le contenu d'un tableau vers le haut.
J'essaie maintenant de juste pouvoir décaler le contenu du tableau vers le bas, à partir de la ligne active, sans pour autant effacer le contenu de la ligne active
toujours dans le tableau... j'imagine qu'en ce basant sur ce code on peut y arriver, apres plusieurs essaies je n'y arrive, surement un petit truc simple qui cloche comme d'habitude!
Sub Supprimer()
Dim T1, Ligne As Long
Sheets("Feuil1").Unprotect
Ligne = Selection.Row
If Ligne > 10 And Ligne < 44 Then
Range("A" & Ligne).Resize(1, 6).ClearContents
If Ligne < 43 Then
With Range(Range("A" & Ligne + 1), Range("F43"))
T1 = .Value
.ClearContents
End With
Range("A" & Ligne).Resize(UBound(T1), UBound(T1, 2)) = T1
End If
End If
Sheets("Feuil1").Protect
End Sub