Microsoft 365 Erreur de compilation: sub, fonction ou property attendue

jkoch · 15 Mars 2024

Bonjour,

j'aimerais dupliquer ma variable ligne_quantité quand elle est égal à 1 mais j'ai une erreur quand je lance la copmilation: est ce que quelqu'un peut m'aider?
J'aimerais une réponse rapide.

Sub bTest_balayage()

'On duplique les lignes de quantité plusieurs fois en fonction de la valeur de la quantité'

' Crée le 15/03/2024 par JK'

' Declaration des variables

Dim Ligne_Quantite As Variant

Dim CelluleQuantite As Variant

Dim Quantite_Compteur As Variant

Dim Quantite_Cdetrane As Variant

' Initialisation

'Chemin_Travail = ThisWorkbook.Path 'On récupère le repertoire du fichier courant'

'Wb = ActiveWorkbook.Name 'Nom du classeur'
Bonjour,

j'aimerais dupliquer ma variable ligne_quantité quand elle est égal à 1 mais j'ai une erreur quand je lance la copmilation: est ce que quelqu'un peut m'aider?
'Onglet_Travail = "100-SCEI" 'Numéro utilisé correspondant à l'entreprise SCEI'

'Fichier_Source = Workbooks(Wb).Sheets("General").Range("F10").Value 'Nom du fichier csv XXPO1174_OPENPO_Report de travail'

'Onglet_Source = Workbooks(Wb).Sheets("General").Range("G10").Value

'Fichier_Cible = "Fichier_extract_R12.xlsb" 'Nom du fichier csv de travail'

Ligne_Quantite = 2

While Ligne_Quantite <> ""

If Ligne_Quantite = inc Or Ligne_Quantite = 1 Then

Ligne_Quantite Not will 'aucune modification pour ligne quantité'

Else

If (Ligne_Quantite > 1) Then

Set Ligne_Quantite = Worksheets("Sheet1").ChartObjects(1).Duplicate

Ligne_Quantite.Select

Selection.Insert Shift:=xlDown

End If

Loop

End If

End Sub

Dranreb · 15 Mars 2024

Bonsoir.

Sub, Function ou Property attendue

Rubrique de référence sur Office VBA

learn.microsoft.com

Probablement sur l'instruction Ligne_Quantite Not will, formée de d'un nom de variable déclarée As Variant suivi d'une expression.

TooFatBoy · 16 Mars 2024

Bonjour,

jkoch à dit:
Ligne_Quantite Not will

C'est censé faire quoi ?

Je ne connais pas parfaitement VBA (loin sans faux), mais la fin d'un While n'est-elle pas mieux en Wend qu'en Loop ?

Oneida · 17 Mars 2024

Bonjour a tous,

En effet la ligne Ligne_Quantite Not will provoque une erreur car Ligne_Quantite n'est pas une fonction.
While Wend comme la fait remarquer TooFatBoy
et un end if qui n'est pas a sa place, il doit etre avant le Wend

dysorthographie · 17 Mars 2024

Bonjour,

VB:

Sub bTest_balayage()

    'Déclaration des variables
    Dim Ligne_Quantite As Integer 'Déclarer la variable comme entier pour stocker des nombres entiers
    Dim Ligne_Duplicate As Range 'Variable pour stocker la ligne dupliquée
    Dim LastRow As Long 'Variable pour stocker le numéro de la dernière ligne utilisée dans la feuille de calcul

    'Initialisation
    Ligne_Quantite = 2 'Initialiser la variable à la première ligne où commence votre traitement

    'Trouver la dernière ligne utilisée dans la feuille de calcul
    LastRow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

    'Boucle à travers les lignes
    Do While Ligne_Quantite <= LastRow 'Utiliser une boucle Do While pour parcourir les lignes jusqu'à la dernière ligne utilisée

        If Cells(Ligne_Quantite, 1).Value = 1 Then 'Vérifier si la valeur dans la colonne A de la ligne est égale à 1

            'Dupliquer la ligne
            Set Ligne_Duplicate = Rows(Ligne_Quantite).EntireRow
            Ligne_Duplicate.Copy
            Rows(Ligne_Quantite + 1).Insert Shift:=xlDown

            'Incrémenter Ligne_Quantite pour passer à la ligne suivante
            Ligne_Quantite = Ligne_Quantite + 2 'Augmenter de 2 pour sauter la ligne originale et la ligne nouvellement insérée

        Else
            'Passer à la prochaine ligne
            Ligne_Quantite = Ligne_Quantite + 1
        End If

    Loop

End Sub

Microsoft 365 Erreur de compilation: sub, fonction ou property attendue

jkoch

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Sub, Function ou Property attendue

TooFatBoy

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

Discussions similaires