bonjour,
je voudrait créer une macro qui dit ceci:
"=Soustotal(9;"la cellule ou je me trouve +1 vers le bas";"la dernière
cellule remplie de la colonne ou je me trouve"
Salut AV je n'aurais pas su placer les crochets Apres test cela fonctionne pas exactement comme sans crochets J'ai trouvé mais sans bien comprendre voici, à la place de lig j'ai mis 1 et col à 0 et bas -selection.row et cela marche... les R1C1 sont pas facile à comprendre(pour moi) Youky
| mais je suis un peu compliqué et je ne veux pas de ces $
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R[" & lig & "]C[" & col & "]:R[" & bas & "]C[" & col & "])"
AV
Salut AV
je n'aurais pas su placer les crochets
Apres test cela fonctionne pas exactement comme sans crochets
J'ai trouvé mais sans bien comprendre
voici, à la place de lig j'ai mis 1 et col à 0 et bas -selection.row et cela
marche...
les R1C1 sont pas facile à comprendre(pour moi)
Youky
Salut AV je n'aurais pas su placer les crochets Apres test cela fonctionne pas exactement comme sans crochets J'ai trouvé mais sans bien comprendre voici, à la place de lig j'ai mis 1 et col à 0 et bas -selection.row et cela marche... les R1C1 sont pas facile à comprendre(pour moi) Youky
La solution la plus aprochante que j'ai truver est celle ci
Sub Sous_total() lig = Selection.Row + 1 col = Selection.Column bas = Cells(65536, col).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R" & lig & "C" & col & ":R" & bas & "C" & col & ")" ActiveCell.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
End Sub
Qui dit mieux ??
Jean-Pierre
michdenis
Bonjour Isabelle,
| Denis, le monsieur a dit "relatif" ;-)
j'aime bien que le demandeur participe à l'élaboration de la réponse...
s'il se contente de faire un copier-coller, c'est de l'absolu, s'il doit adapter même légèrement, c'est du relatif !!! C'est je crois ce qu'il demandait... n'est-ce pas ?
;-)
Salutations!
Bonjour Isabelle,
| Denis, le monsieur a dit "relatif" ;-)
j'aime bien que le demandeur participe à l'élaboration de la réponse...
s'il se contente de faire un copier-coller, c'est de l'absolu,
s'il doit adapter même légèrement, c'est du relatif !!!
C'est je crois ce qu'il demandait... n'est-ce pas ?
j'aime bien que le demandeur participe à l'élaboration de la réponse...
s'il se contente de faire un copier-coller, c'est de l'absolu, s'il doit adapter même légèrement, c'est du relatif !!! C'est je crois ce qu'il demandait... n'est-ce pas ?
;-)
Salutations!
Youky
tu n'a pas lu mon dernier message, ca marche bien comme tu le souhaite(sans les $) lig = Selection.Row bas = Cells(65536, Selection.Column).End(xlUp).Row ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R[" & 1 & "]" & "C[" & 0 & "]:R[" & bas - Selection.Row & "]C[" & 0 & "])"
"JP" a écrit dans le message de news:
La solution la plus aprochante que j'ai truver est celle ci
Sub Sous_total() lig = Selection.Row + 1 col = Selection.Column bas = Cells(65536, col).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R" & lig & "C" & col & ":R" & bas & "C" & col & ")" ActiveCell.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
End Sub
Qui dit mieux ??
Jean-Pierre
tu n'a pas lu mon dernier message, ca marche bien comme tu le souhaite(sans
les $)
lig = Selection.Row
bas = Cells(65536, Selection.Column).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R[" & 1 & "]" & "C[" & 0 & "]:R["
& bas - Selection.Row & "]C[" & 0 & "])"
"JP" <JP@discussions.microsoft.com> a écrit dans le message de news:
6F0708D0-902E-40AF-8131-2A1D47719F7C@microsoft.com...
La solution la plus aprochante que j'ai truver est celle ci
Sub Sous_total()
lig = Selection.Row + 1
col = Selection.Column
bas = Cells(65536, col).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R" & lig & "C" & col & ":R" &
bas
& "C" & col & ")"
ActiveCell.Replace What:="$", Replacement:="", LookAt:=xlPart,
SearchOrder:=xlByRows, MatchCase:úlse
tu n'a pas lu mon dernier message, ca marche bien comme tu le souhaite(sans les $) lig = Selection.Row bas = Cells(65536, Selection.Column).End(xlUp).Row ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R[" & 1 & "]" & "C[" & 0 & "]:R[" & bas - Selection.Row & "]C[" & 0 & "])"
"JP" a écrit dans le message de news:
La solution la plus aprochante que j'ai truver est celle ci
Sub Sous_total() lig = Selection.Row + 1 col = Selection.Column bas = Cells(65536, col).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9," & "R" & lig & "C" & col & ":R" & bas & "C" & col & ")" ActiveCell.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:úlse
End Sub
Qui dit mieux ??
Jean-Pierre
isabelle
:-))))))) abosolument oui isabelle
Bonjour Isabelle,
| Denis, le monsieur a dit "relatif" ;-)
j'aime bien que le demandeur participe à l'élaboration de la réponse...
s'il se contente de faire un copier-coller, c'est de l'absolu, s'il doit adapter même légèrement, c'est du relatif !!! C'est je crois ce qu'il demandait... n'est-ce pas ?
;-)
Salutations!
:-))))))) abosolument oui
isabelle
Bonjour Isabelle,
| Denis, le monsieur a dit "relatif" ;-)
j'aime bien que le demandeur participe à l'élaboration de la réponse...
s'il se contente de faire un copier-coller, c'est de l'absolu,
s'il doit adapter même légèrement, c'est du relatif !!!
C'est je crois ce qu'il demandait... n'est-ce pas ?
j'aime bien que le demandeur participe à l'élaboration de la réponse...
s'il se contente de faire un copier-coller, c'est de l'absolu, s'il doit adapter même légèrement, c'est du relatif !!! C'est je crois ce qu'il demandait... n'est-ce pas ?
;-)
Salutations!
JP
Merci Youki je n'avait pas lu ton dernier message c'et tout a fait ce que je voulait
Et merci a tous pour leur aide
Jean-Pierre
Merci Youki
je n'avait pas lu ton dernier message c'et tout a fait ce que je voulait
