Discussion :

[proto38]

Bonjour à tous,
je souhaite supprimer une ligne d'une feuille avec le code suivant qui est sur un formulaire :

Code :

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

1
2
Worksheets("TableauProvisoire").Rows(Indice.Value & ":" & Indice.Value).Select
Selection.Delete Shift:=xlUp

Ma feuillle "TableauProvisoire" existe bien et Indice.Value est la valeur d'un champ de texte présent sur mon formulaire.
J'ai adapté ce code en le copiant/collant à partir d'une macro.
J'ai le message d'erreur suivant :

'Erreur d'execution 1004'
La méthode Select de la classe Range a échoué

Débutant en VBA, j'ai du mal à comprendre ce qui ne va pas...

[SfJ5Rpw8]

bonjour,

les "Select", "Activate", "Selection" sont as proscrire des codes VBA...


as-tu placé la ligne :

Code :

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

Option Explicit

en haut de tous tes modules de codes ?

vérifie la valeur de ton Indice.Value

Code :

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

1
2
3
 
MsgBox Indice.value
Worksheets("TableauProvisoire").Rows(Indice.Value ).Delete Shift:=xlUp

[proto38]

Merci bbil pour ta réponse

IL manquait sur 2 ou 3 module un

Code :

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

OPtion Explicit

Je les ai rajouté.

Code :

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

MsgBox Indice.Value

renvoie bien une valeur.
Quand je code en "dur" :

Code :

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

Worksheets("TableauProvisoire").Rows("9:9").Select

cela ne fonctionne toujours pas, avec le même message d'erreur.

Par contre quand je place, avant :

Code :

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

Worksheets("TableauProvisoire").Activate

là ça marche....

J'ai un peu bidouiller dans mes feuilles : suppression de quelques une et copier/coller d'une feuille d'un autre classeur. Mais je n'ai pas touché à celle appelée dans mon code qui ne marche pas. Se pourrait-il que mes feuilles soient mal indexée ? Y a-t-il une autre méthode pour cibler une feuille ?

[mercatog]

Bonjour

As tu testé le code fourni par Bbil?

As tu lu la remarque de Bbil?

les "Select", "Activate", "Selection" sont as proscrire des codes VBA...

[gFZT82]

Bonjour,

Une explication complémentaire pour t’aider à comprendre pourquoi ça ne fonctionne pas.
Lorsque tu utilises la méthode Select sur une plage, tu dois savoir qu’elle agit sur la feuille active.
Tu dois donc décomposer le traitement en 3 temps

Code :

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

1
2
3
Worksheets("TableauProvisoire").Activate ‘Activation de la feuille
ActiveSheet. Rows(Indice.Value).Select ‘Sélection de la plage
Selection.Delete Shift:=xlUp ‘Action sur la plage sélectionnée

Si tu lances ta procédure alors que la feuille active n’est pas "TableauProvisoire", tu obtiens l’erreur d'exécution 1004.

L’autre méthode, plus rationnelle, consiste à effectuer autant que possible le traitement attendu (suppression d’une plage dans ton cas) sans utiliser la méthode Select.
C’est la méthode préconisée par bbil.

Code :

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

Worksheets("TableauProvisoire").Rows(Indice.Value ).Delete Shift:=xlUp

Cordialement.

[proto38]

j'ai lu trop vite la réponse de bbil ! je me suis arrêté à la ligne msgbox... et effectivement le code marche.
J'avais lu les mises en garde sur Activate, mais je voulais comprendre pourquoi cela marchait avec....

Merci pour vos remarques et explications très réactives !

Bien cordialement.