Limié dans le nombre de sheets.select ?

[Creepy]

Bonjour all,

J'ai ce code et ca bloque là ou j'ai mis "ICI"

--------------------------------------------------------

Private Sub Workbook_Open()
Dim I As Byte
Application.StatusBar = "Initialisation, patientez SVP ..."

With Sheets("Chiffres")
.Range("a2").Value = ""
.Range("B2").Value = ""
.Range("A4").Value = ""
.Range("B6").Value = ""
.Range("C6").Value = ""
End With
Range("E7").Select
For I = 1 To 21
With Sheets("Chiffres")
ActiveCell.Value = ""
ActiveCell.Offset(0, -2).Value = ""
ActiveCell.Offset(0, -3).Value = ""
ActiveCell.Offset(0, -4).Value = ""
ActiveCell.Offset(1, 0).Select
End With

Next I

Sheets("prepa").Range("a3").Select <---- ICI

For I = 1 To 21
With Sheets("Prepa")
ActiveCell.FormulaR1C1 = "=IF(Chiffres!R[4]C1="""","""",R[4]C1)"
ActiveCell.Offset(0, 1).FormulaR1C1 = "=IF(Chiffres!R[4]C1="""","""",Chiffres!R[4]C5)"
End With
Next I

Sheets("chiffres").Select

InfosContrib.Show

End Sub

-------------------------------------------

Comme vous pouvez le remarquer le mot prepa devrait être ecrit : Prepa (avec une majuscule, mais ce n'est pas le cas. c'est donc que la feuille n'est pas reconnue !! ?? !!

Il me met erreur 1004.

Y'aurait-il trop de sheets.select dans mon code ?? !! ??

Merci de vote aide

Creepy

 

[greg]

Salut creepy,

tu peux remplacer :

Sheets("prepa").Range("a3").Select


par


Sheets("prepa").select
Range("a3").Select

et cela devrai fonctionner

Greg

 

[Creepy]

Désolé ca ne marche pas non plus !!

Creepy

 

[zon]

Bonsoir au forum,


Sheets("prepa").select
Range("a3").Select

devrait fonctionner, mets y son index sheets(1).select, 1 si en premiere position....

A+++