Code VBA création d'un TCD
Fermé
GuezLNL
-
23 févr. 2016 à 16:04
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 - 25 févr. 2016 à 17:43
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 - 25 févr. 2016 à 17:43
A voir également:
- Code VBA création d'un TCD
- Tcd excel - Guide
- Creation compte gmail - Guide
- Code asci - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
6 réponses
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
23 févr. 2016 à 18:02
23 févr. 2016 à 18:02
Bonjour,
Je regarde ce qui est faisable pour demain.
Je regarde ce qui est faisable pour demain.
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
23 févr. 2016 à 21:36
23 févr. 2016 à 21:36
Bonjour,
Premier point : Il ne doit pas y avoir de ligne vide entre la ligne des titres et la première ligne de données….supprimer la ligne 2 qui est vide.
Deuxième point, dans votre code il y a 4 conditions donc la dernière ligne pas de 6 mais 4 :
Premier point : Il ne doit pas y avoir de ligne vide entre la ligne des titres et la première ligne de données….supprimer la ligne 2 qui est vide.
Deuxième point, dans votre code il y a 4 conditions donc la dernière ligne pas de 6 mais 4 :
.FormatConditions(4).Interior.ColorIndex = 2Merci du retour… !
Bonjour Le Pingou,
J'ai une erreur dans les lignes suivantes :
Premier point : Set PvtTCD = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange).CreatePivotTable(TableDestination:=wsTCD.Range("K3"), TableName:="TCD1")
Quand j'attribue la destination dans une autre feuille "Analyse".
2ième point : Set PRange1 = wsTCD.Cells(3, 1).Resize(FinalRow, FinalCol)
Cette ligne : With ActiveSheet.Range(PRange1) => qui sert à colorier mes cellules de mon TCD.
Cdlmnt et Bonne journée.
J'ai une erreur dans les lignes suivantes :
Premier point : Set PvtTCD = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange).CreatePivotTable(TableDestination:=wsTCD.Range("K3"), TableName:="TCD1")
Quand j'attribue la destination dans une autre feuille "Analyse".
2ième point : Set PRange1 = wsTCD.Cells(3, 1).Resize(FinalRow, FinalCol)
Cette ligne : With ActiveSheet.Range(PRange1) => qui sert à colorier mes cellules de mon TCD.
Cdlmnt et Bonne journée.
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
24 févr. 2016 à 10:56
24 févr. 2016 à 10:56
Bonjour,
Eh bien, si vous avez apporté les 2 corrections proposées, votre procédure [Private Sub LancerTCD_Click()] fonctionne correctement…
Note : aucunes lignes de code, mentionnées, figure dans le fichier mis à disposition… !
Eh bien, si vous avez apporté les 2 corrections proposées, votre procédure [Private Sub LancerTCD_Click()] fonctionne correctement…
Note : aucunes lignes de code, mentionnées, figure dans le fichier mis à disposition… !
Ré Le Pingou,
Tu es génial et merci pour ta réponse.
J'ai encore deux questions à ce sujet de TCD.
La première : Comment masque (ou rendre invisible) les chiffres ou encore les chiffres puissent avoir la même couleur que le fond de la cellule parce que j'essaie cette synthase Interior.Color = RGB(174, 240, 194) ça ne marche pas.
La deuxième : exemple si j'ai une article qui a deux ou plusieurs valeurs ou couleurs. En sortie je souhaiterai lui impose un code couleur.
Exemple : l'article COCA dans la ville de brest à la coleur 3 et 4 ou 3, 4 et 46 comme la fonction est xlSum, il va l'addictionne et j'aurai aucune couleur. Dans ce cas j'aimerai faire une condition tant qu'un produit a la couleur 4, on ne prend pas les autres ou s'il y a 3 et 46 et 2 on prend que la code couleur 2.
J'espère que ma question est claire.
Bien Cdlmnt.
Tu es génial et merci pour ta réponse.
J'ai encore deux questions à ce sujet de TCD.
La première : Comment masque (ou rendre invisible) les chiffres ou encore les chiffres puissent avoir la même couleur que le fond de la cellule parce que j'essaie cette synthase Interior.Color = RGB(174, 240, 194) ça ne marche pas.
La deuxième : exemple si j'ai une article qui a deux ou plusieurs valeurs ou couleurs. En sortie je souhaiterai lui impose un code couleur.
Exemple : l'article COCA dans la ville de brest à la coleur 3 et 4 ou 3, 4 et 46 comme la fonction est xlSum, il va l'addictionne et j'aurai aucune couleur. Dans ce cas j'aimerai faire une condition tant qu'un produit a la couleur 4, on ne prend pas les autres ou s'il y a 3 et 46 et 2 on prend que la code couleur 2.
J'espère que ma question est claire.
Bien Cdlmnt.
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
24 févr. 2016 à 17:21
24 févr. 2016 à 17:21
Bonjour,
Si vous voulez que la police est la même couleur que le remplissage, vous insérez dans votre procédure à l’endroit adéquat cette ligne : (exemple condition 1 et couleur 4)
Pour le point 2 je ne comprends pas pour l’instant… !
Si vous voulez que la police est la même couleur que le remplissage, vous insérez dans votre procédure à l’endroit adéquat cette ligne : (exemple condition 1 et couleur 4)
.FormatConditions(1).Font.ColorIndex = 4
Pour le point 2 je ne comprends pas pour l’instant… !
Ré Le Pingou,
Ta correction au point 1 : ne fonctionne pas, j'essaie même avec la formulation
Font.Color = RGB(192, 32, 255) , les couleurs de police chiffres sont toujours noirs.
Pour mon point 2 , voici mon fichier peut être ça te parlera plus. L'exemple de la ville de Caen et l'article alumette = le code est 7 c'est à dire le code 4 et 3 => dans ce cas je souhaiterai imposer que le code soit égaler à 4 ou de Paris et l'article joue = le code est 49 c'est à dire le code 46 et 3 => dans ce cas je souhaiterai imposer que le code soit égaler à 3.
http://www.cjoint.com/c/FByshspstHj
Merci d'avancé et Bonne soirée.
Ta correction au point 1 : ne fonctionne pas, j'essaie même avec la formulation
Font.Color = RGB(192, 32, 255) , les couleurs de police chiffres sont toujours noirs.
Pour mon point 2 , voici mon fichier peut être ça te parlera plus. L'exemple de la ville de Caen et l'article alumette = le code est 7 c'est à dire le code 4 et 3 => dans ce cas je souhaiterai imposer que le code soit égaler à 4 ou de Paris et l'article joue = le code est 49 c'est à dire le code 46 et 3 => dans ce cas je souhaiterai imposer que le code soit égaler à 3.
http://www.cjoint.com/c/FByshspstHj
Merci d'avancé et Bonne soirée.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
24 févr. 2016 à 22:14
24 févr. 2016 à 22:14
Bonsoir,
Pour le point1 pas d’accord, j’ai fait la modification comme proposée…voir feuille [Analyse] en utilisant la procédure [LancerTCD_Click] car cela n’a jamais été précisé https://www.cjoint.com/c/FByvmNKVKHs
Note je n'ai pas regardé le point 2 pour l'instant.
Pour le point1 pas d’accord, j’ai fait la modification comme proposée…voir feuille [Analyse] en utilisant la procédure [LancerTCD_Click] car cela n’a jamais été précisé https://www.cjoint.com/c/FByvmNKVKHs
Note je n'ai pas regardé le point 2 pour l'instant.
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
25 févr. 2016 à 17:43
25 févr. 2016 à 17:43
Bonjour,
Eh non c’est faux ou alors vous faites autre chose.
Si vous supprimer le TCD sur la feuille [Analyse] et que vous cliquez le bouton de commande tout se normalement.
Note : pour les valeurs 2 et 48 il n’y a pas MFC pour la police.
Eh non c’est faux ou alors vous faites autre chose.
Si vous supprimer le TCD sur la feuille [Analyse] et que vous cliquez le bouton de commande tout se normalement.
Note : pour les valeurs 2 et 48 il n’y a pas MFC pour la police.
23 févr. 2016 à 18:12
Merci d'aavncé, j'attenderai ta solution.
Bonne soirée.