Problème boucle With

Version imprimable

Bonjour,

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

Le voici :

Code:

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

09/02/2015, 15h24
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:

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

Cordialement,
Kimy
09/02/2015, 15h28
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";

boucle...

Citation:

"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:

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

09/02/2015, 16h32
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
09/02/2015, 18h05
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
09/02/2015, 19h38
pgz

Bonsoir

Citation:

Envoyé par 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";

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
10/02/2015, 09h20
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 ? :calim2:

Cordialement,

Dylan.