transmettre Constante entre deux Sub

Bonjour,

Ecrire dans la section de déclaration du module ( en haut du module)

Dim vali as long

Dans ces conditions, la valeur de vali ne sera pas perdue lors d'appels
successifs.

A+

Bonjour Vader,

Essaie comme ceci :

'-----------------------------------
Public Sub Creation_Rapport_DATA()

Application.ScreenUpdating = False

Sheets("CONTROLS DATA").Copy After:=Sheets("Entitée - Devise")
Sheets("CONTROLS DATA (2)").Name = "Rapport Err. DATA"

'Fin Creation Onglet de Rapport
'------------------------

Const Vali As Long = 26
Routine_Supp Vali
End Sub

'-----------------------------------
Public Function Routine_Supp(ByVal Vali As Long)

Dim k As Long
Dim l As Long


For i = Vali To Sheets("Rapport Err. DATA").UsedRange.Rows.Count
For j = 5 To Sheets("Rapport Err. DATA").UsedRange.Columns.Count

11
If Cells(i, j) = "0" Then
k = i - 7
l = i + 3
Range(Cells(k, j), Cells(l, j)).Select
Selection.Delete Shift:=xlToLeft
If Cells(i, j) = "0" Then GoTo 11

Exit For
End If
Next
Next
End Function
'-----------------------------------


Salutations!



"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de news: 274AEE9B-0499-4295-8CCA-CF5CFD6EE044@microsoft.com...
Bonjour,

Je n'arrive pas à transmettre une constante dans une autre Sub.

Je m'explique, j'ai contrui une fonction (pour effectuer une opération
répetitive) ou un seul paramètre varie (i).

Je veux définir (i) puis lancer cette fonction.

Problème : Impossible de transmettre la valeur de i. Je passe par une
Constante, mais elle est remise à "Empty" au démarrage de la Function.

Voilà où j'en suis ...

Antoine


====================================================

Public Sub Creation_Rapport_DATA()

Application.ScreenUpdating = False

Sheets("CONTROLS DATA").Copy After:=Sheets("Entitée - Devise")
Sheets("CONTROLS DATA (2)").Name = "Rapport Err. DATA"

'Fin Creation Onglet de Rapport
'------------------------

Const Vali As Long = 26

Routine_Supp



End Sub

'------------------------
' ROUTINE SUPP
'------------------------

Public Function Routine_Supp()

Dim k As Long
Dim l As Long
Dim Vali As Long

For i = Vali To Sheets("Rapport Err. DATA").UsedRange.Rows.Count
For j = 5 To Sheets("Rapport Err. DATA").UsedRange.Columns.Count

11
If Cells(i, j) = "0" Then
k = i - 7
l = i + 3
Range(Cells(k, j), Cells(l, j)).Select
Selection.Delete Shift:=xlToLeft
If Cells(i, j) = "0" Then GoTo 11

Exit For
End If
Next
Next


End Function

'------------------------
' FIN ROUTINE SUPP
'------------------------