Je rencontre un petit probleme dans la seconde partie de ma macro, je
souhaitais
calculer la somme et l'afficher a la fin de la colonne .
Pourriez vous jeter un coup d'oeil et m'apporter une suggestion pour
resoudre mon probleme?
Merci d'avance pour votre aide
hugo
Sub SelectionNC()
Dim MonCritere
Set bbb = ActiveWorkbook
For i = 1 To 8
MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de
mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur
aaa.SaveAs Filename:=MonCritere & Range("n2") & a12
bbb.Worksheets("feuil2").Range("A1").EntireRow.Copy
Destination:=aaa.Worksheets("Feuil1").Range("a1")
cpt = 2
For j = 1 To 350
If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then
bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy
Destination:=aaa.Worksheets("Feuil1").Range("a" & cpt)
cpt = cpt + 1
End If
Next j
‘2 eme partie dans laquelle je calcule la somme
Dim Nbrlignes
Nbrlignes = Range("a1").End(xlDown).Row
Dim derligne
derligne = Nbrlignes + 1
Cells(derligne, 2).Activate
ActiveCell.Value = WorksheetFunction.Sum(Range(Cells(2, 2),
Cells(derlignes, 2)))
Next i
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
jps
bonjour hugo ne serait-ce pas parce que tu as écrit une fois ta variable "derligne" "derligneS"? je ne faisais que passer, profitant d'un moment où Bianca reprenait sa respiration et donc, mon survol est peut-être à côté de la plaque.... tu nous diras, hugo jps
"hugo" a écrit dans le message de news:
bonjour à tous,
Je rencontre un petit probleme dans la seconde partie de ma macro, je souhaitais calculer la somme et l'afficher a la fin de la colonne . Pourriez vous jeter un coup d'oeil et m'apporter une suggestion pour resoudre mon probleme? Merci d'avance pour votre aide hugo
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 8 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere & Range("n2") & a12 bbb.Worksheets("feuil2").Range("A1").EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a1") cpt = 2 For j = 1 To 350 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j
'2 eme partie dans laquelle je calcule la somme Dim Nbrlignes Nbrlignes = Range("a1").End(xlDown).Row Dim derligne derligne = Nbrlignes + 1 Cells(derligne, 2).Activate ActiveCell.Value = WorksheetFunction.Sum(Range(Cells(2, 2), Cells(derlignes, 2))) Next i
Set aaa = Nothing
End Sub
bonjour hugo
ne serait-ce pas parce que tu as écrit une fois ta variable "derligne"
"derligneS"?
je ne faisais que passer, profitant d'un moment où Bianca reprenait sa
respiration et donc, mon survol est peut-être à côté de la plaque....
tu nous diras, hugo
jps
"hugo" <hugo@discussions.microsoft.com> a écrit dans le message de news:
C9432245-F5C3-4DC2-9263-A5B20B3AEB29@microsoft.com...
bonjour à tous,
Je rencontre un petit probleme dans la seconde partie de ma macro, je
souhaitais
calculer la somme et l'afficher a la fin de la colonne .
Pourriez vous jeter un coup d'oeil et m'apporter une suggestion pour
resoudre mon probleme?
Merci d'avance pour votre aide
hugo
Sub SelectionNC()
Dim MonCritere
Set bbb = ActiveWorkbook
For i = 1 To 8
MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de
mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur
aaa.SaveAs Filename:=MonCritere & Range("n2") & a12
bbb.Worksheets("feuil2").Range("A1").EntireRow.Copy
Destination:ªa.Worksheets("Feuil1").Range("a1")
cpt = 2
For j = 1 To 350
If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then
bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy
Destination:ªa.Worksheets("Feuil1").Range("a" & cpt)
cpt = cpt + 1
End If
Next j
'2 eme partie dans laquelle je calcule la somme
Dim Nbrlignes
Nbrlignes = Range("a1").End(xlDown).Row
Dim derligne
derligne = Nbrlignes + 1
Cells(derligne, 2).Activate
ActiveCell.Value = WorksheetFunction.Sum(Range(Cells(2, 2),
Cells(derlignes, 2)))
Next i
bonjour hugo ne serait-ce pas parce que tu as écrit une fois ta variable "derligne" "derligneS"? je ne faisais que passer, profitant d'un moment où Bianca reprenait sa respiration et donc, mon survol est peut-être à côté de la plaque.... tu nous diras, hugo jps
"hugo" a écrit dans le message de news:
bonjour à tous,
Je rencontre un petit probleme dans la seconde partie de ma macro, je souhaitais calculer la somme et l'afficher a la fin de la colonne . Pourriez vous jeter un coup d'oeil et m'apporter une suggestion pour resoudre mon probleme? Merci d'avance pour votre aide hugo
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 8 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere & Range("n2") & a12 bbb.Worksheets("feuil2").Range("A1").EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a1") cpt = 2 For j = 1 To 350 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j
'2 eme partie dans laquelle je calcule la somme Dim Nbrlignes Nbrlignes = Range("a1").End(xlDown).Row Dim derligne derligne = Nbrlignes + 1 Cells(derligne, 2).Activate ActiveCell.Value = WorksheetFunction.Sum(Range(Cells(2, 2), Cells(derlignes, 2))) Next i
