Forums - Tous les messages : myDearFriend! Excel Pages

Forums XLPages

Tous les messages (JackyAmiens)

Re: Copier un tableau Excel dans Word		#11
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 06-09-2010 11h09 Bonjour, Le code initialement proposé se plantait sur une l'instruction PasteExcelTable False, False, False Après recherche, j'ai élaboré le code suivant en m'inspirant de source internet. Le code permet à partir d'excel de recopier une plage de cellule dans un nouveau document Word. Sub proWord() Set fd = Worksheets("Devis") 'La zone excel débute en A1 e termine en Hi, i étant variable suivant le nombre de ligne du devis fd.Select Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau Nomdufichier = InputBox("Nom du fichier", "Saisie") Dim varDoc As Object Set varDoc = CreateObject("Word.Application") varDoc.Visible = True Sheets("Devis").Range("A1:H" & Limite + 4).Copy 'selection du tableau devis varDoc.Documents.Add varDoc.Selection.Paste 'recopie dans le document Word varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc" Set varDoc = Nothing 'libere l'instance mémoire pile Set fd = Nothing End Sub Ce code répond à mon besoin d'aujourd'hui. L'amélioration serait d'ouvrir un document Word existant et d'insérer le tableau à un endroit spécifique par l'usage d'un signet. J'espère avoir libérer correctement les ressources ouvertes en VBA ( le document word est visible à l'écran souhait des utilisateurs) Et merci pour les suggestions. Cdlt, JackyAmiens

Sujet | Forum

Copier un tableau Excel dans Word		#12
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 31-08-2010 12h05 Bonjour, Dans une feuille devis un tableau est présent et le but est de le copier dans un document word (en début). Je copie mon tableau par fd.range et desire le coller en tableau sous Word par pasteExcelTable Le message d'erreur est la commande n'existe pas Public Sub colleWord() Set fd = Worksheets("Devis") Limite = fd.Range("A65535").End(xlUp).Row 'Raz des Lignes fd.Range("A1:H" & Limite).Copy Dim AppWord As Word.Application Dim DocWord As Word.Document '-----------------------------creation session Word----------------------------------- Set AppWord = New Word.Application Application.DisplayAlerts = True 'AppWord.ShowMe 'pour que word reste masqué pendant l'opération AppWord.Visible = True 'Appel le document Word Set DocWord = AppWord.Documents.Open("E:\test\ModOff.doc", _ ReadOnly:=False) AppWord.Application.Selection.PasteExcelTable False, False, False DocWord.Save DocWord.Close Set DocWord = Nothing Set AppWord = Nothing End Sub Merci de me donner des idées pour faire un copier coller d'excel vers word en conservant la mise en forme (j'ai bien indiqué la référence à Excel)

Sujet | Forum

Re: Structure d'un Tableau Croisé Dynamique		#13
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 24-08-2010 11h41 Bonjour, Merci d'avoir chercher, j'avoue de mon côté avoir aussi pris des pistes assez identiques et infructeuses. Le retour de vacance va peut-être source de nouvelles idées pour percer le mystère des TCD qui sont plutôt du " genre " opaque. Cdlt, Jacky

Sujet | Forum

Re: Structure d'un Tableau Croisé Dynamique		#14
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 11-08-2010 08h56 Bonjour, Voici le fichier excel, il comprend la feuille 2 avec le TCD (ne pas le rafraîchir). Un champ d'un TCD peut-être renommé manuellement comme un champ placé en données. L'objectif est la récupération du nom source du champ et obtenir l'opération effectué dans le champs via une macro. Mon code VBA actuel est lancé via le bouton et restitue une partie des informations. Merci de m'orienter Cdlt, Jacky Pièce jointe: Classeur1.zip [ Taille: 42.85 Ko - Téléchargements: 478 ]

Sujet | Forum

