Re : CRLF sous Excell
bonjour a toi tototiti2008
c est l epoque de noel et avant la fin du monde je viens te consulter sur un code vba
j ai fait un TCD en enregistrant le code et ca donne donc cela en vba
Sub TCD_ETRANGER()
'
' Macro1 Macro
' Macro enregistrée le 14/12/2012 par Bruno
'
'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'Sheet 1'!R1C6:R50000C7").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"COMMUNE", PageFields:="CODE_POSTAL"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("COMMUNE"). _
Orientation = xlDataField
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("CODE_POSTAL") _
.CurrentPage = "99"
End Sub
avec ce code je fais un TCD avec en tete de page le code postal que je veux.. ici 99 (sur 2 chiffres) et en dessous les communes correspondant avec en face le nombre de commune du departement 99
il faut savoir que pour nous quand on a 99 dans un cp adresse, la commune telle que nous la connaissons contient ici le pays (allemagne, italie ...)
ma macro compterai donc les pays par ce biais la
j ai donc avec ce code 99 en haut
et dessous ALLEMAGNE 5
Italie 3
etc....
toutefois quand je clique dans l item Commune je devrais avoir que les communes correspondant au code 99 ?? j ai toutes les commune meme les francaises (car le fichier est complet 01 02 03) et 99 que je selectionne dans mon code
quand je lance ma macros ca marche nickel je n ai que ALLEMAGNE BELGIQUE mais si pour une raison on veut cliquer dans communes ca me remonte toutes les communes francaise et etrangere.. comment relie l item communes à l item preselectionne 99 ?
Merci par avance de ton aide, je met cela a ton credit et donc serait ton debiteur
bruno