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

Art13 · 7 Juin 2021

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

Bernard_XLD · 7 Juin 2021

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 =...

Etoto · 7 Juin 2021

Art13 à dit:

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

Bonjour,

tu as un fait un doublon de discussion, tu es au courant ?

Art13 · 7 Juin 2021

Non dsl je suis novice comment je peux réparer mon erreur

Etoto · 7 Juin 2021

Art13 à dit:
Non dsl je suis novice comment je peux réparer mon erreur

Préviens dans ton autre discussion qu'il y'a eu une erreur et mets un lien vers cette discussion pour montrer que c'est celle-ci qui est active.

Art13 · 7 Juin 2021

Merci c'est fait

Art13 · 7 Juin 2021

Auriez vous une idée sur mon erreur

Etoto · 7 Juin 2021

Art13 à dit:
Auriez vous une idée sur mon erreur

Ton débogage renvoie quelle ligne en surbrillance ?

Art13 · 7 Juin 2021

call Gestion_Stock coder au paravent avec juste le nom du module

Etoto · 7 Juin 2021

Art13 à dit:
call Gestion_Stock coder au paravent avec juste le nom du module

Normal tu as oublié le "." à selection.Offset

Etoto · 7 Juin 2021

Art13 à dit:
Call Gestion_Stock Selection.Offset(1, -9).Select

Il faut mettre le point devant selection

Art13 · 7 Juin 2021

Je ne comprend pas mon erreur sans l'appel du module mon code fonctionne.
J'ai coller votre solution et cela et non fonctionnel

Etoto · 7 Juin 2021

Art13 à dit:
Je ne comprend pas mon erreur sans l'appel du module mon code fonctionne.

Mais avec le point ça fonctionne ou pas ?

Art13 · 7 Juin 2021

Non ça ne fonctionne pas

Etoto · 7 Juin 2021

Art13 à dit:
Non ça ne fonctionne pas

Mince ! Alors je suis désolé mais je ne fait pas partie des bons en VBA de ce forum, je vais les laisser faire.

Bon après-midi.

Art13 · 7 Juin 2021

Entendu merci en tout cas

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

Art13

XLDnaute Nouveau

Bernard_XLD

Etoto

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Art13

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Pièces jointes

Etoto

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Discussions similaires