Discussion :

[dylan.pascal]

Bonjour,

Je me permets de poster ce message car je n'arrive pas trouver l'erreur dans mon code.

Le voici :

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
With Worksheets("Etat - Data")
        LigneCourante = 9
        Do While .Cells(LigneCourante, 1).Value <> ""
 
            If AncienNom = "" Then
 
                'Initialisation des variables
                LigneDebut = LigneCourante
                AncienNom = .Cells(LigneCourante, 1).Value
 
            End If
 
            ' Si les informations ont changé : calcul de la ligne fin
            NouveauNom = .Cells(LigneCourante, 1).Value
            If NouveauNom <> AncienNom Then
 
                LigneFin = LigneCourante - 1
                DonneesACumuler = True
                AlimenteFeuille AncienNom, LigneDebut, LigneFin, DonneesACumuler
                LigneDebut = LigneFin + 1
 
                LigneFin = LigneCourante
                AncienNom = NouveauNom
            End If
 
            ' Passage à la ligne suivante
            LigneCourante = LigneCourante + 1
 
        Loop
 
    End With

Je vous poste le morceau de code où je pense que ce trouve l'erreur car mon programme est assez long. En effet lorsque je lance le programme l'erreur suivante apparaît:
"Variable objet ou Variable de bloc With non définie"

Pouvez-vous m'aidez ? Merci de votre compréhension

[Kimy_Ire]

Bonjour dylan.pascal,

Cette partie de ton code est bon.
Où se situe l'erreur ?

Attention (je ne connais pas le fonctionnel... mais...)

Code :

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

AncienNom = NouveauNom = .Cells(LigneCourante, 1).Value

Cordialement,
Kimy

[dylan.pascal]

Eh bien je ne sais pas où se situe l'erreur car l’éditeur ne me renvoie à aucune ligne. A part le message "Erreur d’exécution 91";

[pgz]

Bonsoir

Eh bien je ne sais pas où se situe l'erreur car l’éditeur ne me renvoie à aucune ligne. A part le message "Erreur d’exécution 91";

Hors exécution, as-tu une erreur en debogage ?

Quand le message d'erreur s'affiche tu as habituellement un bouton pour ouvrir le debogueur, et voir la ligne qui pose pb.
Cela pourrait être une utilisation d'une variable objet vide. Variable objet déclarée mais pas initialisée.

Tu peux aussi consulter : Variable objet ou variable bloc With non définie chez Microsoft.

Cordialement,

pgz

[dylan.pascal]

Merci pour votre aide, l'erreur n’apparaît plus .

Sauf que j'ai une autre erreur ^^ , au niveau de la connexion à la base de données. J'essaie de me connecter à une base Oracle 11g et j'ai un problème ODBC, pourtant j'ai bien déclaré le pilote dans le panneau de configuration. Et là il me dis que : "[Microsoft][ODBC driver for Oracle][Oracle]ORA-12154: TNS: could not resolve the connect identifier specified". Ce que je comprends pas, c'est que dans mon tnsnames.ora , il y a bien la chaîne de connexion spécifié. J'utilise bien les bons logs de connexion aussi alors je ne comprends pas pourquoi ça ne marche pas.....

Pouvez-vous m'aider ?

Cordialement,

Dylan.

[geogeo70]

"Variable objet ou Variable de bloc With non définie"

bonjour,
en regardant ta "boucle" (Tant que... ), normalement le "premier élément" du "tant que" est initialisé avant "While..." condition d'entrée , ensuite le traitement de l'élément courant puis initialisation de l'élément suivant et "Wend" voilà l’algorithme de cette itération. Donc je te propose cette écriture que j'ai essayé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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
With Worksheets("feuil1")
        LigneCourante = 9
        lignedebut = LigneCourante
        AncienNom = .Cells(LigneCourante, 1).Value
        While .Cells(LigneCourante, 1).Value <> ""
 
       '     If AncienNom = "" Then
 
                'Initialisation des variables
       '         LigneDebut = LigneCourante
       '         AncienNom = .Cells(LigneCourante, 1).Value
 
       '     End If
 
            ' Si les informations ont changé : calcul de la ligne fin
            NouveauNom = .Cells(LigneCourante, 1).Value
            If NouveauNom <> AncienNom Then
 
                LigneFin = LigneCourante - 1
                DonneesACumuler = True
                alimentefeuille AncienNom, lignedebut, LigneFin, DonneesACumuler
                lignedebut = LigneFin + 1
 
                LigneFin = LigneCourante
                AncienNom = NouveauNom
            End If
 
            ' Passage à la ligne suivante
            LigneCourante = LigneCourante + 1
 
        Wend
 
    End With
End Sub
 
Function alimentefeuille(a, b, c, d)
 
End Function

Par contre, je n'ai pas la fonction il faut faire attention aux effets de bord!! en déclarant les paramètres si possible passage par valeur.
Attention "With..." n'est pas une boucle mais un bloc d'instructions.

Geogeo70

[dylan.pascal]

Merci pour ta réponse, j'ai apporté les améliorations que tu as fais mais maintenant j'ai une erreur d'Automation. La Références OLE Automation est pourtant bien activée

[geogeo70]

re,

Peut être une utilisation d'un objet (ex une affectation) au lieu d'une propriété de cet objet?

comme je n'ai pas d'erreur c'est certainement dans la fonction. Voir si par exemple un "range" doit être affecté avec set...

geogeo70