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

jkoch

XLDnaute Nouveau
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
 

dysorthographie

XLDnaute Accro
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
 

Discussions similaires

Statistiques des forums

Discussions
312 803
Messages
2 092 254
Membres
105 317
dernier inscrit
Tsi Badza