VBA Poblème avec somme

[Arpette]

Bonjour à toutes et à tous,
dans une macro, j'ai écrit ce code pour calculer le montant H.T, T.V.A et T.T.C. Le code fonctionne bien, mon problème est que quelques fois je dois insérer 55 lignes et la problème, ça ne fonctionne plus puisque je me retrouve avec une somme qui devrait être "F21:F106" mais comme j'ai écrit "F21:F50"🙁
Comment je pourrais tester, les deuc cas de figure.
Merci pour votre aide.

With Sheets("Devis").Range("D:D")
Somme = 0
Somme1 = 0
Somme2 = 0
    Set n = .Find(what:="T.V.A", LookIn:=xlValues, lookat:=xlWhole)
        If Not n Is Nothing Then
            Somme = Application.WorksheetFunction.Sum(Range("F21:F50")) + Somme
            Somme1 = Somme * n(1, 2) + Somme1
            Somme2 = Somme + Somme1 + Somme2
                Set n = .FindNext(n)
        End If
    n(0, 3) = Somme 'Montant H.T
    n(1, 3) = Somme1 'Montant T.V.A
    n(2, 3) = Somme2 'Montant T.T.C
End With

 

[Banzai64]

Re : VBA Poblème avec somme

Bonjour

As tu essayé ?

Somme = Application.WorksheetFunction.Sum(.Range("F21:F" & .Range("F65536").End(xlUp).Row))

Edit : Erreur de frappe involontaire

 

[Arpette]

Re : VBA Poblème avec somme

Bonjour Banzai, merci pour ta réponse. Oui j'avais essayé mais ça ne fonctionne pas. Par contre, le ? est une erreur de frappe ou volontaire.
@+

 

[Banzai64]

Re : VBA Poblème avec somme

Re bonjour

Si tu peux fournir un exemple de ton tableau ?

 

[JNP]

Re : VBA Poblème avec somme

Bonjour le fil 🙂

With Sheets("Devis").Range("D:D")

Somme = Application.WorksheetFunction.Sum(.Range("F21:F" & .Range("F65536").End(xlUp).Row))

Il me semble qu'il y a un os, car

Sheets("Devis").Range("D:D").Range("F21:F" & Sheets("Devis").Range("D:D").Range("F65536").End(xlUp).Row)

pour moi équivaut à une zone vide 😛...

Somme = Application.WorksheetFunction.Sum(Sheets("Devis").Range("F21:F" & Sheets("Devis").Range("F65536").End(xlUp).Row))

a plus de chance de fonctionner 🙄...
Bon dimanche 😎

 

[Arpette]

Re : VBA Poblème avec somme

Bonjour JNP, merci pour ta réponse mais ça ne fonctionne pas, avec ce code on cumule le résulat. Ci-joint le fichier. En A21,22,23... de la feuille devis taper DB100
@+
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Banzai64]

Re : VBA Poblème avec somme

Re
Sauf erreur de ma part (merci JNP)

With Sheets("Devis").Range("D:D")
Somme = 0
Somme1 = 0
Somme2 = 0
    Set n = .Find(what:="T.V.A", LookIn:=xlValues, lookat:=xlWhole)
        If Not n Is Nothing Then
            Somme = Application.WorksheetFunction.Sum(Range("F21:F" & Range("F20").End(xlDown).Row)) + Somme
            Somme1 = Somme * n(1, 2) + Somme1
            Somme2 = Somme + Somme1 + Somme2
                Set n = .FindNext(n)
        End If
    n(0, 3) = Somme 'Montant H.T
    n(1, 3) = Somme1 'Montant T.V.A
    n(2, 3) = Somme2 'Montant T.T.C
End With

remarques : Le With Sheets("Devis") n'a pas lieu d'être car tu es dans cette page
Set n = .FindNext(n) : Inutile

 

[Arpette]

Re : VBA Poblème avec somme

Re,
merci banzai, ça fonctionne, mais cela m'oblige d'avoir toutes les lignes de la colonne F renseignées.
@+

 

[Banzai64]

Re : VBA Poblème avec somme

Re bonjour

Une suggestion
Comme tu utilises la ligne "T.V.A"
Pourquoi ne pas faire

  Set n = Range("D:D").Find(what:="T.V.A", LookIn:=xlValues, lookat:=xlWhole)
  If Not n Is Nothing Then
    n(0, 3) = Application.WorksheetFunction.Sum(Range("F21:F" & (n.Row - 2)))
    n(1, 3) = n(0, 3) * n(1, 2)
    n(2, 3) = n(0, 3) + n(1, 3)
  End If

Ce n'est qu'une idée

 

[Arpette]

Re : VBA Poblème avec somme

Bonsoir Banzai,je vais tester ton code, sinon j'ai solutionné le problème comme ceci.
Merci pour aide
@+

With Sheets("Devis").Range("D:D")
Somme = 0
Somme1 = 0
Somme2 = 0
    Set n = .Find(what:="T.V.A", LookIn:=xlValues, lookat:=xlWhole)
    l = Range("D1:D65536").Find(n, lookat:=xlWhole).Row
        If l = 52 Then
            Somme = Application.WorksheetFunction.Sum(Range("F21:F50")) + Somme
            Else
            Somme = Application.WorksheetFunction.Sum(Range("F21:F106")) + Somme
        End If
            Somme1 = Somme * n(1, 2) + Somme1
            Somme2 = Somme + Somme1 + Somme2
              
    n(0, 3) = Somme 'Montant H.T
    n(1, 3) = Somme1 'Montant T.V.A
    n(2, 3) = Somme2 'Montant T.T.C
End With
End Sub

 

[Arpette]

Re : VBA Poblème avec somme

Bonsoir Banzai, j'ai adapté ta suggestion, ainsi je peux insérer autant de page que je souhaite. Voici le code
Merci pour ton aide
@+

With Sheets("Devis").Range("D:D")
Somme = 0
Somme1 = 0
Somme2 = 0
    Set n = .Find(what:="T.V.A", LookIn:=xlValues, lookat:=xlWhole)
        If Not n Is Nothing Then
            Somme = Application.WorksheetFunction.Sum(Range("F21:F" & (n.Row - 2))) + Somme
            Somme1 = Somme * n(1, 2) + Somme1
            Somme2 = Somme + Somme1 + Somme2
         End If
    n(0, 3) = Somme 'Montant H.T
    n(1, 3) = Somme1 'Montant T.V.A
    n(2, 3) = Somme2 'Montant T.T.C
End With