VBA Excel: comment créer un sub utilisant des parametres ?

Marsh Posté le 25-04-2009 à 14:06:14

:hello:

Je suis ultra débutant en VBA,
j'ai écrit mes premières ligne de code pour tester quelque chose de tout simple: remplir les 10 premières lignes de la premiere colone.
Je souhaite rendre le sub flexible et mettre des parametres pour choisir où débute et s'arrete le remplissage, quelquechose du genre fill(X,Y) par exemple.

Impossible de comprendre ou déclarer les parametres et comment les intégrer au code,
quelqu'un saurait-il m'expliquer ?

Voici mon code exemple

Citation :

Public Sub fill()
Dim intCount As Integer

With wksSh1
.Activate
For intCount = 1 To 10
.Cells(1, intCount)= "Test"
Next intCount
End With

End Sub

Merci par avance

Marsh Posté le 25-04-2009 à 14:06:14

Marsh Posté le 26-04-2009 à 07:20:56

Salut,voir l'aide en ligne d'Excel

Message édité par kiki29 le 26-04-2009 à 07:23:24

Marsh Posté le 26-04-2009 à 09:38:13

j'ai bien sûr commencé par là + recherche google mais ça m'a plus embrouillé qu'autre chose.

Marsh Posté le 26-04-2009 à 10:17:53

salut

Option Explicit

Private Sub Fill(X As String, Y As String)
Dim c As Range, Plage As Range
Set Plage = ShTst.Range(X & ":" & Y)
With ShTst
.Cells.Clear
For Each c In Plage
c = "Test"
Next c
End With
End Sub

Sub Tst()
Fill "B4", "C3"
End Sub

Message édité par kiki29 le 26-04-2009 à 10:18:39

Marsh Posté le 26-04-2009 à 10:50:37

merci beaucoup !!!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *