XL 2016 Problème VBA

[Hubert1959]

Bonjour,
J'essaye de faire la somme de chaque ligne en VBA dans la colonne AH
Visiblement ça fonctionne pas, j'ai toujours une erreur
ou placer correctement cette ligne dans le VBA ?
Visiblement le VBA est compliqué pour moi, mais je ne renonce pas.

Merci d'avance si une personne est plus qualifier pour m'aider sur mon sujet

Philippe

 

[sylvanu]

Bonjour Hubert,
Quelle erreur avez vous ?
Dans la PJ la macro est exécutée par appui sur le bouton sans erreur générée.
Attention cependant, quand vous écrivez le résultat en AH5 vous exécutez aussi la macro Worksheet_Change.
Ce qui ici ne pose pas de problème mais il faut rester attentif à ce point. ( ou alors invalider cette macro avec des EnableEvents = False )

 

[vgendron]

bonjour

pas bien compris ce que tu voulais faire..

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Ligne = Target.Row 'ligne de la cellule modifiée
Set Zone = Range("D" & Ligne).Resize(1, 30) 'Colonne D à AG de la ligne

Range("AH" & Ligne) = WorksheetFunction.Sum(Zone)
Application.EnableEvents = True
End Sub

sinon.. il y a des formules... en AH5
=somme(D5:AG5)

et tu tires vers le bas...

 

[Hubert1959]

bonjour

pas bien compris ce que tu voulais faire..

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Ligne = Target.Row 'ligne de la cellule modifiée
Set Zone = Range("D" & Ligne).Resize(1, 30) 'Colonne D à AG de la ligne

Range("AH" & Ligne) = WorksheetFunction.Sum(Zone)
Application.EnableEvents = True
End Sub

sinon.. il y a des formules... en AH5
=somme(D5:AG5)

et tu tires vers le bas...

Je voulais simplement introduire ma formule dans mon VBA existant
Sub TestFonction()
Range("AH5") = Application.WorksheetFunction.Sum(Range("D5:AG5"))
End Sub
visiblement ça fonctionne mal
cette formule me permet d'avoir un résultat par ligne (cellule en jaune)
tires vers le bas ne fonctionne pas aussi.

 

[vgendron]

tu veux inscrire une formule PAR VBA DANS la feuille? ou tu veux ecrire directement le résultat DANS la feuille mais calculé PAR VBA ??

 

[sylvanu]

Re,
Essayez avec :

Sub TestFonction()
    Application.EnableEvents = False
    Range("AH5:AH35").Formula = "=Sum(D5:AG5)"
    Application.EnableEvents = True
End Sub

 

[Hubert1959]

Je voulais simplement introduire ma formule dans mon VBA existant
Sub TestFonction()
Range("AH5") = Application.WorksheetFunction.Sum(Range("D5:AG5"))
End Sub
visiblement ça fonctionne mal
cette formule me permet d'avoir un résultat par ligne (cellule en jaune)
tires vers le bas ne fonctionne pas aussi.

voici mon souci
une image du problème en 3éme ligne normalement ça fonctionne
mais là ?

 

[sylvanu]

Avez vous essayé le code du post #6 ?
Votre problème ressemble à de la ré entrance.
Vous modifiez une cellule ce qui déclenche une macro, etc etc.

 

[vgendron]

Avez vous essayé le code du post #6 ?
Votre problème ressemble à de la ré entrance.
Vous modifiez une cellule ce qui déclenche une macro, etc etc

Salut Sylvanu

j'ai l'impression qu'il n'a rien essayé du tout... et qu'il se contente de dire "je voudrais..."

 

[sylvanu]

Re,
Alors dans ce cas, du tout cuit en PJ avec :

Sub FaireSomme()
    Dim Formule$
    Formule = "=IF(B5="""","""",SUM(D5:AG5))"
    Application.EnableEvents = False
    Range("AH5:AH35").Formula = Formule
    Range("AH5:AH35") = Range("AH5:AH35").Value
    Application.EnableEvents = True
End Sub

et la modif dans Worksheet_Change en rajoutant FaireSomme pour mettre à jour les lignes.

 

[Hubert1959]

Merci beaucoup pour cette aide précieuse.

De mon côté j’avais repris depuis le début toutes les propositions et j’avais mal placer les lignes au bonne endroit.

Et ce matin j’ai enfin réussi (bon je suis un débutant) je bricole !

J’ai regardé le dernier fichier que tu m’as envoyé c’est exactement ce que je cherchais a faire.

De mon côté je t’envoie pour info.

Désolé pour tout ce dérangement (je n’avais pas tout compris dès le début)

Débutant je suis.
Merci beaucoup

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Ligne = Target.Row 'ligne de la cellule modifiée
Set Zone = Range("D" & Ligne).Resize(1, 30) 'Colonne D à AG de la ligne

Range("AH" & Ligne) = WorksheetFunction.Sum(Zone)
Application.EnableEvents = True

With Sheets("Mémoire")
    .Cells(Application.Match([A5], .[A:A], 0), 2).Resize(31, 33) = [B5:AH35].Value 'copie les valeurs
End With
'Columns.AutoFit 'ajustement largeurs
End Sub

Private Sub Worksheet_Calculate()
Application.EnableEvents = False 'désactive les évènements
With Sheets("Mémoire")
    [B5:AH35] = .Cells(Application.Match([A5], .[A:A], 0), 2).Resize(31, 33).Value 'copie les valeurs
End With
Application.EnableEvents = True 'réactive les évènements
End Sub