Dupliquer tableau sur autre feuille avec modifications

Bonjour,

Voici le lien
https://www.cjoint.com/?0FbmxJBkuKn

En faites je souhaiterais que l'onglet simplified se creer automatiquement a partir du premier onglet 'full' et que si jamais je modifiais l'onglet 'full' le 'simplified' se modifie automatiquement aussi.

Merci beaucoup pour ton aide

1- En faites l'onglet simplified sera supprimer par la suite, c'est un onglet template.
Il faut que cet onglet simplified se genere a partir de l'onglet full.

Concernant le 2, je parle du format des cellules ainsi que tu contenu.
Si je souhaite ajouter une ligne dans le full, je voudrais que cette ligne s'insère aussi dans le simplified, suivant le meme format.

Bonjour,

Merci pour ce debut de reponse, c'est ce que je voulais, il ne me reste plus qu'a mettre en page, comment faire pour supprimer ou inserer des ligne dans la feuille simplified creé ? Puis-je les ajouter ces infos a ton code ?

Merci

Bonjour,

Merci pour toute ton aide, c'est tres gentil.
Je suis en train d'essayer de voir comment inserer ou supprimer des linges/colonnes.
Or que j'ajoute Rows(10).Insert dans mon code ou que je le fasse en mode ''enregistrer macro', cela m'en insere a chaques fois 7. Connais tu la raison de ce problème ??

Merci d'avance

J'ai essaye de tout defusionner mais apparament le probleme ne viens pas de la...
Lorsceque je rentre la formule que vous m'avez donné plus haut de cette facon :

cofinFS = Sheets(FS).Cells(lititFS, Columns.Count).End(xlToLeft).Column
For co = cofinFS To cosupFS Step -1
Sheets(FS).Columns(co).Delete
Public Sub MAJFSimplified()
Dim li As Long
With Sheets(FS)
li = 10
Rows(li).Insert
End With
End Sub
Next co
Application.ScreenUpdating = True
End Sub

Un message d erreur apparait lorsque j'essaye de lancer la macro : Expected end Sub, savez vous pourquoi ?

Merci beaucoup

Merci pour l'update du code, mais aucune ligne n'est ajouté. Cela marche chez vous ?

La fin de procodure KopieFF donne ceci donc :

Application.ScreenUpdating = True
Call MAJSimplified
End Sub

Message d'erreur ; Sub or function not defined
Avec --> Public Sub KopieFF() en surbrillance

Les soucis que j'ai doivent vous paraitre simple, mais je debute excusez moi.
De plus commet faire pour inserer plusieur lignes a la suite ? De cette facon ?

Public Sub MAJFSimplified()
Dim li As Long
With Sheets(FS)
li = 10
li = 11
li = ....
Rows(li).Insert

Merci,

En faites ce n'est pas complique a expliquer.
https://www.cjoint.com/c/EFejVpKRlQv

Voici le document complet.
Comme vous l'avez bien fait precedemment, il faut generer l'onglet simplified a partir du full.
La difficulte est que cette onglet generé doit respecter le format de l'onglet simplified que vous trouverez sur ce fichier. ( suppressions de collones, insertions de lignes pour creer des espaces pour les graphiques ... )

Voyez vous ce que je veux dire ?

Merci

Oui, cela est possible :)

Mais le format restera le meme

Oui alors :)

Oui mais justement le but etant de ne pas avoir a recopier les donnees de la full sur la simplified, est-ce possible ? J'aimerais a l avenir, n'avoir qu'a modifier la full, et que la simplified suive :)

1 La simplified ne contiendra pas de formules se referant a la full

2 La structure de la feuille simplified doit suivre le meme structure que la full
( sauf comme vous pouvez le voir ds le doc envoye precedemment , collones en moins, lignnes en plus pour faire de la place pour les graphiques ... )
Comme vous pouvez le voir la simplified est la meme que la full avec des colones en moins et des espaces entre les differentes zones de couleurs .

Comme vous pouvez le voir dans le doc que je vous ai envoyé, non car il faut inserer les titres des chaques zones de couleurs, donc nous passons a 8 :)

Pardon, oui l'en tete de la full restera la meme.
Oui vous pouvez mettre dans une cellule ce n'est pas un soucis, et si c'est plus simple pour vous tant mieux :).

Merci !

Merci bien,

En revanche qund je fait ctrl+m un message d'erreur apparait:

Unable to set the text property of the characters class, concernant la ligne - >

Selection.Characters.Text = Sheets(FF).Cells(liTitreFF, 1) & " Department"

Pardon
Une microsoft Office (10.0 chez moi) Object Library

Bonjour !

