VBA: Somme en ligne

[roza]

Bonjour,

J'ai un tableau dans lequel je souhaiterai faire la somme de plusieurs valeurs.
Celles-ci, sont en ligne et doivent être réalisées en colonne, comme suit:

DN=DK+DL+DM
DT=DQ+DR+DS
EC=DX+DY+DZ+EA+EB
EW=ET+EU+EV

Merci de votre aide

 

[phlaurent55]

Re : VBA: Somme en ligne

Bonjour Roza,

la question posée n'est pas évidente à comprendre

DN=DK+DL+DM
DT=DQ+DR+DS
EC=DX+DY+DZ+EA+EB
EW=ET+EU+EV

s'agit-il de zones nommées, de colonnes (sans le N° de ligne)
ou autre chose

sans fichier joint, les réponses risquent de se faire attendre

à+
Philippe

 

[roza]

Re : VBA: Somme en ligne

Bonjour Philippe,

Ci-joint, le fichier et en effet ce sera plus parlant.

http://cjoint.com/?3LgqdYlnqAX

Merci

 

[roza]

Re : VBA: Somme en ligne

Re-bonjour,

Est-ce que quelqu'un aurait une réponse pour moi, svp?

Merci

 

[Paf]

Re : VBA: Somme en ligne

Bonjour,

je n'ai sans doute rien compris, mais, pourquoi du VBA?

en DN6 : =SOMME(DK6 : DM6)
en DT6 : =SOMME(DQ6 : DS6)
etc....
puis "tirer" les formules vers le bas

Bonne suite

 

[roza]

Re : VBA: Somme en ligne

Bonjour Paf,

J'ai en effet commencé par faire "somme" de cette façon, mais si je supprime la personne sélectionnée, ca efface toute
la ligne, ainsi que les additions des cellules (DN, DT, EC, EW).
D'où, le souhait de le faire en VBA.

En espérant que tu aies une idée,

Merci

 

[roza]

Re : VBA: Somme en ligne

Désolé de relancer le sujet, mais si l'un d'entre vous à cette réponse,
elle serait beaucoup appréciée.

Merci

 

[laurent950]

Re : VBA: Somme en ligne

Bonsoir,

J'ai compris dans 5 minutes c'est fait

laurent

 

[roza]

Re : VBA: Somme en ligne

Bonsoir laurent950,

Merci d'avoir répondu à mon appel.
J'attends ton retour

 

[laurent950]

Re : VBA: Somme en ligne

Bonsoir

Ca devrait être ok.

Sub test()
Dim wkb As Workbook
Dim wksf1 As Worksheet
Dim DN As Range
Dim DT As Range
Dim EC As Range
Dim EW As Range

Set wksf1 = Worksheets("Lectures Electriciens de Quart")
der = wksf1.Cells(65536, 1).End(xlUp).Row

For i = 6 To der
'somme plage
Set DN = wksf1.Range(wksf1.Cells(i, 115), wksf1.Cells(i, 117))
Set DT = wksf1.Range(wksf1.Cells(i, 121), wksf1.Cells(i, 123))
Set EC = wksf1.Range(wksf1.Cells(i, 128), wksf1.Cells(i, 132))
Set EW = wksf1.Range(wksf1.Cells(i, 150), wksf1.Cells(i, 152))

If wksf1.Cells(i, 115) <> "" Or wksf1.Cells(i, 116) <> "" Or wksf1.Cells(i, 117) <> "" Then
wksf1.Cells(i, 118) = "=Sum(" & DN.Address & ")"
End If

If wksf1.Cells(i, 121) <> "" Or wksf1.Cells(i, 122) <> "" Or wksf1.Cells(i, 123) <> "" Then
wksf1.Cells(i, 124) = "=Sum(" & DT.Address & ")"
End If

If wksf1.Cells(i, 128) <> "" Or wksf1.Cells(i, 129) <> "" Or wksf1.Cells(i, 130) <> "" _
Or wksf1.Cells(i, 131) <> "" Or wksf1.Cells(i, 132) <> "" Then
wksf1.Cells(i, 133) = "=Sum(" & EC.Address & ")"
End If

If wksf1.Cells(i, 150) <> "" Or wksf1.Cells(i, 151) <> "" Or wksf1.Cells(i, 152) <> "" Then
wksf1.Cells(i, 153) = "=Sum(" & EW.Address & ")"
End If

Set DN = Nothing
Set DT = Nothing
Set EC = Nothing
Set EW = Nothing
Next i

End Sub

PS : Si quelqu'un a plus simpe ou peux compresser le code je serais content de m'amlioré encore
un peux plus chaque jour
laurent

 

[roza]

Re : VBA: Somme en ligne

Wao!

En effet, c'était plus délicat que je ne pensais.
J'ai voulu essayer et ca me lance une erreur de compilation sur "der",
comme quoi elle n'est pas définie

 

[laurent950]

Re : VBA: Somme en ligne

Je ne sais pas d'ou peux venir l'erreur en faite der donne la position de la
derniere ligne de votre feuille colonne A donc peut être avec votre fichier
je vais pouvoir detecter cette erreur et peux être mettre l'option explicit
en entête.

 

[roza]

Re : VBA: Somme en ligne

Sur la feuille que je t'ai mis ca fonctionne, jusqu'à ce que je supprime la personne en colonne A.
On est obligé de relancer la macro

Sinon, je t'ai mis le fichier complet, la feuille en question est la première et le code est dans le
module 1.

http://cjoint.com/?3LgwfFfywTL

Merci