voilà je cherche a faire par macro, une recherche de mot
"sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver
mettre
la formule de somme de toutes les lignes du dessous en colonne L jusqu'au
prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
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
Daniel.C
Bonjour. Essaie : Sub test() Dim ligne As Long, c As Range, ResLigne As Long ResLigne = 1 For Each c In Range("L1", Range("L65536").End(xlUp)) If LCase(Cells(c.Row, 10)) = "sous total" Then Cells(c.Row, 12).Formula = "=sum(L" & ResLigne & ":L" & c.Row - 1 & ")" ResLigne = c.Row + 1 End If Next c End Sub Cordialement. Daniel "Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Bonjour.
Essaie :
Sub test()
Dim ligne As Long, c As Range, ResLigne As Long
ResLigne = 1
For Each c In Range("L1", Range("L65536").End(xlUp))
If LCase(Cells(c.Row, 10)) = "sous total" Then
Cells(c.Row, 12).Formula = "=sum(L" & ResLigne & ":L" & c.Row -
1 & ")"
ResLigne = c.Row + 1
End If
Next c
End Sub
Cordialement.
Daniel
"Cyr13" <Cyr13@discussions.microsoft.com> a écrit dans le message de news:
E5B41606-9F85-4D2E-A4A0-2FAD896AD4F3@microsoft.com...
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot
"sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver
mettre
la formule de somme de toutes les lignes du dessous en colonne L jusqu'au
prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
Bonjour. Essaie : Sub test() Dim ligne As Long, c As Range, ResLigne As Long ResLigne = 1 For Each c In Range("L1", Range("L65536").End(xlUp)) If LCase(Cells(c.Row, 10)) = "sous total" Then Cells(c.Row, 12).Formula = "=sum(L" & ResLigne & ":L" & c.Row - 1 & ")" ResLigne = c.Row + 1 End If Next c End Sub Cordialement. Daniel "Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Jacky
Bonsoir,
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
Pourquoi pas les fonctions SOUS.TOTAL(9;Lx:Ln) et SOUS.TOTAL(3;Lx:Ln) Voir ici: http://cjoint.com/?ihuAz23v6v -- Salutations JJ
"Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Bonsoir,
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
Pourquoi pas les fonctions SOUS.TOTAL(9;Lx:Ln) et SOUS.TOTAL(3;Lx:Ln)
Voir ici:
http://cjoint.com/?ihuAz23v6v
--
Salutations
JJ
"Cyr13" <Cyr13@discussions.microsoft.com> a écrit dans le message de news:
E5B41606-9F85-4D2E-A4A0-2FAD896AD4F3@microsoft.com...
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot
"sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver
mettre
la formule de somme de toutes les lignes du dessous en colonne L jusqu'au
prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
Pourquoi pas les fonctions SOUS.TOTAL(9;Lx:Ln) et SOUS.TOTAL(3;Lx:Ln) Voir ici: http://cjoint.com/?ihuAz23v6v -- Salutations JJ
"Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Cyr73
merci Daniel.C
cela marche du super, sauf que j'ai omis de dire qu'il fallait faire les sommes des lignes en dessous du mot "sous total".
merci ps: cela est vrai je ne suis pas bon en français désolé.
merci Daniel.C
cela marche du super,
sauf que j'ai omis de dire qu'il fallait faire les sommes des lignes en
dessous du
mot "sous total".
merci
ps: cela est vrai je ne suis pas bon en français désolé.
cela marche du super, sauf que j'ai omis de dire qu'il fallait faire les sommes des lignes en dessous du mot "sous total".
merci ps: cela est vrai je ne suis pas bon en français désolé.
Daniel.C
Alors :
Sub test() Dim ligne As Long, c As Range, ResLigne As Long ResLigne = 1 For Each c In Range("L1", Range("L65536").End(xlUp)) If LCase(Cells(c.Row, 10)) = "sous total" Then Cells(c.Row + 1, 12).Formula = "=sum(L" & _ ResLigne & ":L" & c.Row & ")" ResLigne = c.Row + 1 End If Next c End Sub
Daniel "Cyr73" a écrit dans le message de news:
merci Daniel.C
cela marche du super, sauf que j'ai omis de dire qu'il fallait faire les sommes des lignes en dessous du mot "sous total".
merci ps: cela est vrai je ne suis pas bon en français désolé.
Alors :
Sub test()
Dim ligne As Long, c As Range, ResLigne As Long
ResLigne = 1
For Each c In Range("L1", Range("L65536").End(xlUp))
If LCase(Cells(c.Row, 10)) = "sous total" Then
Cells(c.Row + 1, 12).Formula = "=sum(L" & _
ResLigne & ":L" & c.Row & ")"
ResLigne = c.Row + 1
End If
Next c
End Sub
Daniel
"Cyr73" <Cyr73@discussions.microsoft.com> a écrit dans le message de news:
A52FE0F1-7EA4-4F93-88F6-CD36028D9550@microsoft.com...
merci Daniel.C
cela marche du super,
sauf que j'ai omis de dire qu'il fallait faire les sommes des lignes en
dessous du
mot "sous total".
merci
ps: cela est vrai je ne suis pas bon en français désolé.
Sub test() Dim ligne As Long, c As Range, ResLigne As Long ResLigne = 1 For Each c In Range("L1", Range("L65536").End(xlUp)) If LCase(Cells(c.Row, 10)) = "sous total" Then Cells(c.Row + 1, 12).Formula = "=sum(L" & _ ResLigne & ":L" & c.Row & ")" ResLigne = c.Row + 1 End If Next c End Sub
Daniel "Cyr73" a écrit dans le message de news:
merci Daniel.C
cela marche du super, sauf que j'ai omis de dire qu'il fallait faire les sommes des lignes en dessous du mot "sous total".
merci ps: cela est vrai je ne suis pas bon en français désolé.
Cyr73
merci de ta réponse aussi rapide
cela ne fonctionne pas exactement comme il me faudrais car cette fois la somme se trouve sous la ligne Sous total en fait la premiere ligne qui comporte le mot sous total et la ligne J5 et la somme en L5 ,la formule somme de L6 a prochain sous total vers le bas.
un grand merci a toi.
merci de ta réponse aussi rapide
cela ne fonctionne pas exactement comme il me faudrais
car cette fois la somme se trouve sous la ligne Sous total
en fait la premiere ligne qui comporte le mot sous total
et la ligne J5 et la somme en L5 ,la formule somme de L6 a prochain sous
total
vers le bas.
cela ne fonctionne pas exactement comme il me faudrais car cette fois la somme se trouve sous la ligne Sous total en fait la premiere ligne qui comporte le mot sous total et la ligne J5 et la somme en L5 ,la formule somme de L6 a prochain sous total vers le bas.
un grand merci a toi.
Mgr.Abile
Bonsoir, Je ne résiste plus à un tout petit sermon du soir sur l'admirable abnégation de ceux qui prennent la peine de lire et de tenter de comprendre des questions comme celle ci. Il faut en effet qu'ils s'accrochent pour arriver à deviner : "qu'a chaque fois que ce mot est trouvé" derrière "qu'a chaque fois que se mots et trouver" et de continuer à se demander s'ils ne font pas fausse route. Et si ces contributeurs répondaient avec autant d'approximation dans la syntaxe ou l'orthographe du code à fournir ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Bonsoir,
Je ne résiste plus à un tout petit sermon du soir sur l'admirable abnégation
de ceux qui prennent la peine de lire et de tenter de comprendre des
questions comme celle ci.
Il faut en effet qu'ils s'accrochent pour arriver à deviner :
"qu'a chaque fois que ce mot est trouvé"
derrière
"qu'a chaque fois que se mots et trouver"
et de continuer à se demander s'ils ne font pas fausse route.
Et si ces contributeurs répondaient avec autant d'approximation dans la
syntaxe ou l'orthographe du code à fournir ?
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"Cyr13" <Cyr13@discussions.microsoft.com> a écrit dans le message de
news:E5B41606-9F85-4D2E-A4A0-2FAD896AD4F3@microsoft.com...
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot
"sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver
mettre
la formule de somme de toutes les lignes du dessous en colonne L jusqu'au
prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
Bonsoir, Je ne résiste plus à un tout petit sermon du soir sur l'admirable abnégation de ceux qui prennent la peine de lire et de tenter de comprendre des questions comme celle ci. Il faut en effet qu'ils s'accrochent pour arriver à deviner : "qu'a chaque fois que ce mot est trouvé" derrière "qu'a chaque fois que se mots et trouver" et de continuer à se demander s'ils ne font pas fausse route. Et si ces contributeurs répondaient avec autant d'approximation dans la syntaxe ou l'orthographe du code à fournir ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Daniel.C
Bonjour. Désolé d'avoir lu de travers. Essaie :
Sub test1() Dim Ligne As Long, c As Range, ResLigne As Long For Each c In Range("L1", Range("L65536").End(xlUp)) If LCase(Cells(c.Row, 10)) = "sous total" Then If ResLigne > 0 Then Cells(ResLigne, 12).Formula = "=sum(L" & _ ResLigne + 1 & ":L" & c.Row - 1 & ")" End If ResLigne = c.Row End If Next c Ligne = Range("L65536").End(xlUp).Row Cells(ResLigne, 12).Formula = "=sum(L" & _ ResLigne + 1 & ":L" & Ligne & ")" End Sub
Cordialement. Daniel "Cyr73" a écrit dans le message de news:
merci de ta réponse aussi rapide
cela ne fonctionne pas exactement comme il me faudrais car cette fois la somme se trouve sous la ligne Sous total en fait la premiere ligne qui comporte le mot sous total et la ligne J5 et la somme en L5 ,la formule somme de L6 a prochain sous total vers le bas.
un grand merci a toi.
Bonjour.
Désolé d'avoir lu de travers. Essaie :
Sub test1()
Dim Ligne As Long, c As Range, ResLigne As Long
For Each c In Range("L1", Range("L65536").End(xlUp))
If LCase(Cells(c.Row, 10)) = "sous total" Then
If ResLigne > 0 Then
Cells(ResLigne, 12).Formula = "=sum(L" & _
ResLigne + 1 & ":L" & c.Row - 1 & ")"
End If
ResLigne = c.Row
End If
Next c
Ligne = Range("L65536").End(xlUp).Row
Cells(ResLigne, 12).Formula = "=sum(L" & _
ResLigne + 1 & ":L" & Ligne & ")"
End Sub
Cordialement.
Daniel
"Cyr73" <Cyr73@discussions.microsoft.com> a écrit dans le message de news:
F94B131B-99D0-4679-9816-4452AF2C5C60@microsoft.com...
merci de ta réponse aussi rapide
cela ne fonctionne pas exactement comme il me faudrais
car cette fois la somme se trouve sous la ligne Sous total
en fait la premiere ligne qui comporte le mot sous total
et la ligne J5 et la somme en L5 ,la formule somme de L6 a prochain sous
total
vers le bas.
Sub test1() Dim Ligne As Long, c As Range, ResLigne As Long For Each c In Range("L1", Range("L65536").End(xlUp)) If LCase(Cells(c.Row, 10)) = "sous total" Then If ResLigne > 0 Then Cells(ResLigne, 12).Formula = "=sum(L" & _ ResLigne + 1 & ":L" & c.Row - 1 & ")" End If ResLigne = c.Row End If Next c Ligne = Range("L65536").End(xlUp).Row Cells(ResLigne, 12).Formula = "=sum(L" & _ ResLigne + 1 & ":L" & Ligne & ")" End Sub
Cordialement. Daniel "Cyr73" a écrit dans le message de news:
merci de ta réponse aussi rapide
cela ne fonctionne pas exactement comme il me faudrais car cette fois la somme se trouve sous la ligne Sous total en fait la premiere ligne qui comporte le mot sous total et la ligne J5 et la somme en L5 ,la formule somme de L6 a prochain sous total vers le bas.
un grand merci a toi.
Jacquouille
Monseigneur, Si j'ai bien compris votre ôde à l'orthographe.... ... de deux mots, choisissons le moindre. Qui se justifie par l'effet du moindre effort. -) Heureux de vous lire.
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Mgr.Abile" a écrit dans le message de news: e8IKMNS%
Bonsoir, Je ne résiste plus à un tout petit sermon du soir sur l'admirable abnégation de ceux qui prennent la peine de lire et de tenter de comprendre des questions comme celle ci. Il faut en effet qu'ils s'accrochent pour arriver à deviner : "qu'a chaque fois que ce mot est trouvé" derrière "qu'a chaque fois que se mots et trouver" et de continuer à se demander s'ils ne font pas fausse route. Et si ces contributeurs répondaient avec autant d'approximation dans la syntaxe ou l'orthographe du code à fournir ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Monseigneur,
Si j'ai bien compris votre ôde à l'orthographe....
... de deux mots, choisissons le moindre.
Qui se justifie par l'effet du moindre effort. -)
Heureux de vous lire.
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Mgr.Abile" <Abile@lacurie.va> a écrit dans le message de news:
e8IKMNS%23IHA.4476@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Je ne résiste plus à un tout petit sermon du soir sur l'admirable
abnégation
de ceux qui prennent la peine de lire et de tenter de comprendre des
questions comme celle ci.
Il faut en effet qu'ils s'accrochent pour arriver à deviner :
"qu'a chaque fois que ce mot est trouvé"
derrière
"qu'a chaque fois que se mots et trouver"
et de continuer à se demander s'ils ne font pas fausse route.
Et si ces contributeurs répondaient avec autant d'approximation dans la
syntaxe ou l'orthographe du code à fournir ?
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"Cyr13" <Cyr13@discussions.microsoft.com> a écrit dans le message de
news:E5B41606-9F85-4D2E-A4A0-2FAD896AD4F3@microsoft.com...
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot
"sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver
mettre
la formule de somme de toutes les lignes du dessous en colonne L jusqu'au
prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl
--
un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la
peine de lire mon probleme..
Monseigneur, Si j'ai bien compris votre ôde à l'orthographe.... ... de deux mots, choisissons le moindre. Qui se justifie par l'effet du moindre effort. -) Heureux de vous lire.
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Mgr.Abile" a écrit dans le message de news: e8IKMNS%
Bonsoir, Je ne résiste plus à un tout petit sermon du soir sur l'admirable abnégation de ceux qui prennent la peine de lire et de tenter de comprendre des questions comme celle ci. Il faut en effet qu'ils s'accrochent pour arriver à deviner : "qu'a chaque fois que ce mot est trouvé" derrière "qu'a chaque fois que se mots et trouver" et de continuer à se demander s'ils ne font pas fausse route. Et si ces contributeurs répondaient avec autant d'approximation dans la syntaxe ou l'orthographe du code à fournir ? -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Cyr13" a écrit dans le message de news:
bonjour,a tous
voilà je cherche a faire par macro, une recherche de mot "sous Total" dans la colonne J et qu'a chaque fois que se mots et trouver mettre la formule de somme de toutes les lignes du dessous en colonne L jusqu'au prochain mots "sous total" dans la meme colonne.
ps:dejà poster mais je n'ai pas compris la solution de "PapyJac"dsl -- un grand merci a ceux qui pourrons m aider et a ceux qui auront pris la peine de lire mon probleme..
Cyr73
bonjour, Daniel.C
que dire sinon un grand merci tu m'a permis de gagner un temps phénoménal
merci aussi a ceux qui m'ont répondu même si ils étaient hors sujet, je plaisante
bonjour, Daniel.C
que dire sinon un grand merci
tu m'a permis de gagner un temps phénoménal
merci aussi a ceux qui m'ont répondu même si ils étaient hors sujet, je
plaisante
