Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Passage de paramétre

Passage de paramétre

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichD
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
Avatar
Brat'ac
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