Supprimer ligne active de colonne B à Z

Bonjour à tous

Ma demande est dans le titre

Je souhaite supprimer la ligne active mais seulement de la colonne B à la colonne Z

Je suis sur la piste mais ce n'est pas tout à fait cela....(je débute....

Range("B?:Z?").Select

Selection.Delete Shift:=xlUp

Salut le forum

Ta réponse est dans le message

With ActiveCell
    Range(Cells(.Row, "B"), Cells(.Row, "Z")).Delete Shift:=xlUp
End With

Mytå

Bonjour à tous,

Salut Mytå, test avec le "Flag" que tu m'a appris

Bon réveillon à tous

Claude.

Bonjour,

Non ça ne fonctionne pas j'ai essayé plein de trucs mais ça veut pas !!

Je souhaire une fois la fiche "appelée" via le combo, la supprimer de la feuille "base" et la déplacer dans la feuille "archives".(et seulement de la colonne B à E dans l'exemple

Fichier joint (désolé de la compression avec 7Zip , obligé pour moins de 120Ko

a+ j'espère et d'avance merci

Bonsoir,

Tu as du te tromper de fichier ou de poste !

rien à voir ici

Claude.

Ben non, le fichier est bon...........

Bonjour à tous,

Remplace le code de "ComboBox1_Change" par celui-ci :

Private Sub ComboBox1_Change()
Dim x As Long
    If ComboBox1.Value <> "" Then
        Sheets("Base").Activate
        N°dedossier = Cells(ComboBox1.ListIndex + 2, 2)
        Civilite = Cells(ComboBox1.ListIndex + 2, 3)
        Nom = Cells(ComboBox1.ListIndex + 2, 4)
        Prenom = Cells(ComboBox1.ListIndex + 2, 5)
        Cells.Find(what:=N°dedossier, lookat:=xlPart).Activate
    End If
End Sub

Et le code de "CommandButton6_Click" par celui-ci :

Private Sub CommandButton6_Click()
    rep = MsgBox("Etes vous sûr de vouloir supprimer la fiche?", vbYesNo)
    If rep = vbNo Then Exit Sub
    With Sheets("Base").Range("B2:B" & [B65536].End(xlUp).Row)
        Set c = .Find(N°dedossier, lookat:=xlPart)
        If Not c Is Nothing Then
            c.Select
            With ActiveCell
                ComboBox1.Value = ""
                Range(Cells(.Row, "B"), Cells(.Row, "E")).Delete Shift:=xlUp
            End With
        End If
    End With

    num = Sheets("Archives").Range("C65536").End(xlUp).Row + 1

    Sheets("Archives").Activate
    Range("B" & num).Value = N°dedossier
    Range("C" & num).Value = Civilite
    Range("D" & num).Value = Nom
    Range("E" & num).Value = Prenom
End Sub

merci cela fonctionne...Bonne année à tous,

a+