bellenm
XLDnaute Impliqué
Bonjour à tous,
J'ai eu beau chercher sur le forum, je ne trouve pas la solution, pourriez-vous m'aider svp, merciii.
J'ai essayer de modifier l'emplacement d'un fichier de "camarchepas" le débogueur indique une erreur dans la ligne du fichier!?
J'ai beau chercher mais ne vois pas l'erreur donc pas non plus la solution.
Si vous trouver la solution, peut on avec ce code faire de même la sélection suivante "N16:N21" sur la même feuille
Voici en FJ
Merci d'avance
Marc
J'ai eu beau chercher sur le forum, je ne trouve pas la solution, pourriez-vous m'aider svp, merciii.
J'ai essayer de modifier l'emplacement d'un fichier de "camarchepas" le débogueur indique une erreur dans la ligne du fichier!?
Code:
Sub Tirage2()
'
' formule de camemarchepas
'
Dim Sort As Long, Personne As Long, Nombre As Long, Tourne As Long, Vue As Long
Dim Dictio As Object
Personne = TIRAGELISTING.Range("N" & Rows.Count).End(xlUp).Row
' au depart à la place de TIAGELISTING il y avait Feuil1 car ce code était sur "Feuil1" dans le classeur
Nombre = InputBox("Combien de personnes à trouver")
If Nombre > Personne Then MsgBox " Impossible, pas assez de personnes disponibles": Exit Sub
Set Dictio = CreateObject("Scripting.Dictionary")
For Tourne = 1 To Nombre
Do
Sort = Int(Rnd(Timer) * Personne) + 1
Dictio(Range("N" & Sort).Value) = ""
Vue = Dictio.Count
Loop Until Dictio.Count = Tourne
Next Tourne
Range("O2").Resize(Dictio.Count, 1) = Application.Transpose(Dictio.keys)
End Sub
J'ai beau chercher mais ne vois pas l'erreur donc pas non plus la solution.
Si vous trouver la solution, peut on avec ce code faire de même la sélection suivante "N16:N21" sur la même feuille
Voici en FJ
Merci d'avance
Marc