Erreur de compilation: sub, fonction ou property attendue

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?

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'

'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

j'aimerais une réponse rapide svp?

et pour moi, aussi un café au lait sans sucre, vite

While Ligne_Quantite <> "" >>> c'est un chiffre donc sera toujours <>"" (remplacer par 0 ?)

Les IF ... End If et le "While ...Loop" se croisent !!!! (mieux lisible avec intendation)

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'

     '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

Bonjour et bienvenue sur ce forum,

Lorsque vous postez un code (je ne pense pas que vous ayez lu la charte....), pour plus de lisibilité, pensez à utiliser les balises de codes disponibles dans le menu en cliquant sur l'icone </>
J'ai corrigé votre post pour que vous voyez.

j'aimerais une réponse rapide svp?

Vous faites une demande sur un forum où chacun est libre de vous répondre dans la mesure de son temps disponible et de sa volonté de prise en charge. Merci de votre compréhension d'autant que les réponses vous sont, j'insiste, fournies gratuitement.

Cordialement

Rem : Avec VBA , choisir WHILE WEND et pas WHILE LOOP