Pb Procédure avec Arguments

Bonjour,

Ceci est mon premier message dans ce forum alors merci par avance de votre indulgence.

Je voulais en place une procédure de recopiage de données d'une feuille à une autre mais ca bloque à priori au niveau des arguments sur cette ligne : COPIEDATA (Repere as Integer, Indice_Ecriture as Integer, DomExt as String)

Pouvez vous m'accorder un court instant ?

Un grand merci par avance de votre aide.

Sub COPIE()
    Indice_Ecriture = 2
    Repere = 67
    DomExt = "Domicile"
    COPIEDATA (Repere as Integer, Indice_Ecriture as Integer, DomExt as String)
    Repere = 75
    DomExt = "Extérieur"
    COPIEDATA (Repere, Indice_Ecriture,Domext)
End Sub
Sub COPIEDATA(Repere As Integer, Indice_Ecriture As Integer, DomExt As String)
    Indice_Ligne = 5
    Do Until Cells(Indice_Ligne, Repere + 2) = ""
        Worksheets("DATABIS").Cells(Indice_Ecriture, 1) = "24"
        Equipe_Domicile = Cells(2, Repere)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 2) = Equipe_Domicile
        Worksheets("DATABIS").Cells(Indice_Ecriture, 3) = "Domicile"
        Worksheets("DATABIS").Cells(Indice_Ecriture, 4) = Cells(Indice_Ligne, Repere)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 5) = Cells(Indice_Ligne, Repere + 1)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 6) = Cells(Indice_Ligne, Repere + 2)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 7) = Cells(Indice_Ligne, Repere + 3)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 8) = Cells(Indice_Ligne, Repere + 4)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 9) = Cells(Indice_Ligne, Repere + 5)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 10) = Cells(Indice_Ligne, Repere + 6)
        Worksheets("DATABIS").Cells(Indice_Ecriture, 11) = Cells(Indice_Ligne, Repere + 7)
        Indice_Ligne = Indice_Ligne + 1
        Indice_Ecriture = Indice_Ecriture + 1
    Loop
End Sub

Amicalement

Philoche

Bonjour

A essayer

Dans Sub Copie -> COPIEDATA Repere, Indice_Ecriture, DomExt

Puis

Sub COPIEDATA(Repere, Indice_Ecriture, DomExt)

On pourrait surement mieux faire...

Cordialement

Bonjour,

C'est parfait ! j'étais persuadé qu'il fallait mettre des parenthèses pour l'appel de la procédure !

Un grand merci pour ton aide !

Bonne journée !

Philippe

Re

Ok. N'oublie pas de cloturer tes fils lorsque tu en as terminé.

Click sur la case à cocher Verte à coté du bouton EDITER.

Pour le rouvrir, click sur la même case qui est devenue rouge lorsque le fil est cloturer

Pour ce fil, je le cloture

Bonne journée

Bonjour,

merci pour l'info !

bonne journée

Philippe