Discussion :

[sylvestre09]

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

[tedo01]

Bonjour,
C'est logique que le [With sh] ne donne rien, sh n'est pas initialisé et ne pointe donc sur aucune feuille.
Il faut d'abord initialiser cette variable avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set sh = ...

[sylvestre09]

Bonjour miss, merci pour ta reponse !! j'ai ajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set sh = ThisWorkbook.Worksheets
 
 
With sh
  Select Case "feuil1"
 
       Case "recap"
        Case Else

mais ca ne fonctionne toujours pas !! erreur 13 incompatibilité de type !

[gFZT82]

Bonjour,

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
Private Sub CB_1_Click()
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) Or Ref = ""
    'Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("").
    If Ref <> "" Then
        For Each Sh In Worksheets
            If Sh.Name <> "feuil1" And Sh.Name <> "recap" Then
                With Sh
                    For l = .Cells(65536, 3).End(xlUp).Row To 2 Step -1
                        If .Cells(l, 3).Value = Ref Then
                            .Range(.Cells(l, "A"), .Cells(l, "Q")).Delete (xlUp)
                        End If
                    Next l
                End With
            End If
        Next Sh
    End If
End Sub

Cordialement.

[casefayere]

regardes ce début de code et les commentaires, copies le ou il faut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'.....
For Each Sh In Worksheets
  If Sh.Name <> "Feuil1" And Sh.Name <> "Feuil2" Then
    With Sh
      Dl = .Range("E" & .Rows.Count).End(xlUp).Row 'c'est bien la colonne E ?
      tboriginal = .Range("A3:Q" & Dl) 'c'est bien de A à Q ?
      choix = Application.WorksheetFunction.CountIf(.Range("E3:E" & Dl), ">" & laDate) 'verifies la variable "laDate"
      MsgBox choix 'pour vérifier la valeur de "choix"
      If choix > 0 Then
'......

[sylvestre09]

à ce niveau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tbresult(y, x) = .Cells(L, x)

ca bloque toujours erreur d'execution '9' l'indice n'appartient pas à la selection !!

[casefayere]

je suis en panne d'ordi, là je suis sur un autre, je ne pourrai plus répondre avant ce soir, en attendant, que donne le résultat de la msgbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
choix = Application.WorksheetFunction.CountIf(.Range("E3:E" & Dl), ">" & laDate) 'verifies la variable "laDate"
      MsgBox choix

si tu ne me dis rien, je ne pourai pas deviner

[sylvestre09]

slt Dom ca me donne le numero de la ligne de la premiere cellule ou la date est antèrieure à la date d'aujourd'hui "6" je te joint un fichier exemple ( tu m'a deja aidé sur ce projet je suppose que comprendra mieux)

[casefayere]

je répète :

je suis en panne d'ordi, là je suis sur un autre

donc pas question de regarder ton fichier mais tu dis

ca me donne le numero de la ligne de la premiere cellule ou la date est antèrieure à la date

non ça te donne logiquement le nombre de lignes où la date en E est supérieure à aujourd'hui.

je ne pourrais voir ton fichier que ce soir, après 18 H, chez moi, sur la ligne qui plante, survoles avec ta souris pour voir les valeurs de y et x