XL 2013 [RESOLU] Erreur de compilation End with sans with

[BENAM69]

Bonjour le forum ^^

Je n'arrive pas à enlever cette erreur de compilation dans le code.
Tout marchait très bien et là je ne comprends pas il a buggé tout simplement.

Une fenêtre de bug apparaît :
Erreur de compilation End with sans with

La ligne surlignée est mon Private Sub CommandeButton2_Click

et quand j'enlève le end with, il me marque End If sans bloc If.
Il ne tourne plus rond ^^

Merci pour votre aide.

Private Sub CommandButton2_Click()
With Me.ListBox1
    .AddItem
    .List(memoire, 0) = Me.TextBox3 'Ajout sur la première colonne l'article
    .List(memoire, 1) = Me.TextBox4 'Ajout sur la deuxième colonne la désignation
    .List(memoire, 2) = Me.ComboBox7.Text 'Ajout sur la troisième colonne Catégorie
    .List(memoire, 3) = Me.TextBox6 'Ajout sur la 4ème colonne Quantité
    .List(memoire, 4) = Me.ComboBox8.Text 'Ajout sur la 5ème colonne Unité
    .List(memoire, 5) = Me.TextBox7 'Ajout sur la 6ème colonne Prix
    .List(memoire, 6) = Me.TextBox8 'Ajout sur la 7ème colonne Rabais
 If Me.TextBox6 And Me.TextBox7 And Me.TextBox8 <> "" Then 'Si quantité et prix  et rabais <> vide alors
 .List(memoire, 7) = Format(((Me.TextBox6 * Me.TextBox7) * (1 - (Me.TextBox8 / 100))), "Standard") 'Prix x quantité x rabais
        If Me.TextBox6 And Me.TextBox7 <> "" And Me.TextBox8 = "" Then 'Si quantité et prix <> vide et rabais = vide alors
        Me.TextBox8.Value = "" ' Rabais format vide
        .List(memoire, 7) = Format((Me.TextBox6 * Me.TextBox7), "Standard") ' article colonne 7 dont le montant = Prix x Quantité
    End If
End With

    memoire = memoire + 1
    
Dim t As Single 'déclare la variable T (Total) / Type à adapter
Dim i As Integer
With ListBox1 'prend en compte la ListBox1 (à adapter)
    For i = 0 To .ListCount - 1 'boucle sur tous les lignes de la ListBox1
        t = t + .Column(7, i) 'définit le total T (colonne 7 et la valeur c'est la "8ème" colonne)
    Next i 'prochaine ligne de la boucle
    TextBox11.Value = t 'renvoie dans la TextBox1 le total T (à adapter)
    Sheets(2).Range("A11").Resize(.ListCount, .ColumnCount) = .List 'renvoie la valeur dans la cellule A1 la les éléments de la ListBox1
End With 'fin de la prise en compte de la ListBox1

End Sub

Merci pour votre aide à tous

Benam

 

[ChTi160]

Bonjour BENAM69
je pense qu il te manque un End If
apres
”.List(memoire, 7) =”
Jean marie

 

[BENAM69]

Bonjour ChTi160
merci pour ton retour rapide

Bonjour BENAM69
je pense qu il te manque un End If
apres
”.List(memoire, 7) =”
Jean marie

Quand je mets un end if ,l'erreur se situe sur cette ligne

t = t + .Column(7, i)  'définit le total T (colonne 7 et la valeur c'est la "8ème" colonne)

avec comme message Erreur d'exécution 94 : Utilisation incorrecte de Null

La dernière fois même avec un seul end if cela fonctionnait par je ne sais quel miracle

Benam

 

[BENAM69]

Bonjour,

Je viens de trouver mon erreur : J'avais imbriqué ma 2e condition dans la première, le code est :

    If Me.TextBox6 And Me.TextBox7 And Me.TextBox8 <> "" Then .List(memoire, 7) = Format(((Me.TextBox6 * Me.TextBox7) * (1 - (Me.TextBox8 / 100))), "Standard")
    If Me.TextBox6 And Me.TextBox7 <> "" And Me.TextBox8 = "" Then
        Me.TextBox8.Value = 1
        .List(memoire, 7) = Format((Me.TextBox6 * Me.TextBox7), "Standard")
    End If

Merci quand même pour ton aide ^^

Benam

 

[ChTi160]

re
la autre
probleme tu dois additionner avec une cellule vide
jean marie

 

[BENAM69]

Re

Oui oui j'ai fait la rectification aussi merci
A+

Benam