Dupliquer tableau sur autre feuille avec modifications Résolu

Question

Bonjour, 

Je souhaiterais a partir d'un tableau complet, en creer un deuxieme sur une autre feuille, mais en version simplifié. Tout cela automatisé/ a partir d'une macro
Ci-dessous les 2 tableau 



Merci d'avance pour votre aide, je suis plutot debutant dans ce domaine !

ccm81 · Answer

Bonjour

Plutôt qu'une image, envoies ton fichier au format excel 2003 si possible sur cjoint.com et joins le lien obtenu à ton prochain message. N'oublies pas un/des explications et exemples de résultat attendu

Cdlmnt

ccm81 · Answer

J'avoue ne pas bien comprendre ton problème
1. je souhaiterais que l'onglet simplified se créer automatiquement a partir du premier onglet 'full'
Il est créé cet onglet full, pourquoi veux tu le créer par macro ?

2. si jamais je modifiais l'onglet 'full' le 'simplified' se modifie automatiquement aussi
Tu parles du contenu des cellules ou de la structure de l'onglet

ccm81 · Answer

Bon, 

un début de réponse
https://www.cjoint.com/?3Fbp3QxvUux 

Cdlmnt

ccm81 · Answer

Bonjour

Dans ta demande, il n'était question que de créer un feuille Simplified à partir de la feuille full
Si tu veux ajouter des lignes ou des colonnes dans la feuille Simplified, de façon automatique, tu peux bien sûr le faire via le code de la macro KopieFF. 

Cdlmnt

ccm81 · Answer

Non, ça ne devrait insérer qu'une ligne
Pour tester, ajoutes cette procédure à compléter pour programmer les modifications de la feuille Simplidied
Lorsque tout sera OK, un Call MAJSimplified en fin de procédure KopieFF suffira alors à la lancer lors de la création de la feuille

Public Sub MAJFSimplified()Dim li As LongWith Sheets(FS)  li = 10  Rows(li).InsertEnd WithEnd Sub 
Attention. Le fait d'avoir des cellules fusionnées va très certainement créer pas mal de problèmes. Les cellules fusionnées ne sont jamais une bonne solution lorsqu'on doit agir dessus, que ce soit depuis la feuille ou depuis vba

Bon courage

ccm81 · Answer

Je qu'on ne s'est pas bien compris
https://www.cjoint.com/c/EFdoVdMHJv1

ccm81 · Answer

Pour ajouter une ligne il te faut lancer séparément (pour le moment) la procédure 
Lorsque tout sera OK, un Call MAJSimplified en fin de procédure KopieFF avant End Sub, suffira alors à la lancer lors de la création de la feuille

ccm81 · Answer

1. Désolé,  
> La déclaration de la procédure
Public Sub MAJFSimplified() 
> L'appel, depuis KopieFF : il manquait un "F"
Call MAJFSimplified 
2. 
Public Sub MAJFSimplified()Dim li As LongWith Sheets(FS)  li = 10  .Rows(li).Insert  li = 21  .Rows(li).Insert
... 
Mais c'était un  exemple, j'ai mis le n° de ligne dans une variable, histoire de simplifier la suite des instructions concernant cette ligne
Peux tu préciser un peu plus ce que tu souhaites faire dans cette feuille Simplified

Cdlmnt

ccm81 · Answer

Une question. Est ce que la structure de la feuille Full peut changer (nombre de lignes, nombre de colonnes, etc ...)

ccm81 · Answer

1. Oui, cela est possible :)
Ce n'est pas une réponse. C'est oui ou c'est non
Si c'est oui, le problème est nettement plus simple. On crée une feuille Simplified "modèle" vide. Il suffira alors, à la demande, de la copier et de la remplir avec les données de la feuille full.

ccm81 · Answer

J'aimerais a l avenir, n'avoir qu'a modifier la full, et que la simplified suive
1. Si les cellules de la simplidfied contiennent des formules se référant à la full, les modifications vont suivre
Il faudrait en savoir un peu plus sur le scénario envisagé.
2. Une autre question. Est ce que la structure de la feuille Simplified reste la même (nombre de lignes, de colonnes, etc ...)

ccm81 · Answer

OK, on va y aller

3. Est ce que l'en tête de la full reste la même (7 lignes exactement)

ccm81 · Answer

