Sommer le contenu des cellules qui se suivent
HanaeCh96
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je suis nouvelle sur le forum et en programmation VBA. Là je travaille sur mon projet de fin d'études et je dois réaliser quelques trucs avec VBA.
Je suis bloquée là, mon besoin est de chercher le groupe de cellules qui se suivent et qui contiennent des valeurs, les sommet et mettre cela dans la dernière cellule. je vais mettre en pièce jointe un fichier qui va faciliter la compréhension, merci beaucoup par avance !!
Bonne journée
Je suis nouvelle sur le forum et en programmation VBA. Là je travaille sur mon projet de fin d'études et je dois réaliser quelques trucs avec VBA.
Je suis bloquée là, mon besoin est de chercher le groupe de cellules qui se suivent et qui contiennent des valeurs, les sommet et mettre cela dans la dernière cellule. je vais mettre en pièce jointe un fichier qui va faciliter la compréhension, merci beaucoup par avance !!
Bonne journée
A voir également:
- Sommer le contenu des cellules qui se suivent
- Fusionner deux cellules excel en gardant le contenu - Guide
- Verrouiller des cellules excel - Guide
- Somme de plusieurs cellules excel - Guide
- Word a trouvé du contenu illisible - Guide
- Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide
1 réponse
Bonjour,
Essayez ceci
Cdlt
Essayez ceci
Sub Totaux()
Dim DerCol As Long, DerLig As Long
Dim i As Long, j As Long, c As Long
Application.ScreenUpdating = False
DerCol = Range("A1").End(xlToRight).Column
DerLig = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
For j = DerCol To 2 Step -1
c = j
If Cells(i, j) <> "" Then
Do
Total = Total + Cells(i, c)
Cells(i, c) = ""
c = c - 1
Loop While c > 1 And Cells(i, c) <> ""
Cells(i, j) = Total
End If
j = c
Total = 0
Next j
Next i
End Sub
Cdlt