shift cells up...

[babap1]

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) :

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 Sub

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

 

[Spitnolan08]

Re : shift cells up...

Bonjour,

Pas sur d'avoir bien compris la question...
Sinon, l'utilisation de l'enregistreur de macro te donne la solution

Sub Macro1()
    Range("A5:K5").Select
    Selection.Delete Shift:=xlUp
End Sub

à adapter à ton cas bien sûr...

Cordialement

 

[babap1]

Re : shift cells up...

Je pense que tu as biencompris ce que je veux faire mais j'ai un petit soucis :

Sheets("SNEC FR_CR").Range("A:K" & Ligne).Select
//ou alors
Sheets("SNEC FR_CR").Range("A"&Ligne:"K"&Ligne).Select
//mais ca ne fonctionne pas !
Selection.Delete Shift:=xlUp

Merci pour le coup de main parce que je suis un débutant en VB...
Qu'est ce que c'est que l'enregistreur de macro()?

Baptiste

 

[Spitnolan08]

Re : shift cells up...

Re,

Qu'est ce que c'est que l'enregistreur de macro()?

Outils/Macro/nouvelle macro : A utiliser sans modération quand on débute et même après...

Par ailleurs,

Sheets("SNEC FR_CR").Range("A" & Ligne & ":K" & Ligne).Select

Devrait mieux fonctionner.

Cordialement