Discussion :

[victordaras]

Bonjour à tout le monde,

Je fais appel à vos connaissances et votre savoir pour tenter de débloquer mon problème.
Après de maintes recherches sur les forums, aides... je n'arrive pas toujours pas à résoudre ce problème.
Le but est de supprimer la ligne du tableur excel sur laquelle on trouve la même chaîne de caractère que la variable "name" (définie par la sélection dans la ListBox1).
Le problème est que l'on me revoit un message d'erreur 1004:La méthode Delete de la classe range a échoué... à la ligne:
Rows(w).Delete Shift:=xlUp
Le problème est le même pour la 2ème ligne de commentaire.
Peut-être que certaines fonctions ne sont pas utilisable en UserForm??
J'ai essayé dans un module et cette fonction marche très bien.
Je peux peut-être créer une routine dans un module est l'appeler à chaque fois. En revanche, la variable "w" n'est pas gardée en mémoire.
Quelqu'un saurait-il comment résoudre mon soucis. Voici-ci mon code:

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
Dim w As Integer
 
 
Private Sub ListBox1_Click()
 
name = ListBox1.Text
DernLigneOnd = range("A" & Rows.Count).End(xlUp).Row
 
For w = 2 To DernLigneOnd
    If Cells(w, 1) = name Then
        Rows(w).Delete Shift:=xlUp                        '--------------Donne une erreur 1004: La méthode Delete de la classe range à échoué      
 
         'Rows(w & ":" & w).Select
         'Selection.Delete Shift:=xlUp
    End If
                 '---------Mise à jour de la ListBox1
        DernLigneOnd = range("A" & Rows.Count).End(xlUp).Row
        ABBusf.ListBox1.RowSource = "A2:A" & DernLigneOnd
 
Next
 
End Sub

Je fais donc appel à vous, experts (ou utilisateurs) du forum, pour tenter de trouver une solution adéquate.
Merci d'avance.
Bien cordialement

[Jean-Philippe André]

Bonjour,

quand tu fais une suppression de ligne à la volée, mieux vaut commencer par "en bas"
essaie avec un code du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For w = DernLigneOnd To 2 Step -1
    If Cells(w, 1) = name Then
        Cells(w, 1).EntireRow.Delete Shift:=xlUp                        '--------------Donne une erreur 1004: La méthode Delete de la classe range à échoué      
 
 
    End If
                 '---------Mise à jour de la ListBox1
        DernLigneOnd = range("A" & Rows.Count).End(xlUp).Row
        ABBusf.ListBox1.RowSource = "A2:A" & DernLigneOnd
 
Next

[victordaras]

Bonjour Jean-Philippe,


Merci pour vos remarques, je les mettrai en application dans les cas futurs.
En revanche, j'ai utilisé votre code et cela ne résout pas le soucis de l'erreur 1004.

[Jean-Philippe André]

On peut simplifier en retirant le shift inutile ici :

Code :

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

Cells(w, 1).EntireRow.Delete

y a-t-il d'autres de ton code que tu ne nous aurais pas encore montrées ?

[victordaras]

Voici l'ensemble des éléments de cette UserForm, bien que, normalement, ces éléments n'interagissent absolument pas avec la partie précédemment montrée.

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
Dim feuille, marque, DernLigneOnd, name  As String
Dim fichiertravail, fichieronduleur, fichierprojet, fichierpanneaux As String
Dim i As Integer
Dim w As Integer
 
Private Sub UserForm_Initialize()
 
fichiertravail = "Fichier travail macro v2.xlsm"
fichierpanneaux = "Fichier panneaux PVSYST.xlsx"
fichieronduleur = "Fichier Ond PVSYST.xlsm"
fichierprojet = "Pré-étude calepinage Onduleur.xls"
 
DernLigneOnd = range("A" & Rows.Count).End(xlUp).Row
ListBox1.RowSource = "A2:A" & DernLigneOnd
 
