Erreur 1004 dans la saisie de données

**gds35** · 10/03/2009, 16h44

Mes AMIS DU Forum bonsoir ,

Je me heurte depuis 2 jours à une erreur d'execution1004 La méthode Range de l'objet global a échoué dans ce bout de 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
Private Sub VALIDFORANC_Click()
MsgBox (Ligne)
Range("P" & Ligne) = NBREPAS.Value
Range("Q" & Ligne) = MTF60.Value
Range("R" & Ligne) = MTF45.Value
Range("S" & Ligne) = NBFAUT.Value
Range("T" & Ligne) = NBFDOM.Value
Range("U" & Ligne) = NBFETR.Value
Range("V38") = MTAUT.Value
Range("V39") = MTDOM.Value
Range("V40") = MTETR.Value
Range("V" & Ligne) = TEXTOBS.Value
FORFAITS.Hide
DPLAUTRE.Show

(Si je supprime le chargement , pas d'erreur )
End Sub

D'ou cela peut il provenir ????
Merci de votre AIDE; Cordialement GDS35

**Godzestla** · 10/03/2009, 16h50

Bonjour,

De plus tu ne dis pas sur quelle instruction ton code s'arrête.

A part cela, ta variable ligne ne semble pas initialisée.

Invité · 10/03/2009, 17h08

Bonjour,

Comme le dis Godzestla votre variable "Ligne" ne semble pas initialisée du moins dans cette procédure.

J'ai tendance à penser qu'elle l'est mais dans une autre procédure et peut-être une procédure attachée à un autre formulaire.

Si c'est le cas, votre variable doit être déclarée dans un module :

Code :

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

Public Ligne&

**gds35** · 10/03/2009, 17h13

re Bonjour ,

Ma variable est initialisée dans ce module

Code :

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

1
2
3
4
5
6
7
' MODULE VARIABLESPUBLIC
'
Option Explicit
Public Lig As Long
Public Ligne As Long
Public i As Long
Public j As Long

Et mon code plante toujours lorsque je demande le chargement de l'USF
AUTDPL mais aussi avec n'impote quel autres USF

**Godzestla** · 10/03/2009, 17h18

Re,
juste une idée au vu de ceci.

Code :

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

1
2
3
 
FORFAITS.Hide
DPLAUTRE.Show

et de ceci

Et mon code plante toujours lorsque je demande le chargement de l'USF
AUTDPL mais aussi avec n'impote quel autres USF

Je pense que le .hide pourrait être la cause du problème qui empêche l'affichage du userform nouveau (mode modal).

Remplace ton

Code :

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

FORFAITS.Hide

par

Code :

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

Unload FORFAITS

et dit si cela fonctionne.

Evidement, les variables du userform FORFAITS ne seront plus disponibles. !!!

**gds35** · 10/03/2009, 17h24

re Salut
Malgré Unload au lieu de Hide même PB; Comprends pas

**Godzestla** · 11/03/2009, 08h53

Bon,
je pense que tu n'en dit pas assez.
pas facile de répondre vu que tu ne montres q'une partie du code.

As-tu pris en debug et vérifié que cela bloque bien sur le .show et pas plutot sur une instruction du .initialize ?

Donc merci de confirmer l'instruction qui donne l'erreur en passant en mode debug lors de la plante.
Ensuite, préciser où le code se trouve (userform, module, thisworkbook, ...) etc, etc....