Une âme charitable ....pour ma double saisie

Bonjour,

mon code s’exécute mais le dernier sub saisieplage ne s’exécute pas, pourquoi ?

de plus j'aimerais que la plage définie dans le sub saisieplage par z soit fonction de la variable a entrée des l'ouverture du classeur mais lorsque je mets z="A1:Sa+4" ou z="A1:S(a+4) cela déclenche une erreur.

autre question : je suis obligé de déclarer a comme variant. si je mets Integer cela ne marche plus, pourtant je souhaite ne rentrer qu'un nombre entier, pourquoi ?

encore merci pour votre aide

jérome

Bonjour

jasserin a écrit :

le dernier sub saisieplage ne s’exécute pas, pourquoi ?

Le dernier ?

Je n'en ai vu qu'un

Cette macro est appelée quand et comment ?

Z est déclarée en constante et on ne peut pas inclure une variable dans une constante

jasserin a écrit :

je suis obligé de déclarer a comme variant.

Essayes ceci

Dim a As Integer          'Variant

Private Sub Workbook_Open()
  If Sheets("SAISIE 1 Traité M1M2M3").Select And Range("A2") = "" Then
LINE1:
    a = InputBox("Veuillez saisir ici le nombre de volontaire", "va copier la Saisie dans A2")
    If a = 0 Then GoTo LINE1
  End If
  Range("A2") = a
  Range("B4").Select
End Sub

Private Sub saisieplage()
'Const Z = "A1:S10"
Dim Z As String
  Z = "A1:S" & a + 4
  Worksheets(3).ScrollArea = Z
  MsgBox ("plage limite à :" & Z)
End Sub

super !

merci beaucoup.

a bientôt,