bonjour!

j'ai le code suivant:

Public Sub PasteLastData(SelectedData As String)
        If SelectedData <> "" Then
            Call PasteData(SelectedData, SheetOfSearch, (LastResultLine), Count)
            Range("A1").Select
            LastResultLine = InitVar((LastResultLine), Count, SelectedData)

        End If

la fonction PasteData, pas de problème. Je récupère la valeur de LastResultLine calculée par InitVar. le problème, c'est que je dois aussi la sortir de PasteLastData parce que j'en ai encore besoin pour la suite, mais j'y arrive pas... c'est galère les fonctions imbriquées...

si vous pouvez m'aider ce serait la fête!

merki!
  Daydayerement Vôtre    

tu peuxc mettre un parametre en byref et recuperer la valeur dans ta procedure appelante, par ex :

sub ma procedure
dim mavaleur as string
.
.
.
pasteLastData(selecteddate, mavaleur)
.
.
.
mavaleur=mavaleur+1

end sub
sub PasteLastData(byval SelectedData As String, byref valeur as string)
.
.
.
valeur = 10
.
.
end sub