XL 2013 Erreur de compilation à l'appel d'un module

A

Art13

XLDnaute Nouveau
Bonjour, lors de l'appel d'un module un message d'erreur apparait me disant attendue non module mais variable ou procédure attendu
VB: 
Sub Cursseur()


Set Cible = Feuil1
Compteur_vide = 0

    Set Start_boucle = ThisWorkbook.ActiveSheet.Cells(2, 1) 'demarrage boucle recup infos
        
    ThisWorkbook.ActiveSheet.Activate 'se placer sur la feuille de l'année en cours
    Start_boucle.Select 'selectionner premiere cellule de recup
    
    For i = 1 To 13
    
        If ActiveCell.Value <> "" Then 'si non vide
            Compteur_vide = 0
            GAMME = ActiveCell.Value
            Selection.Offset(0, 1).Select
            If (ActiveCell.Value <> "") Then
                    Reference = ActiveCell.Value
            Selection.Offset(0, 8).Select
            If (ActiveCell.Value <> "") Then
                    Nom_Produit = ActiveCell.Value
Reference_Produit = Reference
Produit = Nom_Produit
Call Gestion_Stock
            Selection.Offset(1, -9).Select
 

        Else
            Compteur_vide = Compteur_vide + 1
            Selection.Offset(1, -9).Select
            If Compteur_vide = 3 Then
                Exit For
            End If
        End If
        End If
        End If
        Next
        
End Sub
 
Solution
Bernard_XLD
re,

voila votre code modifié, mettant à jour les quantités
les tabulations sont là pour simplifier la lecture du code, je vous conseille d'utiliser ce système ou un autre équivalent pour ordonner et organiser votre code et ainsi en faciliter la lecture et la compréhension

Bien cordialement, @+
VB: 
Option Explicit
Option Private Module
'Déclaration variables ***********************
Public GAMME As String 'Fournisseur
Public Nom_Produit As String 'Fournisseur du fichier stock
Public Quantite_Deduite As Integer
Public Cible As Worksheet 'Feuill FOURNISSEUR
Public Reference_Produit As String 'Model pour recherche
Sub Cursseur()
Dim i%, Compteur_vide&, Start_boucle As Range, Cellule_Cherche As Range
Compteur_vide = 0
Set Start_boucle =...
Trier par date Trier par votes
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Supporter XLD
Bonjour Art13, shinozak, le forum

Art13, ce code que vous avez récupéré je ne sais ou et modifié n'importe comment ne peut pas fonctionner correctement.
vous établissez des références que vous n'utilisez pas
vous activez des objets déjà actifs
vous bouclez sur des variables que vous n'utilisez pas dans la boucle
vous faites des sélections inutiles et redécalez les sélections sans avoir utilisé les sélections intermédiaires
Vous mettez des parenthèses qui ne servent à rien
vous faites des appels de procédures dont vous ne fournissez pas le code
J'arrête là parce que rien ne va dans votre code, on ne peut même pas comprendre à la lecture ce qu'il est censé faire.
Mettez un fichier exemple et on va reprendre tout cela

Bien cordialement, @+
 
Vote positif 0 Vote négatif
Etoto

Etoto

XLDnaute Barbatruc
Yeahou à dit:
Bonjour Art13, shinozak, le forum

Art13, ce code que vous avez récupéré je ne sais ou et modifié n'importe comment ne peut pas fonctionner correctement.
vous établissez des références que vous n'utilisez pas
vous activez des objets déjà actifs
vous bouclez sur des variables que vous n'utilisez pas dans la boucle
vous faites sélections inutiles et redécalez les sélections sans avoir utilisé les sélection intermédiaires
Vous mettez des parenthèses qui ne servent à rien
vous faites des appels de procédures dont vous ne fournissez pas le code
J'arrête là parce que rien ne va dans votre code, on ne peut même pas comprendre à la lecture ce qu'il est censé faire.
Mettez un fichier exemple et on va reprendre tout cela

Bien cordialement, @+
Cliquez pour agrandir...
@Yeahou,

Heu, par hasard aurais-tu supprimé le doublon ? Je trouve plus l'autre discussion, sinon merci de l'aide que tu apportes.
 
Vote positif 0 Vote négatif
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Supporter XLD
re,
déjà , ça, ça ne sert à rien
ThisWorkbook.ActiveSheet.Activate
en clair, vous dites "active la feuille active du classeur contenant la macro"
il ne sert à rien d'activer la feuille active et si le classeur actif n'est pas celui contenant la macro, cela plantera car il faut d'abord activer un classeur avant de pouvoir activer une de ses feuilles
 
Vote positif 0 Vote négatif
A

Art13

XLDnaute Nouveau
Pour vous expliquer mon fichier puit mon besoin,

dans mon onglet Caissière j'ai ajouté un bouton qui exécute un modul nommé ( "Cursseur").