End Sub

[Pierre Fauconnier]

Salut.

Comme le dit Jean-Philippe, tu aurais intérêt à commencer par le bas, sinon tu devras faire plusieurs passes si des lignes à supprimer se suivent.

Code :

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

Rows(w).Delete

devrait fonctionner sans soucis... Vérifie tout de même la valeur de W en cas d'erreur.

Ta feuille serait-elle verrouillée?

[victordaras]

Je vous remercie pour vos réponses rapides.

Salut.

Comme le dit Jean-Philippe, tu aurais intérêt à commencer par le bas, sinon tu devras faire plusieurs passes si des lignes à supprimer se suivent.

Complètement d'accord, merci, je ferai attention par la suite.

devrait fonctionner sans soucis... Vérifie tout de même la valeur de W en cas d'erreur.

Ta feuille serait-elle verrouillée?

Non, je peux écrire dedans comme je veux dès que la UserForm n'est pas activée.
Je ne comprend absolument pas pourquoi cela ne marche pas, j'ai essayé toutes les syntaxes possibles pour effacer la ligne, rien ne marche... (je suis en train de devenir fou!!)
J'ai déjà vérifié les valeurs de w sont correctes. J'ai tenté de faire "ShowModal = False" pour voir, mais c'est sans effet.
J'ai également vérifié si la supression d'une cellule est possible et cela me renvoie exactement le même message d'erreur. Sur une autre page également.

[Transitoire]

Bonjour, je crois que vous devriez vérifier la valeur de la variable name.
Vous pouvez d'ailleurs essayer en intercalant le MsgBox qui vous renseignera si la valeur name est bien reconnue et quelle est la valeur w.

Code :

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

1
2
3
4
For w = 2 To DernLigneOnd
    If Cells(w, 1) = name Then 
     Msgbox  name & "   "& w               
 Rows(w).Delete Shift:=xlUp                        '--------------Donne une erreur 1004: La méthode Delete de la classe range à échoué

Si le message box n'apparait pas c'est que vous avez un problème avec les valeurs de name . Un jour, j'avais eu des espaces qui s'étaient intercalés. C'était pas évident de les voir au premier coup d'oeil.
Cordialement

[Transitoire]

Re:
Oups, name est déclarée string dans un module code userform.
cette variable n'est-elle pas donc forcément private et donc son utilisation ailleurs, la trouve à "" ?
Cordialement

[Transitoire]

re
Essayez donc de déclarer Name dans un module normal au plus haut du module, en pensant à enlever name du module UF

Code :

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

Public name as string

et ainsi elle gardera sa valeur n'importe ou dans les codes. Enfin il me semble?
Cordialement

[Pierre Fauconnier]

Lorsque le usf est affiché, c'est bien une feuille de travail qui est active? (pas une feuille de graphique, par exemple...)

[victordaras]

Lorsque le usf est affiché, c'est bien une feuille de travail qui est active? (pas une feuille de graphique, par exemple...)

Tout à fait, je n'utilise jamais de feuille graphique.
Dans le pire des cas, j'ai trouvé une méthode en bricolant, qui me permet de remplir la fonctionnalité recherchée(j'écrie les numéros des lignes à supprimer dans une feuille, pour les utiliser une fois que la UserForm n'est plus active).

[Pierre Fauconnier]

