A
AlainM
Guest
Bonjour tout le monde
J'ai un tableau ordinaire dans lequel j'ai une colonne avec la date au format JJ/MM/AA, dans la colonne d'à côté je l'ai mise au format "mois.-04" pour que celà puisse être pris en compte dans un tableau croisé dynamique afin de faire des statistiques mensuelles.
Le problème dans ma macro que voili, que voilou :
If Response2 = vbNo Then
'
Sheets("Situation").Activate
numligne = ActiveSheet.Range("N__fiche").Row
numcolonne = ActiveSheet.Range("N__fiche").Column
'
fin2 = Cells(65536, numcolonne).End(xlUp).Row + 1
numos2 = "=Tableau!" & numtab
Cells(fin2, numcolonne).Value = numos2
Cells(fin2, numcolonne).Select
zlien = "Tableau!" & numtab
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=zlien
Cells(fin2, numcolonne).Offset(0, 1).Value = Worksheets("Saisie").Range("Lieu").Value
Cells(fin2, numcolonne).Offset(0, 2).Value = Worksheets("Saisie").Range("Achèvement").Value
'Sélection du format de la date
Cells(fin2, numcolonne).Offset(0, 3).NumberFormat = "[$-40C]mmm-yy;@"
Cells(fin2, numcolonne).Offset(0, 3).FormulaR1C1 = "=RC[-1]"
Cells(fin2, numcolonne).Offset(0, 7).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
'
Sheets("Saisie").Activate
End If
j'ai récupéré en colonne 3 la valeur de la colonne 2 en y imposant un format. Dans mon TCD il ne prend que le format JJ/MM/AA car j'ai fait uné égalité et seulemen,t en changeant le format dans la colonne 3.
Mon TCD me prend donc à chaque fois la date de la colonne 2 et me classe mes données par date et non par mois.
Quelqu'un pourrait il me renseigner ?
Je vous remercie beaucoup.
Bonne journée à tous
@lain
J'ai un tableau ordinaire dans lequel j'ai une colonne avec la date au format JJ/MM/AA, dans la colonne d'à côté je l'ai mise au format "mois.-04" pour que celà puisse être pris en compte dans un tableau croisé dynamique afin de faire des statistiques mensuelles.
Le problème dans ma macro que voili, que voilou :
If Response2 = vbNo Then
'
Sheets("Situation").Activate
numligne = ActiveSheet.Range("N__fiche").Row
numcolonne = ActiveSheet.Range("N__fiche").Column
'
fin2 = Cells(65536, numcolonne).End(xlUp).Row + 1
numos2 = "=Tableau!" & numtab
Cells(fin2, numcolonne).Value = numos2
Cells(fin2, numcolonne).Select
zlien = "Tableau!" & numtab
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=zlien
Cells(fin2, numcolonne).Offset(0, 1).Value = Worksheets("Saisie").Range("Lieu").Value
Cells(fin2, numcolonne).Offset(0, 2).Value = Worksheets("Saisie").Range("Achèvement").Value
'Sélection du format de la date
Cells(fin2, numcolonne).Offset(0, 3).NumberFormat = "[$-40C]mmm-yy;@"
Cells(fin2, numcolonne).Offset(0, 3).FormulaR1C1 = "=RC[-1]"
Cells(fin2, numcolonne).Offset(0, 7).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
'
Sheets("Saisie").Activate
End If
j'ai récupéré en colonne 3 la valeur de la colonne 2 en y imposant un format. Dans mon TCD il ne prend que le format JJ/MM/AA car j'ai fait uné égalité et seulemen,t en changeant le format dans la colonne 3.
Mon TCD me prend donc à chaque fois la date de la colonne 2 et me classe mes données par date et non par mois.
Quelqu'un pourrait il me renseigner ?
Je vous remercie beaucoup.
Bonne journée à tous
@lain