Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

addition de cellules même colone

4 réponses
Avatar
David
Bonjour à tous,

Comment obtenir la somme de toutes les
cellules jusque la 1ere cellule vide de la colonne D
part exemple.
Sous XP, Excel 2003 et VBA.

Merci à tous.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.

4 réponses

Avatar
David
Re-Boujour,

Je me réponds à moi-même :

Adresse = Range("D2:D65536").End(xlDown).Row
Formule = "=SUM(D2:D" & (Adresse - 1) & ")"
Range("D" & Adresse + 2).Value = Formule

S'i y a mieux je suis preneur.

Merci.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.

"David" a écrit dans le message de news:

Bonjour à tous,

Comment obtenir la somme de toutes les
cellules jusque la 1ere cellule vide de la colonne D
part exemple.
Sous XP, Excel 2003 et VBA.

Merci à tous.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.




Avatar
michdenis
Bonjour,

Une suggestion...

Si après la première ligne vide, tu n'as pas de saisie de données
dans le reste de la colonne, tu peux utiliser :
=Somme(D:D) -> fait la somme de la colonne D

En VBA -> X = Application.Sum(range("D:D"))


Pour additionner de D1 à Dx x étant la première ligne vide
rencontrée :

Validation matricielle : Ctrl + Maj + Enter
=SOMME(INDIRECT("D1:D"&MIN(SI(NBCAR(D:D)=0;LIGNE(D:D)))))



"David" a écrit dans le message de groupe de discussion :

Bonjour à tous,

Comment obtenir la somme de toutes les
cellules jusque la 1ere cellule vide de la colonne D
part exemple.
Sous XP, Excel 2003 et VBA.

Merci à tous.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
Avatar
michdenis
Et cette syntaxe :

With Range("D2:D" & Range("D65536").End(xlUp).Row - 1)
.Offset(.Rows.Count + 3).Resize(1).Formula = "=Sum(" & .Address & ")"
End With




"David" a écrit dans le message de groupe de discussion :

Re-Boujour,

Je me réponds à moi-même :

Adresse = Range("D2:D65536").End(xlDown).Row
Formule = "=SUM(D2:D" & (Adresse - 1) & ")"
Range("D" & Adresse + 2).Value = Formule

S'i y a mieux je suis preneur.

Merci.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.

"David" a écrit dans le message de news:

Bonjour à tous,

Comment obtenir la somme de toutes les
cellules jusque la 1ere cellule vide de la colonne D
part exemple.
Sous XP, Excel 2003 et VBA.

Merci à tous.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.




Avatar
David
Bonjour,

Merci pour vos réponses.
Je ne sais pas ou vous allez chercher tout cela;
à mon avis vous devez avoir 2 cerveaux :-))

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.

"michdenis" a écrit dans le message de news:
%
Bonjour,

Une suggestion...

Si après la première ligne vide, tu n'as pas de saisie de données
dans le reste de la colonne, tu peux utiliser :
=Somme(D:D) -> fait la somme de la colonne D

En VBA -> X = Application.Sum(range("D:D"))


Pour additionner de D1 à Dx x étant la première ligne vide
rencontrée :

Validation matricielle : Ctrl + Maj + Enter
=SOMME(INDIRECT("D1:D"&MIN(SI(NBCAR(D:D)=0;LIGNE(D:D)))))



"David" a écrit dans le message de groupe de
discussion :

Bonjour à tous,

Comment obtenir la somme de toutes les
cellules jusque la 1ere cellule vide de la colonne D
part exemple.
Sous XP, Excel 2003 et VBA.

Merci à tous.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.