bonjour le forum
voilà j'ai un classeur avec plusieurs onglets j'ai creer un bouton pour annuler des opérations grace à une reference unique renseigné par un inputbox voilà le code qui ne marche pas !!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub CB_1_Click()
'Déclaration des variables
Dim Ref As String
Dim l As Long
Dim sh As Worksheet
 
Do
Ref = InputBox(prompt:="Saisir la référence de l'opération à supprimer", Title:="Saisie")
Loop Until IsNumeric(Ref)
 
With sh
  Select Case "feuil1"
 
       Case "recap"
        Case Else
 
'Boucle de test pour evité les plantage en cas de saisie de lettre
 
 
'Boucle de suppression des lettres en partant du bas du tableau
'pour eviter les sauts si l'on part du début
'Ne nécessite pas un tableau trié
For l = Cells(65536, 3).End(xlUp).Row To 2 Step -1
    ' Test de la valeur en colone 3 pour suppression
    If Cells(l, 3).Value = (Ref) Then
        Rows(l).Select
        Selection.Delete (xlUp)
    End If
Next l
 
End Select
 
End With
End Sub
mon soucis c'est que le code ne marche pas ça bloque au niveau de "With"
l'objectif etant de chercher la reference dans les onglets du classeur sauf feuil1 et feuil2 (voir 2 autres onglets ) trouver cette reference et supprimer un selection cette macro supprime toute la ligne mais moi je veux supprimer seulement les cellules de la colonne A à la colonne Q et enfin le bouton annuler de l'inputbox ne fonctionne pas
à l'aide svp