Bonjour,
j'ai une marco qui efface le contenu d'une ligne sur une feuille (SNEC FR_CR) et qui supprime la feuille associée (NomCRFR) :
Au lieu de la ligne : Sheets("SNEC FR_CR").Rows(Ligne).ClearContents, j'aimerai faire un Shif Cells Up de certaines colonnes(A -> K) associées à la 'Ligne' sélectionnée.
Merci de votre aide,
Baptiste
j'ai une marco qui efface le contenu d'une ligne sur une feuille (SNEC FR_CR) et qui supprime la feuille associée (NomCRFR) :
Code:
Sub DeleteCRFR()
'
' Macro modifiée le 15/10/2007 par Baptiste Dufourcq
'
Dim NomCRFR As String
Ligne = Selection.Row
NomCRFR = Range("B" & Ligne).Value
If Len(NomCRFR) = 0 Then Exit Sub
If MsgBox("Etes-vous certain de vouloir supprimer, " & vbCrLf & vbCrLf _
& " la feuille : " & NomCRFR, vbQuestion + vbYesNo, "ATTENTION ...") = vbYes Then
' Si on répond OUI, on supprime la feuille
Sheets(NomCRFR).Delete
Sheets("SNEC FR_CR").Rows(Ligne).ClearContents
End If
End SubAu lieu de la ligne : Sheets("SNEC FR_CR").Rows(Ligne).ClearContents, j'aimerai faire un Shif Cells Up de certaines colonnes(A -> K) associées à la 'Ligne' sélectionnée.
Merci de votre aide,
Baptiste