Transfert données pour chaque onglets - aide

[thespeedy20]

Bonjour le forum,

En colonne A, j'ai des noms et je crée des onglets portant le nom...pas de soucis à ce niveau là...
Je dois transférer les données de la col B à N de chaque nom de la colonne A dans son onglet dédié...

Puis-je avoir votre aide
Merci d'avance

Oli

 

[thespeedy20]

Bonjour Jacky67,

J'ai été trop vite , il y a un petit soucis...
lors de l'exportation dans les différents onglets, les colonnes ne s'ajustent au contenu...
Peux-tu y faire quelque chose ?

Merci d'avance
OLi

 

[Jacky67]

Bonjour Jacky67,

J'ai été trop vite , il y a un petit soucis...
lors de l'exportation dans les différents onglets, les colonnes ne s'ajustent au contenu...
Peux-tu y faire quelque chose ?

Merci d'avance
OLi

Re...
Au Mieux......
**Modifié

 

[thespeedy20]

re,
Jacky67
je ne vois aucunes différence entre la macro du fichier 2 et du fichier 3

 

[cp4]

re,
Jacky67
je ne vois aucunes différence entre la macro du fichier 2 et du fichier 3

Bonjour,
@thespeedy20 : il y a 3 lignes qui font un tri au préalable de la suite du code.

Plage.Sort key1:=[d2], Order1:=xlAscending, Header:=xlYes
Plage.Sort key1:=[c2], Order1:=xlAscending, Header:=xlYes
Plage.Sort key1:=[b2], Order1:=xlAscending, Header:=xlYes

Bonne journée.

 

[thespeedy20]

Bonjour cp4, Jacky37
Bonjour le forum,

j'avais vu ces 3 lignes...mais je voulais dire au niveau de l'ajustement des colonnes en fonction de leur contenu... qu'il n'avait rien de changer....

Bonne journée

OLi

 

[cp4]

Bonjour cp4, Jacky37
Bonjour le forum,

j'avais vu ces 3 lignes...mais je voulais dire au niveau de l'ajustement des colonnes en fonction de leur contenu... qu'il n'avait rien de changer....

Bonne journée

OLi

Pour ajuster la largeur de la colonne A par exemple

With Sheets("Feuil2").Range("A:A") 'Adapte le nom de la feuille et la colonne où se trouve ton texte+commentaire
        .EntireColumn.AutoFit
End With

'OU BIEN'

Sheets("Feuil2").Columuns(1).EntireColumn.AutoFit

 

[thespeedy20]

re,
merci pour l'information...alors j'ai fais ceci :

Sub AjusterColumn()
Dim sht As Worksheet
For Each sht In Worksheets
    sht.Columns.AutoFit
Next
End Sub

pour pouvoir boucler sur toutes les feuilles créent...

OLi

 

[Jacky67]

Bonjour cp4, Jacky37
Bonjour le forum,

j'avais vu ces 3 lignes...mais je voulais dire au niveau de l'ajustement des colonnes en fonction de leur contenu... qu'il n'avait rien de changer....

Bonne journée

OLi

Bonjour à tous
Si.Si... la condition d'insertion à changer

  If .Cells(Lig, 1) & .Cells(Lig, 2) & .Cells(Lig, 3) <> .Cells(Lig - 1, 1) & .Cells(Lig - 1, 2) & .Cells(Lig - 1, 3) Then

 

[thespeedy20]

Bonjour Jacky67,

Quand j'exécute la macro, regarde : pour le prof toto

la colonne cours ne s'adapte pas au contenu....

OLi

 

[Jacky67]

Bonjour Jacky67,

Quand j'exécute la macro, regarde : pour le prof toto

Regarde la pièce jointe 1081445

la colonne cours ne s'adapte pas au contenu....

OLi

Re...
Comme tu l'as certainement remarqué, il y a insertion d'une ligne vide si la ligne des 3 premières colonnes sont différentes de la ligne des 3 colonnes précédentes
Si ce n'est pas ce que tu souhaites, modifier la ligne des conditions selon ce que tu voudrais obtenir. Perso., je ne vois pas comment arriver à ce que tu démontres en feuille "Tri_désiré"

 

[thespeedy20]

Jacky67,

C'est au niveau des colonnes de tous les onglets, faire un autofit lors de l'importation afin que toutes les données soient lisibles....(regarde dans l'image, la colonne cours, on ne sait pas lire formation p.....)

Oli

 

[Jacky67]

Jacky67,

C'est au niveau des colonnes de tous les onglets, faire un autofit lors de l'importation afin que toutes les données soient lisibles....(regarde dans l'image, la colonne cours, on ne sait pas lire formation p.....)

Oli

Ah! j'avais mal interprété.....
Alors ajoute une ligne à cette partie de code avec ===> .Columns("a:m").AutoFit

  '----------
  '-----------
    With ActiveSheet
        For Lig = .Cells(.Rows.Count, "A").End(xlUp).Row To 3 Step -1
            If .Cells(Lig, 1) & .Cells(Lig, 2) & .Cells(Lig, 3) <> .Cells(Lig - 1, 1) & .Cells(Lig - 1, 2) & .Cells(Lig - 1, 3) Then
                .Rows(Lig).Insert
            End If
        Next
        .Columns("a:m").AutoFit    '************* ajouter **********
    End With
 '----------
  '------

*Ne pas oublier l'enregistreur de macro qui donne ce genre de code

 

[thespeedy20]

Re,

un grand merci Jacky67
Cette fois-ci je peux clôturer le poste.
OLi