Discussion :

[PPN83]

Bonsoir,


J'ai 2 erreurs concernant les 2 lignes en gras
1/ La méthode delete de la classe Range a échouée
2/ Impossible de définir la propriété RowHeight de la classe Range

Pouvez vous me dépanner Merci d'avance: roll:

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
Sub Modif_architecture_feuille()
Dim rep$
Dim i As Integer
Dim fil As Object, wb As Excel.Workbook, n#
Dim fso As Object

rep = "I:\EP\DPT\DAC"
Set fso = CreateObject("Scripting.FileSystemObject")
n = 0
For Each fil In fso.GetFolder(rep).Files
    Set wb = Workbooks.Open(fil)
    With Sheets("Objectifs")
    .Unprotect Password:="i1925"
    Rows("9:13").Delete Shift:=xlUp
    Rows("12:16").RowHeight = 168
    For i = 1 To 5
    .OLEObjects("obj" & i).Height = 162
    .OLEObjects("del" & i).Height = 162
    .OLEObjects("ctp" & i).Height = 162
    Next i
    End With
    wb.Close savechanges:=True
    n = n + 1
Next fil

End Sub

[Pascal415]

Pour la ligne delete, essaie :

Code :

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

.Range(Cells(9, 1), Cells(13, 1)).EntireRow.Delete

Pour l'autre :

Code :

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

.Range(Cells(12, 1), Cells(16, 1)).RowHeight = 168

selon les avis d'expert, il y aura surement un meilleur code, mais ça fonction chez moi!!!!!

Bonne continuité

[mercatog]

Bonjour
L'indentation d'un code vba aide énormément dans la visibilité et la lisibilité des codes d'autant plus il y a des outils qui facilitent cette tâche (dont smart indent)

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
For Each Fil In Fso.GetFolder(Rep).Files
    Set Wb = Workbooks.Open(Fil)
    With Wb.Sheets("Objectifs")
        .Unprotect Password:="i1925"
        .Rows("9:13").Delete
        .Rows("12:16").RowHeight = 168
        For i = 1 To 5
            .OLEObjects("obj" & i).Height = 162
            .OLEObjects("del" & i).Height = 162
            .OLEObjects("ctp" & i).Height = 162
        Next i
    End With
    Wb.Close savechanges:=True
    n = n + 1
Next Fil

pour Pascal415, les points aussi avant cells pour se reférer à la feuille en question

Code :

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

.Range(.Cells(9, 1), .Cells(13, 1)).EntireRow.Delete

[PPN83]

Merci de vos réponses, mais je suis dubitatif, il me semble avoir essayé avec le . devant Rows mais j'avais aussi un message d'erreur !!!
mais bon, le principal c'est que ça fonctionne maintenant.

Je vais faire un effort pour la présentation du code

Un grand Merci à Pascal415 et mercatog

[Pascal415]

Merci pour le conseil!
Je le met dans ma pipe!