VBA - valeur non mémorisée

Re le forum

Modifie ton programme ainsi :

Dans le module de la feuille 5

Private Sub bt_archiv_av_Click()  

Dim num_li As Integer 
Dim num_col As Integer 
Dim nb_colonnes As Integer 
Dim j As Integer 
Dim ddate As Date 
Dim an As String 
Dim gr As String 
Dim ech As String 
Dim aca As String 
Dim acm As String 
Dim acj As String 
Dim ok As String 

ok = "non" 

'Appel de la procédure controle_saisie_mat 
Call Module1.controle_saisie_mat 

MsgBox (matricule) 

'suite du code 

End Sub

Dans le Module1 (Insertion¨> Module)

Public matricule As String 

Sub controle_saisie_mat() 
Do 
matricule = InputBox("Saisir le matricule", "Controle de saisie", "18183") 
If Not IsNumeric(matricule) Then 
MsgBox ("Une valeur numérique est requise !") 
End If 
Loop Until IsNumeric(matricule) 
End Sub

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]

Bonjour,

Il faut que ta variable matricule soit déclarée avec

dim matricule as string

au niveau module (en haut, en dehors de toute procédure) pour qu'elle soit visible par toutes les procédures du module.
Si tu l'as déclarée dans un autre module déclare là avec public au lieu de dim qu'elle soit visible de tous les modules.

eric

Salut le forum

La déclaration de variable Public doit se faire dans un module Standard
et non dans le module de la feuille. (Module1 ou autres)

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]

Re le forum

Petite précision

Dim num_li, num_col, nb_colonnes, j As Integer
Dim ddate, an, gr, ech, aca, acm, acj, ok As String

Dans ta déclaration de variables:
j est Integer et num_li, num_col, nb_colonnes sont Variant.
ok est String et ddate, an, gr, ech, aca, acm, acj sont Variant.

Mytå

Bonjour,

Moi personnellement je t'aurai conseiller ceci:

Sub bt_archiv_av_Click()

Dim num_li As Integer
Dim num_col As Integer
Dim nb_colonnes As Integer
Dim j As Integer
Dim ddate As Date
Dim an As String
Dim gr As String
Dim ech As String
Dim aca As String
Dim acm As String
Dim acj As String
Dim ok As String

ok = "non"

'Appel de la procédure controle_saisie_mat
Call controle_saisie_mat(matricule)

MsgBox (matricule)

'suite du code

End Sub

Dans le Module1


Function controle_saisie_mat(matricule as string)
Do
matricule = InputBox("Saisir le matricule", "Controle de saisie", "18183")
If Not IsNumeric(matricule) Then
MsgBox ("Une valeur numérique est requise !")
End If
Loop Until IsNumeric(matricule)
End function

N'oublie pas de détruire les variables locales et la variable de fonction ne porte pas forcement le même nom que la variable d'où elle fut appelé.

Merci à Tous pour votre aide !!!