Explication VBA

[lynyrd]

Bonjour le Forum
Mes connaissances en VBA étant quasi nulles,j'essaie en vain de modifier le code dans le fichier mais en vain.
Que faudrait t'il modifier pour que le "tirage 2" s'inscrive dans les cellules (C15 à C18) et (F15 à F18) ?
Merci pour votre aide.

 

[Compte Supprimé 979]

Re : Explication VBA

Salut Lynyrd,

Dans le code on teste si la ligne actuelle est supérieure au nombre de ligne souhaitée

If ligne > Range("k3") Then

Mais comme ton nouveau tableau commen à la ligne 15, il faut ajouter cette valeur au nombre de ligne souhaitée

If ligne > [B][COLOR=blue]15 +[/COLOR][/B] Range("k3") Then

Ce qui te donne

Sub tirage2()
  ligne = 15
  colonne = 3
  Set liste = New Collection
  While liste.Count < Range("k1")
    Randomize
    num = Int((Range("k1") * Rnd) + 2)
    On Error Resume Next
    liste.Add num, CStr(num)
    On Error GoTo 0
  Wend
  For n = 1 To liste.Count
    Cells(ligne, colonne) = Range("A" & liste(n))
    ligne = ligne + 1
    If ligne > [B][COLOR=blue]15 +[/COLOR][/B] Range("k3") Then
      ligne = 15
      colonne = colonne + 3
    End If
  Next n
End Sub

Voili, voilà 😉

A+

 

[Gael]

Re : Explication VBA

Bonjour Lynyrd, bonjour à tous,

Dans la macro "Tirage2" il fallait simplement ajouter :

If ligne > Range("k3") [COLOR=red]+ 13[/COLOR]

Ceci étant, les 2 macros étant presque identiques, le fichier ci joint comprend une seule macro que l'on lance avec un paramètre égal au numéro de ligne de départ souhaité:

Call tirage(2)

ou

Call tirage(15)

ou n'importe quel n° de ligne.

La macro s'appelle "Tirage".

@+

Gael

Edit: Salut Bruno. Petite erreur dans ton explication, il faut rajouter 13 et non pas 15 puisque le code tient compte de la ligne de départ égale à 2.

 

[Compte Supprimé 979]

Re : Explication VBA

Salut Gael 😉

Etrange, on ne trouve pas le même numéro de ligne 😕
Tu es sûr du nombre 😀

 

[lynyrd]

Re : Explication VBA

Meici à tous les deux
en regardand la correction de gael et en l'adaptant à celle de brunom45,les 2 fonctionnent (+13).
Encore merci pour vos explications.
A+