Je parle de la feuille full où il y a actuellement 3 "lignes" RSI, R&F, ASP
ce qui donne 7 lignes d'en tête
est ce que ce sera toujours 7 lignes

ccm81 · Answer

Pour les titres des zones de couleurs, feuille simplified, par exemple :
RSI Department. 
Est il indispensable de les mettre dans une zone texte plutôt que dans une cellule, ça complique as mal le code

ccm81 · Answer

Pour le moment, la MAJFSimplified est séparée de KopieFF
https://www.cjoint.com/c/EFeovfWVTo1
A tester

ccm81 · Answer

Je ne comprends pas, chez moi, ça fonctionne
Essaies avec ceci, titres dans cellule au lieu de textbox
https://www.cjoint.com/c/EFepIoeydz1

RQ. Dans l'editeur vba/Options/references as tu une microsoft excel 10.0 ou autre Library cochée ?
Si tu ne l'as pas, tu vas la chercher dans la liste et la cocher

ccm81 · Answer

Bon, 

Pour insérer, redimensionner, colorier, remplir avec du texte une ligne ou une colonne, tu as tout ce qu'il faut dans les deux procédures, ou bien dans les diverses propositions que je t'ai faites plus haut. 
Les as tu lues ?
Pour ma part, je ne pense pas pouvoir faire quelque chose de plus pour toi.

Bonne fin de journée

ccm81 · Answer

Tu ajoutes au code les deux lignes soulignées

     ' insertion de deux lignes blanches de hauteur HLiKPI (400)     .Rows(li).Insert     .Rows(li).Borders.LineStyle = xlNone     .Rows(li).RowHeight = HliKPI     .Range(.Cells(li, 1), .Cells(li, co)).Interior.ColorIndex = Blanc     li = li + 1     .Rows(li).Insert     .Rows(li).Borders.LineStyle = xlNone     ' departement suivant     li = li + 1  Next liTitreFF

Bonne fin de journée

ccm81 · Answer

Si j'ai compris, il suffit de décaler la colonne qui détermine la couleur

     li = li + 1     coul = .Cells(li, 3).Interior.ColorIndex     While .Cells(li, 3).Interior.ColorIndex = coul       li = li + 1     Wend
Cdlmnt

ccm81 · Answer

Merci , mais qu'importe le numero que je met la seconde ligne :
While .Cells(li, 7).Interior.ColorIndex = coul
Reste jaune ... avez vous une autre solution ? 
?? il fallait mettre 3 comme numéro de colonne (post #43)

J'ai ajouté la constante coProductnameFS = 3 
et changé le 3 en coproductnamefS dans le code, comme ça, si tu modifies la structure, il te suffira d'intervenir uniquement pour changer la valeur de la constante
http://www.cjoint.com/c/EFxodK1IRdg
qu'est ce qui ne va pas dans la feuille Simplified1 ?

ccm81 · Answer

Dernier details minime je suppose, quand il y a changement de couleur, il manque des bordures. 
Les bordures autour de quelle zone ?
Cas 1. Une seule cellule
Public Sub BordureCellule()With Selection.Borders  .LineStyle = xlContinuous  .Weight = xlMediumEnd WithEnd Sub
Cas 2. Une plage (un peu plus compliqué)
Sub BorduresPlage()    With Selection.Borders(xlEdgeLeft)        .LineStyle = xlContinuous        .Weight = xlMedium    End With    With Selection.Borders(xlEdgeTop)        .LineStyle = xlContinuous        .Weight = xlMedium    End With    With Selection.Borders(xlEdgeBottom)        .LineStyle = xlContinuous        .Weight = xlMedium    End With    With Selection.Borders(xlEdgeRight)        .LineStyle = xlContinuous        .Weight = xlMedium    End WithEnd Sub
RQ. A la place de Selection, tu mets la plage.cellule concernée

Cdlmnt

ccm81 · Answer

Comme ça ?
http://www.cjoint.com/c/EFyjTqyKRkg

Cdlmnt

ccm81 · Answer

Tu avais parlé des zones colorées !
Je t'ai mis entre '---------------------- les parties de codes correspondantes
http://www.cjoint.com/c/EFykaPg7Q1g

Cdlmnt

ccm81 · Answer

De rien

Si c'est (définitivement) fini, merci de mettre le sujet à Résolu (en dessous du titre de ta première demande)

Bonne fin de journée

Dupliquer tableau sur autre feuille avec modifications - Page 2

Discussions similaires

Newsletters