Mon modul Cursseur et une boucle qui récupère les donnée saisi dans l'onglet associé pour appelé un module nommé Recherche qui devra effectué une rechrcheV dans l'onglet ("FOURNISSEUR) pour faire un - 1 dans la colonne(Quantité) associé à la Varrable Produit.

Pour facilité la RechercheV, ma variable (ReferenceProduit) à la même syntaxe des différents élément present dans la colone A.

Qui me permet de
 
Vote positif 0 Vote négatif
A

Art13

XLDnaute Nouveau
Yeahou à dit:
re,
déjà , ça, ça ne sert à rien
ThisWorkbook.ActiveSheet.Activate
en clair, vous dites "active la feuille active du classeur contenant la macro"
il ne sert à rien d'activer la feuille active et si le classeur actif n'est pas celui contenant la macro, cela plantera car il faut d'abord activer un classeur avant de pouvoir activer une de ses feuilles
Cliquez pour agrandir...
D'accord, vous avez raison en plus le bouton et sur la bonne feuille.
Mais cella m'aider pour le pas à pas afin de trouver la bonne logique de déplacement de curseur ;)
 
Vote positif 0 Vote négatif
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Supporter XLD
re,
dans cette partie, vous faites une boucle de 1 à 13 mais vous n'utilisez i nulle part donc vous répétez ce code 13 fois sans aucun changement
VB: 
    For i = 1 To 13
   
        If ActiveCell.Value <> "" Then 'si non vide
            Compteur_vide = 0
            GAMME = ActiveCell.Value
            Selection.Offset(0, 1).Select
            If (ActiveCell.Value <> "") Then
                    Reference = ActiveCell.Value
            Selection.Offset(0, 8).Select
            If (ActiveCell.Value <> "") Then
                    Nom_Produit = ActiveCell.Value
Reference_Produit = Reference
Produit = Nom_Produit

            Selection.Offset(1, -9).Select
 
        Else
            Compteur_vide = Compteur_vide + 1
            Selection.Offset(1, -9).Select
            If Compteur_vide = 3 Then
                Exit For
            End If
        End If
        End If
        End If
        Cherche
        Next
vous utilisez Reference_Produit alors que vous avez déclaré une variable dim Referenc_produit
ce n'est pas la même chose
pour vos déclarations de variable, vous avez utilisé dim hors d'une procédure ce qui veut dire qu'elles sont publiques uniquement au sein du module qui les abrite, il faut les déclarer comme cela pour les utiliser dans l'ensemble du projet

Code: 
Option Private Module
'Déclaration variables ***********************
Public GAMME As String 'Fournisseur
Public Reference As String 'Model
Public Nom_Produit As String 'Fournisseur du fichier stock
Public Cible As Worksheet 'Feuill FOURNISSEUR
Public Referenc_Produit As String 'Model pour recherche
Public Produit As String 'Fournisseur pour Recherche
 
Dernière édition:
Vote positif 0 Vote négatif
A

Art13

XLDnaute Nouveau
il y'a bien un changement c'est lors de la valeur de ActivCell.Value qui et mis dans les variables.

que je veut utilisé dans mon module Recherche qi sera appeler à la ligne
VB: 
Reference_Produit = Reference
Produit = Nom_Produit
Cherche' Nom Modul'
 
Vote positif 0 Vote négatif
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Supporter XLD
re,
pour l'instant, désactivez la ligne cherche tant qu'elle ne réfère à rien
utilisez option explicit en début de vos modules pour débuger facilement avec le menu débogage/compiler
le code des variables
VB: 
Option Private Module
'Déclaration variables ***********************
Public GAMME As String 'Fournisseur
Public Reference As String 'Model
Public Nom_Produit As String 'Fournisseur du fichier stock
Public Cible As Worksheet 'Feuill FOURNISSEUR
Public Reference_Produit As String 'Model pour recherche
Public Produit As String 'Fournisseur pour Recherche
le code de cursseur (je ne sais pas si c'est voulu mais normalement curseur s'écrit avec un seul s)
si je ne me suis pas trompé, cela fonctionnera à l'identique sans sélection
Code: 
Option Explicit
Sub Cursseur()
Dim Compteur_vide&, Start_boucle As Range
Compteur_vide = 0
Set Start_boucle = ActiveSheet.Cells(2, 1) 'demarrage boucle recup infos
Start_boucle.Select 'selectionner premiere cellule de recup
For i = 1 To 13
    With Start_boucle.Offset(i - 1, 0)
        If .Value <> "" Then 'si non vide
            Compteur_vide = 0
            GAMME = .Value
            With .Offset(0, 1)
                If .Value <> "" Then
                    Reference = .Value
                    With .Offset(0, 8)
                        If .Value <> "" Then
                            Nom_Produit = .Value
                            Reference_Produit = Reference
                            Produit = Nom_Produit
                        Else
                            Compteur_vide = Compteur_vide + 1
                            If Compteur_vide = 3 Then Exit For
                        End If
                    End With
                End If
            End With
        End If
    End With
    'Cherche
Next i
End Sub

dans le code du fichier , il n'y avait pas l'appel à gestion_stock, normal ?
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

Nicolas JACQUIN
  • Question
XL 2021 Exportation module, erreur après déprotection
2
Réponses
20
Affichages
1 K
Dranreb
Dranreb
cathodique
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
3 K
patricktoulon
patricktoulon
Nicolas JACQUIN
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
cathodique
  • Résolu(e)
XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur
Réponses
3
Affichages
210
cathodique
cathodique
M
  • Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
733
Mody200
M
M
  • Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
1 K
Mody200
M
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
372
CathyLD
C
cathodique
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
685
cathodique
cathodique
cathodique
  • Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
AlCapone
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
155
AlCapone
AlCapone

Membres actuellement en ligne

12 membres et 51 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 174
Membres
112 677
dernier inscrit
Justine11