[EXCEL 2003] VB résolution de plage

Résolu

Barsky Messages postés 45 Date d'inscription Statut Membre Dernière intervention -
Barsky Messages postés 45 Date d'inscription Statut Membre Dernière intervention - 21 nov. 2008 à 16:16

Bonjour,

cela fait quelques jours que je parcours comment ça marche, je suis super débutant (voila pour le niveau c'est fait), et j essaie de comprendre le vb (actuellement en BTS admin réseaux 2 mois de cours sans avoir aborder la programmation).

Je dois faire un TCD a partir d'une liste extensible. Mon soucis c'est que j'ai enregistré ma macro a partir de l'enregistreur (original non !!) et maintenant mon graphique et ma feuille "synthese" ne se limitent qu'aux cellules choisies lors de l'enregistrement de la macro ce qui me donne :

Application.WindowState = xlMinimized
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "resultats!R1C1:R11C5").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10 '

j'ai a peu près compris le principe en fait il faudrait que je traduise

"resultats!R1C1:R11C5"

3ieme ligne en

 Range("A1").Select 'test de selection tableau complet
    Range(Selection, Selection.End(xlToRight)).Select 'test de selection tableau complet vers la droite
    Range(Selection, Selection.End(xlDown)).Select 'test de selection tableau complet vers le bas

Et voila mon ignorance qui rentre en jeux pourriez vous me filer un petit coup de main ?

Merci d'avance

A voir également:

[EXCEL 2003] VB résolution de plage
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Déplacer colonne excel - Guide
Si ou excel - Guide
Fiche de pointage excel - Télécharger - Tableur

5 réponses

Réponse 1 / 5

Barsky Messages postés 45 Date d'inscription Statut Membre Dernière intervention 11

Réponse 2 / 5

Barsky Messages postés 45 Date d'inscription Statut Membre Dernière intervention 11

Personne ne peut me renseigner pour ce petit problème ?

Réponse 3 / 5

wilfried_42 Messages postés 907 Date d'inscription Statut Contributeur Dernière intervention 245

Bonjour

essaye cela

msgbox Range("A1").currentregion.address

t'affichera les coordonnées de ta table en fonction de A1

ce qui te donnerait :

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "resultats!" & range("A1").CurrentRegion.address).CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10

--
Cordialement
Wilfried

ps: n'oubliez pas de mettre votre fil sur résolu quand vous obtenez ce que vous cherchez. Merci

Réponse 4 / 5

Barsky Messages postés 45 Date d'inscription Statut Membre Dernière intervention 11

Je vais tester ca je te tiens au courant
merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Barsky Messages postés 45 Date d'inscription Statut Membre Dernière intervention 11

ton bout de macro marche a la perfection et je t'en remercie

problème résolu

Discussions similaires

Dechiffrer une image caché

Retrouver l'image originale après avoir fait des modifications ?

Votre réponse

Discussions similaires