Structure d'un Tableau Croisé Dynamique		#15
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 10-08-2010 16h28 Bonjour, J'ai besoin d'établir à partir d'un TCD un rapport de sa structure. Liste des Champs Liste des Champs Calculés Liste des données Voici le programme établi pour un TCD se trouvant dans un onglet "Feuil2" Sub DefTbx() 'Nom du TCD Cells(2, 9) = Worksheets("Feuil2").PivotTables(1).Value With Worksheets("Feuil2").PivotTables(1) For i = 1 To .PivotFields.Count 'Nom des champs Cells(i + 1, 10) = .PivotFields(i).Name Next i For i = 1 To .CalculatedFields.Count 'Nom des champs calculés Cells(1 + 1, 11) = Worksheets("Feuil2").PivotTables(1).CalculatedFields(i).Value Next i For i = 1 To .PivotFields("Données").PivotItems().Count 'Nom des données Cells(i + 1, 12) = Worksheets("Feuil2").PivotTables(1).PivotFields("Données").PivotItems(i).Value Next i End With End Sub La macro restitue les noms qui sont visibles par une double clic sur leur intitulé (provocation de l'affichage des fenêtres : champ Dynamique ou champ Pivot Table avec les informations Nom et champ Source et la Synthèse.) Ma question est : comment obtenir la restitution des noms d'origine après avoir été renommés? Exemple pour un Pivot Table : obtenir le Nom ="TxJ+1 ," le Champ Source = "Le_Taux_A_moins_de_1_jour" la formule de la synthèse = Moyenne Merci d'orienter mes recherches

Sujet | Forum

Re: VBA projet: Lancer une macro via click		#16
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 26-07-2010 14h53 Bonjour Didier, J'avais utilisé cette instruction sans parvenir à inhiber le menu contextuel de la cellule. Je clôture donc le sujet. Et te remercie pour la rapidité de ta réponse. Amicalement, JB

Sujet | Forum

VBA projet: Lancer une macro via click		#17
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 23-07-2010 16h09 Bonjour, J'étudie la faisabilité de faire sous excel (2003) un programme pouvant servir à l'enregistrement de parties de jeu de dames. J'ai réalisé un damier avec les pions par l'utilisation d'une police particulière (Draughts Ultrech). Les lettres (i,e,x,c,f) représentent les cases vides et les pions. L'initialisation se fait en VBA via un bouton (pas trop de problème). La suite du projet est de pouvoir effectuer le déplacement d'une pièce et avoir sa notation (dit PDN) Case départ et case d'arrivée. Dans le fichier, j'ai proposé le déplacement 32 28. En VBA est-il possible de lancer une macro à partir d'un clic droit de la souris sur une portion de zone nommée (ici Damier)? Ou faut-il utiliser uniquement le double click gauche avec Target? Merci de me donner votre éclairage et des idées. Amicalement JackyAmiens P.S: Le programme gratuit Dam2.2 fait cela très bien, le projet est plus un exercice de style et de manipulation VBA. Pièce jointe: PdnDamier.zip [ Taille: 35.10 Ko - Téléchargements: 792 ]

Sujet | Forum

Re: liste de choix et recherche SUPER		#18
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 22-06-2010 09h00 Bonjour, Réellement super ce petit bout de code, il permet une sélection dans une cellule de manière très pro. Bon, je vais étudier cela de plus près et voir son usage avec mes tableaux de SommeProd et la selection d'établissement avec les équipes associées. Vraiment un plaisir de venir sur ce site.......

Sujet | Forum

Re: Ultime projet.

#19

JackyAmiens

Aspirant XLPages

Inscription: 07/03/2008

De Amiens

Messages: 33

Système d'exploitation:

Version Excel utilisée:

2002,2003,2010

Posté le : 09-04-2010 16h39

Bonjour,

j'ai dû mal à comprendre ton besoin.
Pour t'aider, je te propose l'usage de la fonction Rang

