Repartition des patients

[MBONGA MBALI]

slt tous le monde ..
un petit programme pour ma petite clinique psychologique .. vraiment j'ai voulu faire une repartition avec userform vba .. j'ai cherche un peu ici j'ai trouve quelque sujet pareil mais j'ai pas pu l'adapter ..j'ai explique mon desir dans la feuil 1 de ce classeur
cordialement
MBALI

 

[MBONGA MBALI]

Re : Repartition des patients

svp .. se sera tres gentille de votre part si vous pouvez seulement m'aider pour un premier pas ..

 

[Papou-net]

Re : Repartition des patients

Bonsoir MBONGA MBALI,

Patience, patience,...je travaillais dessus.

Voici une copie de ton fichier qui devrait répondre à ta demande.

Cordialement.

 

[Dranreb]

Re : Repartition des patients

Bonsoir.

Option Explicit
Dim T()

Private Sub UserForm_Initialize()
T = Feuil1.[G2:L51].Value
GarnirChamps
End Sub

Private Sub SpinButton1_Change()
Me.TextBox71.Text = SpinButton1.Value + 1
GarnirChamps
End Sub

Sub GarnirChamps()
Dim L&, C&, dL&, Le&
dL = 10 * SpinButton1.Value
For L = 1 To 10
   Le = L + dL
   Me("TextBox" & L).Text = Format(Le, "000")
   For C = 1 To 6
      If Le <= UBound(T, 1) Then
         Me("TextBox" & C * 10 + L).Text = T(Le, C)
      Else
         Me("TextBox" & C * 10 + L).Text = ""
         End If: Next C, L
End Sub

Edit: Bonsoir Papou-net.

 

[MBONGA MBALI]

Re : Repartition des patients

merci beaucoup Papou-net ..tres gentille de votre part maitre
merci beaucoup Dranreb ..tres gentille de votre part maitre
je vous remercie infiniment de vos excellentes reponse
c'est bien ce que je veux
c'est bien resolu
cordialement
MBALI