selectionner une feuille excel

[hicham28]

Bonjour, et encore une autre fois je m'adresse a vous, aussi a votre aide,
On m'as proposé un code pour fixer la hauteur des lignes aussi la largeur des colonnes, mais ces critères ne s'applique pas a la feuille concernée (effet), mais plutôt a une autre feuille (facture)
Merci de votre aide, voici le code

Private Sub Workbook_Open()
Dim x As Byte
 
With Sheets("FACTURE") 'à adapter à ton cas
   With .Range("A18:O65536")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
 
    For x = 1 To 15
        Select Case x
            Case 1, 10, 11, 12, 14, 15
                .Columns(x).ColumnWidth = 9
            Case 2
                .Columns(x).ColumnWidth = 10
            Case 3
                .Columns(x).ColumnWidth = 18
            Case 4 To 7
                .Columns(x).ColumnWidth = 11
            Case 8, 9, 13
                .Columns(x).ColumnWidth = 6
        End Select
    Next x
End With

With Sheets("EFFET")  'à adapter à ton cas
 Columns("A:A").ColumnWidth = 36
 Columns("B:B").ColumnWidth = 0.5
 Columns("C:C").ColumnWidth = 19.57
 Columns("D:D").ColumnWidth = 11.71
 Columns("E:E").ColumnWidth = 0.5
 Columns("F:F").ColumnWidth = 27


  Rows("1:1").RowHeight = 79.5
  Rows("2:2").RowHeight = 22.25
  Rows("3:3").RowHeight = 3.25
  Rows("4:4").RowHeight = 22
  Rows("5:5").RowHeight = 3
  Rows("6:6").RowHeight = 6.5
  Rows("7:7").RowHeight = 5
  Rows("8:8").RowHeight = 8
  Rows("9:9").RowHeight = 3
  Rows("10:10").RowHeight = 33.75
  Rows("11:11").RowHeight = 3
  Rows("12:12").RowHeight = 12
  Rows("13:13").RowHeight = 6.5
  Rows("14:14").RowHeight = 12.75
  Rows("15:15").RowHeight = 38.25

End With

 

[fhoest]

Re : selectionner une feuille excel

Bonsoir,
es tu sur que le nom de la feuille est bien en majuscule,car le code exige dans ce cas que ce soit des majuscules
A+

 

[hicham28]

Re : selectionner une feuille excel

oui, et a chaque ouverture la feuille facture prends les criteres definie pour la f euille effet, j'espere etre un peu claire et merci

 

[job75]

Re : selectionner une feuille excel

Bonsoir hisham28, fhoest,

es tu sur que le nom de la feuille est bien en majuscule,car le code exige dans ce cas que ce soit des majuscules

Ben non sur Excel 2003, Sheets("FACTURE").Activate et Sheets("facture").Activate marchent dans tous les cas 😉

A+

 

[job75]

Re : selectionner une feuille excel

Re,

Pour continuer hicham28, vous remarquerez que :

- après le 1er With, .Range et .Columns sont précédés d'un point

- après le 2ème [Edit : 3ème] With, pas de point devant Columns et Rows.

Ca devrait vous donner des idées 🙄

A+

 

[fhoest]

Re : selectionner une feuille excel

re
merci,je ne savais pas qu'il ne fallait pas respecter la syntaxe pour ce code mais en général c'est le cas,
essaie de mettre des point devant chaque critère columns et rows
comme ceci
.columns et .rows car avec le with sheets il te faut normalement un point pour stipuler qu'il s'agisse de cette feuilles
A+

 

[hicham28]

Re : selectionner une feuille excel

merci de votre aie, ca a marcher merci a vous tous!!!!!!!!!!!

 

[fhoest]

Re : selectionner une feuille excel

Oups le temps d'ecrire ma reponse job75 te la filer
sorry et A+
Ps job75 merci pour le conseil de syntaxe