Objlist non définie ????

[AKSooL]

Voici un bout de mon programme ,il me renvoit toujours a Nothing

Dim objList As ListObject
Dim objListRng As Range
Dim MaLigne As Variant

...

Set objList = Worksheets("Base de données").ListObjects(1)
Set objListRng = objList.InsertRowRange
MaLigne = objListRng.Row

With Worksheets("Base de données")
.Cells(MaLigne, 1) = strNomEmploye
.Cells(MaLigne, 2) = daSemaine
.Cells(MaLigne, 3) = strJourSemaine
.Cells(MaLigne, 4) = daDate
.Cells(MaLigne, 5) = strTypeException
.Cells(MaLigne, 6) = varTempsException
.Cells(MaLigne, 7) = strRaison
.Cells(MaLigne, 8) = strRemarques
.Cells(MaLigne, 9) = daEntreeException
End With

Et donc Maligne = toujours vide ( depuis que je suis passé sous office 2007 ) ca marchait avant

Merci de m aider

 

[AKSooL]

Re : Objlist non définie ????

pas d'avis la dessus ?

 

[JNP]

Re : Objlist non définie ????

Bonsoir AKSool ,
Je n'ai jamais utilisé de ListObject, mais dans l'aide, il est spécifié

Remarques
Si l'option Insérer une ligne n'est pas visible, car la liste (liste : ensemble de lignes contenant des données similaires ou une série de lignes que vous définissez de sorte qu'elles fonctionnent comme une feuille de données à l'aide de la commande Créer une liste.) est inactive, l'objet Nothing est renvoyé.

Peut-être faut-il chercher de ce côté là avec un

MsgBox objList.Active

Bonne soirée

 

[AKSooL]

Re : Objlist non définie ????

en fait c est le objListRng qui donne nothing

je suis perdu

 

[JNP]

Re : Objlist non définie ????

Re ,
J'ai mal copier l'aide ...
C'est bien InsertRowRange qui renvoie Nothing si la liste n'est pas active, ce qui semble être ton cas.
As-tu essayé le MsgBox pour savoir si ta liste était active ?
A +

 

[AKSooL]

Re : Objlist non définie ????

j ai essayé le mesg box, et la liste est bien active

ce qui est bizarre, c est que j ai cela uniquement depuis que je suis passé de excel 2003 a 2007

 

[AKSooL]

Re : Objlist non définie ????

regarde la piece jointe

bloc non defini , et maligne = vide

 

[JNP]

Re : Objlist non définie ????

Re ,
Tu ne pourrais pas mettre un fichier test, en remplaçant les données par du faux texte ?
A +

 

[AKSooL]

Re : Objlist non définie ????

voici un fichier test

il y en a 2 , mais il faut ouvrir le v2 en premier

 

[JNP]

Re : Objlist non définie ????

Re ,
Tu ne peux pas simplifier un peu plus, en ne laissant que la partie qui t'intéresse, car là, c'est un peu usine à gaz ...
J'ai testé, et effectivement, ça me donne le message d'erreur, mais, il y a une chose que je ne comprends pas... Le gestionnaire de nom est grisé pour augmenter la taille de ta zone nommée, donc effectivement, ça parait normal que ça plante. Par contre, j'ai pas réussi à décoincer ta zone nommée. Si je fait un nouveau tableau, ma zone de nom peut être modifiée ...
A +

 

[JNP]

Re : Objlist non définie ????

Re ,
Je pense avoir trouvé l'erreur .
Contrairement aux versions antérieures, 2007 augmente de lui-même le tableau dès que tu rentres des données en-dessous de la dernière ligne du tableau (il te met même les formules si elles sont constantes dans la colonne).
Du coup, vu que l'instruction qui plante te sert juste (si j'ai compris ton usine à gaz) à déterminer la ligne sur laquelle rajouter tes données, essaie ce code, ça devrait fonctionner

Sub test()
Dim objList As ListObject
Dim MaLigne As Variant
           Set objList = Worksheets("Base de données").ListObjects(1)
           MaLigne = objList.ListRows.Count + 2
End Sub

A +

 

[AKSooL]

Re : Objlist non définie ????

En tout cas , ca marche
merci , mais merci beaucoup

(malgré le code complexe et lourd , j avoue, lol )

MERCI

 

[JNP]

Re : Objlist non définie ????

Re ,

(malgré le code complexe et lourd , j avoue, lol )

Désolé, je ne fais pas dans la dentelle ...
Ça n'empêche que pour ma curiosité intellectuelle, je me demandais bien à quoi pouvait servir InsertRowRange sous 2007 ...
Si quelqu'un à la réponse, je suis preneur
Et bien, à en croire msdn, rien ...
Voir cette FAQ .
Tu pouvais chercher longtemps ...
Bonne soirée

 

[AKSooL]

Re : Objlist non définie ????

j ai cherché longtemps oui sous 2007

mais sous 2003 tout marchait bien

je viens de lire la FAQ, si j avais trouvé cela avant , mais rien trouvé , j ai du pas assez cherché , heureusement qu il y a une communauté qui s entraide


merci encore