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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
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/
Cette page est transmise avec des électrons 100% recyclés.
"David" <bs173990@skynet.be> a écrit dans le message de news:
OTPrhK0pKHA.1552@TK2MSFTNGP05.phx.gbl...
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.
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.
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.
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" <bs173990@skynet.be> a écrit dans le message de groupe de discussion :
OTPrhK0pKHA.1552@TK2MSFTNGP05.phx.gbl...
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.
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.
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.
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" <bs173990@skynet.be> a écrit dans le message de groupe de discussion :
unsoTZ0pKHA.5760@TK2MSFTNGP02.phx.gbl...
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/
Cette page est transmise avec des électrons 100% recyclés.
"David" <bs173990@skynet.be> a écrit dans le message de news:
OTPrhK0pKHA.1552@TK2MSFTNGP05.phx.gbl...
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.
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.
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.
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/
Cette page est transmise avec des électrons 100% recyclés.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23wNozc0pKHA.5760@TK2MSFTNGP02.phx.gbl...
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" <bs173990@skynet.be> a écrit dans le message de groupe de
discussion :
OTPrhK0pKHA.1552@TK2MSFTNGP05.phx.gbl...
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.
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.