Passage de paramétre

Le
Brat'ac
bonjour,

Je n'arrive pas à passer le nom d'une feuille en paramètre dans ce
genre
de procédure.
Tous mes essais se soldent par "incompatibilité de type"

Sub Proc(Debut , Fin As String , Num As Long)
Range(Debut & Ligne & ":" & Fin & Ligne).Select

Le code

End Sub

Sub essai57()
Proc "A", "N", 5
End Sub

Merci de l'aide
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26508609
Bonjour,
Essaie comme ceci :
'-------------------------------
Sub Test()
'Feuil1 = Nom de l'onglet de la feuille
'A = La lettre de la colonne
'5 = La ligne de début de l'adresse de la cellule
'10 = Le nombre de lignes à partir du début
MaProc "Feuil1", "A", 5, 10
End Sub
'-------------------------------
'Quand tu définis la ligne de déclaration de la procédure, il est
'important de t'assurer du bon type de variables que tu veux passer
'-------------------------------
Sub MaProc(Feuille As String, MaCol As String, Fin As Long, Num As Long)
With Worksheets(Feuille)
With .Range(MaCol & Fin).Resize(Num)
'Retourne l'adresse de la plage A5:A14
'Donc une plage de 10 lignes.
MsgBox .Address
End With
End With
End Sub
'-------------------------------
MichD
Brat'ac
Le #26508637
Dans son message précédent, MichD a écrit :
Bonjour,
Essaie comme ceci :
'-------------------------------
Sub Test()
'Feuil1 = Nom de l'onglet de la feuille
'A = La lettre de la colonne
'5 = La ligne de début de l'adresse de la cellule
'10 = Le nombre de lignes à partir du début
MaProc "Feuil1", "A", 5, 10
End Sub
'-------------------------------
'Quand tu définis la ligne de déclaration de la procédure, il est
'important de t'assurer du bon type de variables que tu veux passer
'-------------------------------
Sub MaProc(Feuille As String, MaCol As String, Fin As Long, Num As Long)
With Worksheets(Feuille)
With .Range(MaCol & Fin).Resize(Num)
'Retourne l'adresse de la plage A5:A14
'Donc une plage de 10 lignes.
MsgBox .Address
End With
End With
End Sub
'-------------------------------
MichD

Merci, c'est bon
Publicité
Poster une réponse
Anonyme