Pb avec procedure et declaration de variable ???

Question

Je construit péniblement une procédure pour remplir des commentaires a partir d'informations sur plusieurs fichiers et j'ai un pb au niveau de la déclaration de ma variable "cible" dans la procédure "remplissagecom"

Je n'arrive pas a setter comme il se doit la variable qui cible la cellule a remplir avec les commentaires, je suis sur que c'est une erreur bête mais je n'arrive pas a trouver, merci de votre aide

Dim tabldata() As String

Dim tablcode() As String

Dim tablcom(10, 2) As String

Dim com(10) As String

Dim Cmnt As String

Sub remplissage_code_auto_com()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

remp_code

remp_database

DerLig = Range("A1").End(xlDown).Row

For i = 1 To 8

tablcom(i, 0) = tablcode(i, 0)

tablcom(i, 1) = tabldata(i, 5)

For i = 1 To 10

com(i) = tablcom(i, 0) & " : " & tablcom(i, 1) & " mins"

Cmnt = Cmnt & vbNewLine & com(i)

Set cible = Cells(i, 16)

remplissagecom (cible) --------> ????

Sub remp_code()

'chemin du fichier de correspondance des codes

fichier = "'D:\[Codes.xlsx]Feuil1'!"

nbligne = 9

nbcolonne = 13

'peuple un tableau des codes de correspondance

ReDim tablcode(nbligne - 1, nbcolonne - 1)

For j = 0 To UBound(tablcode, 2)

For i = 0 To UBound(tablcode, 1)

tablcode(i, j) = ExecuteExcel4Macro(fichier & "R" & i + 1 & "C" & j + 1)

Next i

Next j

End Sub

Sub remp_database()

'chemin du fichier database

fichier = "'D:\[database.xlsm]Feuil1'!"

nbligne = 200

nbcolonne = 6

'peuple un tableau database

ReDim tabldata(nbligne - 1, nbcolonne - 1)

For j = 0 To UBound(tabldata, 2)

For i = 0 To UBound(tabldata, 1)

tabldata(i, j) = ExecuteExcel4Macro(fichier & "R" & i + 1 & "C" & j + 1)

Next i

Next j

End Sub

Sub remplissagecom(ByRef cible As Range)

If cible.Comment <> "" Then

cible.Comment = Cmnt

Else

cible.AddComment

cible.Comment.Visible = False

cible.Comment.Text Text:=Cmnt

End Sub

frangy · Accepted Answer

Dans le cas d'une procédure appelée sans le mot clé Call, tu ne dois pas encadrer la liste des arguments par des parenthèses. remplissagecom cible A+...