Discussion :

[Mod77]

Bonjour,

J'essaie de copier en premier un ensemble de cellule, vers une autre feuille mais en vain.
Erreur 424, sur le code en gras, s'affiche mais je ne trouve pas pourquoi.
J'ai essayé plusieurs méthode mais sans succès.
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton13_Click() 'Edition PV
Dim lgfin, page As String
Dim decalage As Integer
Dim WS As Worksheet

    TriFeuilsCrois      'Tri des feuilles
    'Création d'une dernière feuille "PV"
     Sheets.Add.Move After:=Sheets(Sheets.Count)
     ActiveSheet.Name = "PV"
     
    'Création TITRE avec mise en forme
     Worksheets("PV").Range("B1") = "PROCES VERBAL"
     
    'copie entête de feuille "Réso" avec mise en forme
      Worksheets("Réso").Range("B2:F4").Copy _
      Destination:=Worksheets("PV").Range("B2:F4")
      
    'Worksheets("Réso").Range("B2:F4").Select
    'Selection.Copy
    'Worksheets("PV").Range("B2:F4").Select
    'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    'SkipBlanks:=False, Transpose:=False
    'Application.CutCopyMode = False
    
    'transfert des résolutions dans "PV"
    decalage = 0
    'pour toutes les feuilles "RésoXX" (ou de feuil4 à avant dernière feuil)
    'copie de la RésoXX avec formatage et collage à la suite dans feuille "PV"
    For Each WS In Worksheets
            'pour ne cibler que les feuilles "RésoXX"
        If InStr(1, Sh.Name, "Réso") > 0 _
          And Len(Sh.Name) > 4 Then   'pour exclure la feuille Réso
            lgfin = WS.Cells(Cells.Rows.Count, "F").End(xlUp).Row
            WS.Range("A6:F" & lgfin).Copy Destination:=Worksheets("PV").Range("A" & lgfin + decalage)
            decalage = decalage + lgfin + 1
        End If
    Next WS
end sub

Quelqu'un saurait-il m'aider svp? merci

[Mod77]

OOOOOH!
j'ai trouvé mon erreur!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton13_Click() 'Edition PV
Dim lgfin, page As String
Dim decalage As Integer
Dim WS As Worksheet

    TriFeuilsCrois      'Tri des feuilles
    'Création d'une dernière feuille "PV"
     Sheets.Add.Move After:=Sheets(Sheets.Count)
     ActiveSheet.Name = "PV"
     
    'Création TITRE avec mise en forme
     Worksheets("PV").Range("B1") = "PROCES VERBAL"
     
    'copie entête de feuille "Réso" avec mise en forme
      Worksheets("Réso").Range("B2:F4").Copy _
      Destination:=Worksheets("PV").Range("B2:F4")
      
    'Worksheets("Réso").Range("B2:F4").Select
    'Selection.Copy
    'Worksheets("PV").Range("B2:F4").Select
    'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    'SkipBlanks:=False, Transpose:=False
    'Application.CutCopyMode = False
    
    'transfert des résolutions dans "PV"
    decalage = 0
    'pour toutes les feuilles "RésoXX" (ou de feuil4 à avant dernière feuil)
    'copie de la RésoXX avec formatage et collage à la suite dans feuille "PV"
    For Each WS In Worksheets
            'pour ne cibler que les feuilles "RésoXX"
        If InStr(1, WS.Name, "Réso") > 0 _
          And Len(WS.Name) > 4 Then   'pour exclure la feuille Réso
            lgfin = WS.Cells(Cells.Rows.Count, "F").End(xlUp).Row
            WS.Range("A6:F" & lgfin).Copy Destination:=Worksheets("PV").Range("A" & lgfin + decalage)
            decalage = decalage + lgfin + 1
        End If
    Next WS
end sub

Par contre maintenant j'aimerais que les colonnes se mettent automatiquement à la bonne largeur de remplissage.
Quelqu'un saura-t-il m'aider svp?

[unparia]

Bonjour
C'est quoi, la bonne largeur de colonne ? Celle de quelle feuille ? (puisque plusieurs feuilles source et une seule de destination)
Sois s'il te plait très précis en ce qui concerne ce point.

[Mod77]

Bonsoir unparia,

La bonne largeur c'est celle qui ne coupe pas les mots à l'intérieur de la cellule.
J'avais un code mais je ne le retrouve pas. La colonne s'ajustait à la largeur du texte qui était dans la cellule en fait.

[Mod77]

J'ai trouvé cela t ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("PV").Columns.AutoFit

Mais comme j'ai des colonnes fusionnées je vais essayé de figer mes colonne dans une taille définie.
Ce qui résoudra aussi mon problème de format ;-)

Merci