Le usf actif n'est pas le problème, même si je n'aime pas traiter les données dans le code du userform... (Voir cette discussion, parmi d'autres).

As-tu essayé en préfixant Rows(w) du nom de la feuille?

Ceci dit, à 16h56, tu nous donnes "tout le code du usf" ... Or, il manque au moins le code du bouton. Pourrais-tu mettre vraiment tout le code?

[victordaras]

Le usf actif n'est pas le problème, même si je n'aime pas traiter les données dans le code du userform... (Voir cette discussion, parmi d'autres).

As-tu essayé en préfixant Rows(w) du nom de la feuille?

Oui, j'ai également ajouté le nom du Workbooks...

Ceci dit, à 16h56, tu nous donnes "tout le code du usf" ... Or, il manque au moins le code du bouton. Pourrais-tu mettre vraiment tout le code?

C'est vrai. Tu parle bien du bouton qui me permet d'ouvrir la UserForm nommée: "ABBusf"?
Parce que ma première UserForm comporte exactement les mêmes fonctions qui sont ci-dessous (juste que ABB et remplacé par d'autre chaîne de caractère)
Vous trouverez sans doute quelques remarques à faire sur le code, étant donné que s'en ai toujours au stade de test (j'ai commencé les UserForm aujourd'hui)...
D'ailleurs, je ne comprend pas pourquoi les CheckBox ne sont pas cochées quand la UserForm se lance, ainsi que l'utilité de l'avant-avant-dernière ligne du code.

code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 
Dim feuille, marque, DernLigneOnd, name, w  As String
Dim fichiertravail, fichieronduleur, fichierprojet, fichierpanneaux As String
Dim i As Integer
 
 
Private Sub Menu_Initialize()
 
DELTACheckBox = True
HUAWEICheckBox = True
KACOCheckBox = True
SMACheckBox = True
ABBCheckBox = True
SCHNEIDERCheckBox = True
PHOTOWATTCheckBox = True
Call déclaration
If DELTACheckBox = True And Workbooks(fichiertravail).Sheets("DELTA").Cells(2, 1) <> "" Then
    Sheets("DELTA").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
If HUAWEICheckBox = True And Workbooks(fichiertravail).Sheets("HUAWEI").Cells(2, 1) <> "" Then
    Sheets("HUAWEI").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
If KACOCheckBox = True And Workbooks(fichiertravail).Sheets("KACO").Cells(2, 1) <> "" Then
    Sheets("KACO").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
If SMACheckBox = True And Workbooks(fichiertravail).Sheets("SMA").Cells(2, 1) <> "" Then
    Sheets("SMA").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
If ABBCheckBox = True And Workbooks(fichiertravail).Sheets("ABB").Cells(2, 1) <> "" Then
    Sheets("ABB").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
If SCHNEIDERCheckBox = True And Workbooks(fichiertravail).Sheets("SCHNEIDER").Cells(2, 1) <> "" Then
    Sheets("SCHNEIDER").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
If PHOTOWATTCheckBox = True And Workbooks(fichiertravail).Sheets("PHOTOWATT").Cells(2, 1) <> "" Then
    Sheets("PHOTOWATT").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
 
fichiertravail = "Fichier travail macro v2.xlsm"
fichierpanneaux = "Fichier panneaux PVSYST.xlsx"
fichieronduleur = "Fichier Ond PVSYST.xlsm"
fichierprojet = "Pré-étude calepinage Onduleur.xls"
End Sub
 
Private Sub ABBCheckBox_Click()
Call déclaration
If ABBCheckBox.Value = False Then
    Workbooks(fichiertravail).Sheets("ABB").Delete
ElseIf ABBCheckBox.Value = True And Workbooks(fichieronduleur).Sheets("ABB").Cells(2, 1) <> "" Then
                                   '--------------Copie de la feuille d'origine
    Workbooks(fichieronduleur).Sheets("ABB").Copy After:=Workbooks(fichiertravail). _
    Sheets(Workbooks(fichiertravail).Sheets.Count)
End If
End Sub
Private Sub BoutonABB_Click()
marque = "ABB"
feuille = "ABBusf"
Workbooks(fichiertravail).Sheets("ABB").Select
Load VBA.UserForms.Add(feuille)                                                                                           '--------------Je ne comprend pas l'utilité de cette ligne...
VBA.UserForms.Add(feuille).Show                          '-------------C'est cette commande qui ouvre la deuxième UserForm
End Sub