XL 2019 Erreur "Déclaration existante dans la portée en cours"

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Mai 2021

• #2

Bonsoir Hanjen,
En dupliquant les lignes, vous avez aussi dupliqué "reprise:" ?
Car dans ce cas vous avez deux labels "reprise" et ça c'est une erreur.
Baptisez le second reprise2 et modifiez le Goto reprise2.
Un label ne peut être qu'unique, sinon comment le VBA sait sur quel reprise il doit aller ?
Enfin, un Goto c'est moyen, il faut au maximum l'éviter.

 

Vote positif 0 Vote négatif

H

Hanjen

XLDnaute Nouveau

• 15 Mai 2021

• #3

Bonsoir @sylvanu,
oui effectivement c'est bien ça. J'ai changé le nom et c'est réglé
Le label c'est l'ensemble "reprise...goto reprise"?
Pourquoi goto c'est moyen?

Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Mai 2021

• #4

Au débug c'est toujours complexe de savoir d'où on vient, surtout si le code entre label et le ou les goto est long.
D'autant qu'on peut souvent le remplacer par une autre structure comme un while wend ou autre.
C'est une règle générale de base. Mais comme on n'a qu'une partie parcellaire du code, impossible de vous proposer autre chose.🙂

 

Vote positif 0 Vote négatif

H

Hanjen

XLDnaute Nouveau

• 15 Mai 2021

• #5

Je m'excuse, c'est vrai que là c'est compliqué d'extrait seulement une partie du code.
Je ne connais pas while wend...je vais faire des recherches 🙂

Bonne soirée 😉

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mai 2021

• #6

Bonjour,
"Just for the fun ", donnez nous juste ces 5 lignes de code complètes. Hors contexte elles n'ont rien de confidentielles. Je serais curieux de voir si on peut supprimer le Goto.

 

Vote positif 0 Vote négatif

H

Hanjen

XLDnaute Nouveau

• 16 Mai 2021

• #7

Bonjour @sylvanu,
Voici les quelques lignes de code qui ont du sens 🙂

VB:

reprise:
                Ident = Trim(Application.InputBox("Entrez la reference de l'identifant :", "Reference Identifiant", Type:=1))
                If PlgRecherche.Find(Ident) Is Nothing Or Ident = False Or IsError(Ident) Then
                    MsgBox "Valeur incorrecte ou non trouvée dans la plage de Recherche", vbExclamation
                    GoTo reprise
                Else

                    Ligne = PlgRecherche.Find(Ident).Row

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mai 2021

• #8

Re,
Une possibilité avec une fonction perso.
Dans le code :

VB:

        Do: Reponse = Question(PlgRecherche)
            If rep = 0 Then MsgBox "Valeur incorrecte ou non trouvée dans la plage de Recherche", vbExclamation Else Exit Do
        Loop
        Ligne = Reponse

En fonction perso :

Code:

Function Question(Plage) ' Renvoie 0 si Erreur sinon renvoie N° de ligne trouvé
    Ident = Trim(Application.InputBox("Entrez la reference de l'identifant :", "Reference Identifiant", Type:=1))
    If Plage.Find(Ident) Is Nothing Or Ident = False Or IsError(Ident) Then Question = 0 Else Question = Plage.Find(Ident).Row
End Function

On a le même nombre de lignes de codes
La fonction peut être appelée par plusieurs modules.
Il n'y a pas de Goto.
It was just for the fun.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 16 Mai 2021

• #9

Salut @sylvanu

sylvanu à dit:

If rep = 0

Cliquez pour agrandir...

Ce ne serait pas if reponse ... ? 🤔 😉

 

Vote positif 0 Vote négatif

R

ram_ia

XLDnaute Junior

• 7 Juin 2024

• #10

Bonjour,
Confronté à un problème "identique", je me permets de joindre le fichier car je ne n'arrive pas, vu mes compétences en vba, à trouver l'erreur.
Merci par avance pour votre attention.
Cordialement,
Ram_IA

 

Pièces jointes

• V3-compta_fin video 4.xlsm

  51.8 KB · Affichages: 9

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Juin 2024

• #11

Bonjour,
Il manque quelques commentaires pour suivre ce que vous voulez faire.
Mais deux points m'étonnent :
1- Sub addinfo(page, lignes) : "page" est une variable d'entrée donc ne doit pas être redimensionnée ensuite, supprimez le "Dim page As String".
2- Concernant "Pages", il n'y a pas de Dim le concernant, donc avec Option Explicit qui oblige à déclarer les variables, il y a erreur. D'autre part que vaut "Pages" puisque non initialisé ? Et pourquoi écraser votre variable d'entrée "page" avec "Pages" : page = Pages ?

 

Vote positif 0 Vote négatif

Valtrase

XLDnaute Occasionnel

• 7 Juin 2024

• #12

Bonjour,
Dans la sub il y a un argument Page, et un autre lignes, Je pense que vous avez oublié le s en fin de page
Edit : Pas assez rapide...

 

Vote positif 0 Vote négatif

R

ram_ia

XLDnaute Junior

• 8 Juin 2024

• #13

Bonjour et tout d'abord merci pour vos retours Sylvanu & Valtrase.
Mon soucis, encore une fois, est que je n'ai fait que recopier pas à pas les directives d'un tuto (Tuto de rien sur comment créer un logiciel comptable et dont la 4ème vidéo

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

développe la partie la plus importante, copier les données dans le bon journal ...)
Oserai-je vous demander à nouveau votre aide pour me proposer une correction ?!
Bien à vous
Ram_IA

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2024

• #14

Re,
Avez vous au moins essayé nos demandes de modifs ?
Qu'est ce que ça donne ?
Pouvez vous ajouter quelques commentaires pour comprendre ? Par exemple que signifie page=Pages ? Que vaut Pages ? Pourquoi écraser une variable d'entrée ?

 

Vote positif 0 Vote négatif

R

ram_ia

XLDnaute Junior

• 8 Juin 2024

• #15

sylvanu à dit:

Re,
Avez vous au moins essayé nos demandes de modifs ?
Qu'est ce que ça donne ?
Pouvez vous ajouter quelques commentaires pour comprendre ? Par exemple que signifie page=Pages ? Que vaut Pages ? Pourquoi écraser une variable d'entrée ?

Cliquez pour agrandir...

Merci pour votre retour Sylvanu, c'est très gentil mais je suis désespéré car techniquement incapable de comprendre donc de corriger. Je ne maitrise pas du tout le langage de programmation, je n'ai fait que recopier les directives du tutoriel qui pourtant semble fonctionner. J'ai essayé mais cela n'a rien donné !
Le principe de cet outil est d'entrer des données dans Formulaire puis en cliquant sur registrer, qu'elles se placent dans le journal correspondant (A;D;F ou D) et dans le GrandJournal. Qu'elles y restent, même si je supprime ensuite les entrées du formulaire ... C'est exactement ce dont j'ai besoin sauf que ...!

C'est un peu léger comme commentaires , je l'avoue ☺️

Ram_IA

 

Vote positif 0 Vote négatif