Bonjour

Comment passer la variable ligne vers la macro sixhuitaevado

Private Sub CommandButton1_Click()
Y = Cells(1, 1).Height
ligne = 1
While Y < CommandButton1.Top
ligne = ligne + 1
Y = Y + Cells(ligne, 1).Height
Wend
'Cells(1, 1).Value = ligne
Call sixhuitaevado
End Sub

début de la macro

Sub sixhuitaevado()
On Error GoTo GestionErreur
Dim WB As String
If Workbooks.Count = 2 Then 'cherche le nom du classeur inscription
For i = 1 To 2
If Not Workbooks(i).Name = ThisWorkbook.Name Then WB = Workbooks(i).Name
Next i
End If

tout ça se trouve dans le même fichier

merci

salut le Forum

Call sixhuitaevado(Ligne)

Sub sixhuitaevado(Ligne as Integer)

bonjour Mytå

impeccable grand merci (il faut pas mettre as integer)sinon erreur.

Je n'aurais pas trouvé tout seul.

@+