Cela fonctionne, en revanche, si la feuille n'existe pas ( erreur out of range ) et si on repète l'opération, la feuille ne se supprime pas pour etre remplacer par une nouvelle, cela accumule les insertions de lignes et colones.

Je suis en train d'utiliser votre premier code, il a l'air de mieux fonctionner,

Public Sub MAJFSimplified()
Dim li As Long
With Sheets(FS)
li = 51
.Rows(li).Insert
li = 52
.Rows(li).Insert

A la suite de cela, quelle est la formule que je peux rajouter pour supprimer des colones, lignes ? merci

Bonjour

1. Je t'ai dit plus haut que
1.1. La procedure MAJFSimplified
Je l'ai séparé de la proccédure KopieFF pour faciliter sa mise au point. Donc, elle ne devait être exécutée (pour le moment) que sur une feuille Simplified1 existante.
1.2. Lorsqu'elle sera au point, c'est la procédure KopieFF qui va se charger de la faire fonctionner, sur une nouvelle feuille Simplified1

2. Le fichier intégrant l'appel de MAJFSimplified dans KopieFF
https://www.cjoint.com/c/EFfjLi3DjN1

Cdlmnt

Oui merci,

J'ai bien compris tout ca.

Comme je vous le disais a la suite de ceci ;

Public Sub MAJFSimplified()
Dim li As Long
With Sheets(FS)
li = 51
.Rows(li).Insert
li = 52
.Rows(li).Insert

je souhaites mettres d'autres formules concernant cette feuille, pour supprimer des lignes et des collones.
Pouvez vous me dire quelles sont les phrases type

li = 52
.Rows(li).Insert

a rentrer a la suite pour effectuer ces suppressions de lignes et coloones
co = A
.col(co).supp

dans le style ?

Oui bien sur que je les ai lues, je vous demaidais juste comment supprimer une colone avec un code de ce type
li = 52
.Rows(li).Insert

car je ne m'y retrouve pas forcement.
Mais je vais chercher.

Merci bien !

Bonjour,

J'ai une utime question a vous poser si vous le permettez ?
Dans votre code vous avez inserer deux lignes blanches entres les differentes couleurs. Ce qui est parfait .

Mais comment faire pour que ces lignes apparraissent avec un format totalement vierge ( et non pas avec les cadres du reste du format)

Merci beaucoup,

Bonnje journée

Bonjour,

C'est parfait, merci beaucoup.
J'a une derniere question, je penses que cela ira tres vite.

J'ai tres legerement modifié ce fichier ( un colone supplementaire en A ) et essaye d'appliquer le code a nouveau mais il ne fonctionne pas. Vous trouverez ce fichier sur le lien pas OK.
Un erreur apparait dans le code et destructure l'onglet simplified ( vous pouvez le voir la ligne concerné dans le codeen dessous ''<------'' ainsi qu'un lien avec le code complet)

Pouvez vous m'aider a faire marcher mon code sur le nouveau fichier (pas ok) ?


.Cells(li, 1).Value = Sheets(FF).Cells(liTitreFF, 1) & " Department"
.Cells(li, 1).Font.Size = 60
.Cells(li, 1).Font.FontStyle = "Gras"
.Cells(li, 1).HorizontalAlignment = xlGeneral
.Cells(li, 1).VerticalAlignment = xlCenter
' recherche ligne changement de couleur
li = li + 1
coul = .Cells(li, 2).Interior.ColorIndex
While .Cells(li, 2).Interior.ColorIndex = coul <-------
li = li + 1
Wend

ok : https://www.cjoint.com/c/EFtpbblYh1v
Pas ok : https://www.cjoint.com/c/EFtpbBroLZv

Code complet : https://www.cjoint.com/c/EFtpcEfGbGv

Merci beaucoup !!

Bonjour,

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 ?

La premiere ligne :
coul = .Cells(li, 3).Interior.ColorIndex

ne bug pas apparament, cela ne viendrais pas uniquement de la seconde ?

Avez vous pu consulter le fichier ou le code bug ?

Merci beaucoup pour votre aide precieuse.

Ah et bien merci beaucoup cela marche maintenant.
Tout est parfait, j'avais des problemes avec la suppression de collones car c'etait decalé, mais j'ai reussi a me debrouiller seul avec la commande
Columns("F:H").Delete Shift:=xlToLeft
Columns("H:R").Delete Shift:=xlToLeft

Maintenant tout fonctione c'est un veritable plaisir.
Dernier details minime je suppose, quand il y a changement de couleur, il manque des bordures.
Savez vous juste comment encadrer chaque zones de couleurs par une cadre epais ?

voici le liens vers le code complet:

https://www.cjoint.com/c/EFxoXwbElEv

Merci beaucoup !!!!!!!!!!