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

Bernard_XLD · 7 Juin 2021

re,
alors maintenant dites moi ce que c'est censé faire et la suite

Art13 · 7 Juin 2021

Lancé le modul Recherche qui doit faire un -1 dans la colone Quantité qui fait référence à la celule A pour la variable Produit et pour la celule dans le groupe A et associé a la variable Reference_Produit.

Art13 · 7 Juin 2021

et c'est pas moin 1 mais plutôt - la valeur présente dans le classeur caissière cellule unité vers la feuille FOURNISSEUR

Bernard_XLD · 7 Juin 2021

Art13 à dit:
modul Recherche

gestion_stock ?

Art13 · 7 Juin 2021

je modifie le code pour récupère la quantité à suprimé

Art13 · 7 Juin 2021

Mdr le module gestion_stock à été renomé Rechrche dsl pas cités

Bernard_XLD · 7 Juin 2021

re,
on n'y arrivera pas si vous n'êtes pas précis

Art13 à dit:
Lancé le modul Recherche qui doit faire un -1 dans la colone Quantité qui fait référence à la celule A pour la variable Produit et pour la celule dans le groupe A et associé a la variable Reference_Produit.

quelles feuilles pour la colonne quantité et la cellule A ?
la sub de recherche dont vous parlez est bien gestion_stock ?

Art13 · 7 Juin 2021

Pour résumé se qui est selectionné en feuille Caissiere doit étre deduit de la feuille FOURNISSEUR

Art13 · 7 Juin 2021

Yeahou à dit:
re,
on n'y arrivera pas si vous n'êtes pas précis

quelles feuilles pour la colonne quantité et la cellule A ? FOURNISSEUR
la sub de recherche dont vous parlez est bien gestion_stock ? Chez vous oui moi je les nomé Rechche

je vous joint le nouveau excel propre grâce à vous

Bernard_XLD · 7 Juin 2021

re,
ok, je vois, je regarde tout à l'heure, je dois m'absenter.

@plus

Art13 · 7 Juin 2021

Yeahou à dit:
re,
ok, je vois, je regarde tout à l'heure, je dois m'absenter.

@plus

Entendu super Merci

Art13 · 7 Juin 2021

Ajout variable Quantite

Art13 · 7 Juin 2021

J'ai chercher de mon cotés c un désastre

Bernard_XLD · 7 Juin 2021

re,

mais comment êtes vous arrivé à faire cela, càd n'importe quoi, avec le code que je vous ai donné ?
bon, laissez moi faire, je reprends tout ça.

Art13 · 7 Juin 2021

re,

dsl je voulais essayé de trouvé une solution cependant votre partie et intact il me semble

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

Art13

XLDnaute Nouveau

Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Art13

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Art13

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Art13

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Art13

XLDnaute Nouveau

Pièces jointes

Art13

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

Art13

XLDnaute Nouveau

Discussions similaires