Paire		tx	rang
Christian	Jérome	60,00%	16
Christian	Bilou	50,00%	20
Christian	Christine	88,24%	2
Christian	Fanny	58,33%	18
Jérome	Fanny	66,67%	12
Jérome	Christian	60,00%	15
Jérome	Christine	63,64%	14
Jérome	Bilou	72,73%	4
Christine	Fanny	66,67%	11
Christine	Jérome	63,64%	13
Christine	Bilou	66,67%	10
Christine	Christian	88,24%	1
Fanny	Bilou	66,67%	9
Fanny	Jérome	66,67%	8
Fanny	Christian	58,33%	17
Fanny	Christine	66,67%	7
Bilou	Fanny	66,67%	6
Bilou	Jérome	72,73%	3
Bilou	Christian	50,00%	19
Bilou	Christine	66,67%	5

ton objectif après est-il d'obtenir une attribution en éliminant les paires ayant déjà obtenu l'attribution de point

Cela donnerait comme tableau résultat

		tx	rg	pts
Christine	Christian	88,24%	1	10
Christian	Christine	88,24%	2
Bilou	Jérome	72,73%	3	9
Jérome	Bilou	72,73%	4
Bilou	Christine	66,67%	5	8
Bilou	Fanny	66,67%	6	7
Fanny	Christine	66,67%	7	6
Fanny	Jérome	66,67%	8	5
Fanny	Bilou	66,67%	9	4
Christine	Bilou	66,67%	10
Christine	Fanny	66,67%	11
Jérome	Fanny	66,67%	12
Christine	Jérome	63,64%	13	3
Jérome	Christine	63,64%	14
Jérome	Christian	60,00%	15	2
Christian	Jérome	60,00%	16
Fanny	Christian	58,33%	17	1
Christian	Fanny	58,33%	18
Bilou	Christian	50,00%	19
Christian	Bilou	50,00%	20

au lieu de

	Paire	Point
88,24%	Christine - Christian	10
72,73%	Bilou - Jérome	9
66,67%	Bilou - Christine	8
66,67%	Fanny - Christine	7
66,67%	Fanny - Bilou	6
66,67%	Christine - Fanny	5
63,64%	Christine - Jérome	4
60,00%	Jérome - Christian	3
58,33%	Fanny - Christian	2
50,00%	Bilou - Christian	1

Voilà ma modeste contribution pour t'aider

Cdlt, JackyAmiens

Sujet | Forum

Re: Taille d'un champ de Page d'un TCD		#20
JackyAmiens Aspirant XLPages Inscription: 07/03/2008 De Amiens Messages: 33 Système d'exploitation: PC Version Excel utilisée: 2002,2003,2010	Posté le : 07-04-2010 16h42 Bonjour, N'ayant pas de solution apparente, j'ai utilisé un subterfuge. Le tableau croisé dynamique est piloté à travers une liste redimensionnable ici de 20 éléments. Le code est Public Sub SelectTcd() zoneSelect = Range("SelEquipes") Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("Club").CurrentPage = zoneSelect Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("Club").CurrentPage = zoneSelect End Sub Sub MaJEquipes() ' ' ' Macro enregistrée le 31/03/2010 par JackyAmiens 'Détermination de la liste des clubs présent sur la feuille equipes Sheets("Equipes").Columns("A:A").ClearContents Sheets("Equipes").Range("A1") = "Equipes" With Worksheets("Feuil2").PivotTables("Tableau croisé dynamique1") x = .PivotFields("Club").PivotItems.Count For i = 1 To x Sheets("Equipes").Cells(i + 1, 1).Value = .PivotFields("Club").PivotItems.Item(i) Next i End With Sheets("Equipes").Range("A2:A" & x + 1 & "").Select ActiveWorkbook.Names.Add Name:="L_Equip", RefersToR1C1:= _ "=Equipes!R2C1:R" & x + 1 & "C1" End Sub Le fichier d'exemple est joint (ce n'est pas le projet réel) Pièce jointe: TCDtest.zip [ Taille: 78.32 Ko - Téléchargements: 607 ]

Sujet | Forum

« 1 2 3 4 »