N
Nico_OOo
Guest
bonjour a tous,
je voudrais utiliser ma fonction Copier_cell a l'interieur d une boucle.
Je precise que cette fonction na pas de valeur de retour.
Merci pour toute info sur l usage de ce type de fonction.
Sub Copie_Cellules()
'
' Copie_Cellules Macro
' Macro enregistrée le 29/04/2004 par NS
'
'
Dim ordo_depart As Integer
ordo_depart = 5
Function Copier_cell(cell_KO As Integer, cell_IN As Integer) As Boolean
Sheets("KO").Select
Cells(i, cell_KO).Select
Selection.Copy
Sheets("IN").Select
Cells(i + ordo_depart, cell_IN).Select
ActiveSheet.Paste
End Function
For i = 2 To 10
Copier_cell(i, 9)
Next i
End Function
je voudrais utiliser ma fonction Copier_cell a l'interieur d une boucle.
Je precise que cette fonction na pas de valeur de retour.
Merci pour toute info sur l usage de ce type de fonction.
Sub Copie_Cellules()
'
' Copie_Cellules Macro
' Macro enregistrée le 29/04/2004 par NS
'
'
Dim ordo_depart As Integer
ordo_depart = 5
Function Copier_cell(cell_KO As Integer, cell_IN As Integer) As Boolean
Sheets("KO").Select
Cells(i, cell_KO).Select
Selection.Copy
Sheets("IN").Select
Cells(i + ordo_depart, cell_IN).Select
ActiveSheet.Paste
End Function
For i = 2 To 10
Copier_cell(i, 9)
Next i
End Function