VBA Et Formule Somme
Bonjour,
J'essaye d'écrire une procédure qui me met aux lignes "Total" la formule =somme( ....) En fonction des lignes précédentes.
La difficulté c'est qu'il y a fréquemment des ajoux/suppressions de lignes, donc ma procédure doit prendre cela en compte.
Je vous joint un fichier excel qui vous montre tout cela et dans lequel j'ai commencé à coder ma procédure.
J'ai 2 soucis pour le moment ==> le code Ascii du caractère "
Et dans ma procédure, il ne remplace par la variable plage par son contenu :s
Vous verrez avec le fichier ça sera plus clair.
Merci d'avance
Bonjour
Essaie comme ceci :
Private Sub CommandButton1_Click()
Dim plage As String
Dim K As Byte, lg As Byte
plage = "P6:P"
lg = Range("K" & Rows.Count).End(xlUp).Row
For K = 6 To lg
Do Until Range("K" & K) Like "Total*"
K = K + 1
Loop
plage = plage & K - 1
If Range("K" & K) Like "Total*" Then
Range("P" & K).Formula = "=Sum(" & CStr(plage) & ")"
plage = "P" & K + 1 & ":P"
End If
Next K
End SubSi ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER
Amicalement
Bonjour tout le monde,
j'ai le même souci sauf que cette fois ci je veux qu'il fasse les totaux des colonnes D à T
merci de votre aide
Cdt,
Re,
hamyaa, ce fil est cloturé depuis 2012. Cela se voit sur le forum puisqu'il y a le V vert à coté du fil.
Ouvre donc un nouveau fil et fait véentuellement référence à celui-ci en copiant l'URL.
Merci DAN
je vais ouvrir une nouvelle discussion
A bientôt !!