Suppression d'une ligne en VBA

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

Code:

---

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...

bonjour,

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


as-tu placé la ligne :

Code:

---

Option Explicit

---

en haut de tous tes modules de codes ?

vérifie la valeur de ton Indice.Value

Code:

---

1 2 3

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

---

Merci bbil pour ta réponse

IL manquait sur 2 ou 3 module un

Code:

---

OPtion Explicit

---

Je les ai rajouté.

Code:

---

MsgBox Indice.Value

---

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

Code:

---

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:

---

Worksheets("TableauProvisoire").Activate

---

là ça marche.... 8O

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 ?

Bonjour

As tu testé le code fourni par Bbil?

As tu lu la remarque de Bbil?

Citation:

---

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

---

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:

---

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:

---

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

---

Cordialement.

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.