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
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 = Cells(2, 1) 'demarrage boucle recup infos
'Start_boucle.Select 'selectionner premiere cellule de recup
For i = 1 To 13
    GAMME = "": Reference_Produit = "": Quantite_Deduite = 0: Nom_Produit = ""
    With Start_boucle.Offset(i - 1, 0)
        If .Value <> "" Then 'si non vide
            Compteur_vide = 0
            GAMME = .Value
            If Not .Offset(0, 1).Value = "" Then
                Reference_Produit = .Offset(0, 1).Value
                Quantite_Deduite = .Offset(0, 2).Value
                If Not .Offset(0, 9).Value = "" Then
                    Nom_Produit = .Offset(0, 9).Value
                Else
                    Compteur_vide = Compteur_vide + 1
                    If Compteur_vide = 3 Then Exit For
                End If
            End If
        End If
    End With
    If Not GAMME = "" Then
        On Error Resume Next
        Set Cellule_Cherche = Nothing
        Set Cellule_Cherche = Sheets("FOURNISSEUR").Range("A:A").Find(What:=Nom_Produit, After:=Range("A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        If Not Cellule_Cherche Is Nothing Then
            Set Cellule_Cherche = Cellule_Cherche.MergeArea.EntireRow.Find(What:=Reference_Produit, After:=Cellule_Cherche, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
            If MsgBox("Voulez vous déduire la quantité : " & Quantite_Deduite & vbLf & Nom_Produit & vbLf & Cellule_Cherche.Value & vbLf & "Stock : " & Cellule_Cherche.Offset(0, 1).Value, vbYesNo + vbQuestion) = 6 Then Cellule_Cherche.Offset(0, 1).Value = Cellule_Cherche.Offset(0, 1).Value - Quantite_Deduite
        End If
        On Error GoTo 0
    End If
Next i
End Sub
 
Vote positif 0 Vote négatif
Solution
A

Art13

XLDnaute Nouveau
Yeahou à dit:
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 = Cells(2, 1) 'demarrage boucle recup infos
'Start_boucle.Select 'selectionner premiere cellule de recup
For i = 1 To 13
    GAMME = "": Reference_Produit = "": Quantite_Deduite = 0: Nom_Produit = ""
    With Start_boucle.Offset(i - 1, 0)
        If .Value <> "" Then 'si non vide
            Compteur_vide = 0
            GAMME = .Value
            If Not .Offset(0, 1).Value = "" Then
                Reference_Produit = .Offset(0, 1).Value
                Quantite_Deduite = .Offset(0, 2).Value
                If Not .Offset(0, 9).Value = "" Then
                    Nom_Produit = .Offset(0, 9).Value
                Else
                    Compteur_vide = Compteur_vide + 1
                    If Compteur_vide = 3 Then Exit For
                End If
            End If
        End If
    End With
    If Not GAMME = "" Then
        On Error Resume Next
        Set Cellule_Cherche = Nothing
        Set Cellule_Cherche = Sheets("FOURNISSEUR").Range("A:A").Find(What:=Nom_Produit, After:=Range("A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        If Not Cellule_Cherche Is Nothing Then
            Set Cellule_Cherche = Cellule_Cherche.MergeArea.EntireRow.Find(What:=Reference_Produit, After:=Cellule_Cherche, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
            If MsgBox("Voulez vous déduire la quantité : " & Quantite_Deduite & vbLf & Nom_Produit & vbLf & Cellule_Cherche.Value & vbLf & "Stock : " & Cellule_Cherche.Offset(0, 1).Value, vbYesNo + vbQuestion) = 6 Then Cellule_Cherche.Offset(0, 1).Value = Cellule_Cherche.Offset(0, 1).Value - Quantite_Deduite
        End If
        On Error GoTo 0
    End If
Next i
End Sub
Cliquez pour agrandir...
je regarde est analyse t je revient vers vous si fonctionnel j'insiste transmet tes moi vos infos et je vous envoie un bouteille de parfum cadeau cela me fait plaisir
 
Vote positif 0 Vote négatif
A

Art13

XLDnaute Nouveau
Re,
cela marche merci beaucoup je v maintenant ajouté la fonction génération de feuil en PDF pour faire une facture pour les clients.

Transmettais moi les infos pour que je vous envoie une bouteille de parfum cela me fait plaisir.
 
Vote positif 0 Vote négatif
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Supporter XLD
Re,

Art13 à dit:
je regarde est analyse t je revient vers vous si fonctionnel j'insiste transmet tes moi vos infos et je vous envoie un bouteille de parfum cadeau cela me fait plaisir
Cliquez pour agrandir...
Tentative de corruption de modérateur ! 🤣

ne vous inquiétez pour cela, marquer la solution pour les recherches d'autres personnes et un merci seront largement suffisants. 😉

Bonne soirée
 
Vote positif 0 Vote négatif
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Supporter XLD
re,
Art13 à dit:
la génération du Pdf doit se faire à la fin de la boucle
Cliquez pour agrandir...
si vous avez toutes les infos, oui
si vous rencontrez des problèmes, ouvrez une nouvelle discussion car cela n'aura plus rien à voir avec le sujet de ce fil.
n'hésitez pas à lire la charte XLD pour bien connaitre les us et coutumes du forum, notamment, le langage SMS est à proscrire.

Bien cordialement, @+
 
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

13 membres et 55 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