Bonsoir à tous ,
Une autre macro. Cliquez sur le bouton Hop !
nota : J'ai pris comme hypothèse qu'il n'y avait aucune donnée sous la plage considérée. Si ce n'est pas le cas, veuillez joindre un fichier représentatif svp.
Le code agit sur la feuille de calcul active et il se trouve dans module1 :
Sub Hop()
Dim colA, colB, derlig&
If Trim([a3]) = "" Or Trim([a4]) = "" Then MsgBox "Les deux bornes doivent être indiquées !", vbCritical: Exit Sub
colA = 2 + Application.IfError(Application.Match([a3], Range("c3").Resize(, Columns.Count - 2), 0), 0)
colB = 2 + Application.IfError(Application.Match([a4], Range("c3").Resize(, Columns.Count - 2), 0), 0)
If colA < 3 Then MsgBox [a3] & " : Non trouvé -> abandon !", vbCritical: Exit Sub
If colB < 3 Then MsgBox [a4] & " : Non trouvé -> abandon !", vbCritical: Exit Sub
derlig = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
Range(Cells(4, colA), Cells(derlig, colB)).ClearContents
End Sub