[RESOLU] : Aidez moi a mettre un code

[MADAGASCAR]

Bonjour EXCEL DOWNLOADS
Bonjour a tout le monde
Svp si vous pouvez m'aider de mettre un code a cet userform .. j'ai fais des recherches et j'ai essayé de comprendre
mais malheureusement j'ai pas reussi a le faire seul..
J'aimerai bien apprendre a afficher les donnees dans l'onglet "DATABASE" dans l'userform1 ..les noms s'affichent par boucle cinq cinq par spinbutton1 jusqu'a la fin ..j'ai mis un textbox36 pour la numerotation du page " 1,2,3,4,5,6, ..20 ".
Merci d'avance pour l'aide
Cordialement
MADA

 

[pierrejean]

Re : Aidez moi a mettre un code

Bonjour MADA

Vois si cela te convient

 

[job75]

Re : Aidez moi a mettre un code

Bonjour MADAGASCAR, salut Pierre,

Autre solution, si j'ai bien compris :

Private Sub SpinButton1_Change()
Dim i As Variant, c As Range
TextBox36 = SpinButton1
i = Application.Match(SpinButton1, [A:A], 0)
If IsNumeric(i) Then Set c = Cells(i, 1)
For i = 1 To 35
  If c Is Nothing Then Me("TextBox" & i) = "" Else _
    Me("TextBox" & i) = c(1 + (i - 1) Mod 5, 1 + Int((i - 1) / 5))
Next
End Sub

A+

 

[MADAGASCAR]

Re : Aidez moi a mettre un code

Bonjour pierrejean
Merci beaucoup pour votre aide
Excellent code de votre part
C'est exactement ce que je veux faire
Seulement SVP si vous pouvez biensure aider moi a comprendre comment faire si je veux ajouter des noms à "DATABASE" plus que 100 ..et changer la plage par exemple ( H9:N )
Merci d'avance maitre
Cordialement
MADA

 

[MADAGASCAR]

Re : Aidez moi a mettre un code

Bonjour JOB75
Merci pour votre aide
Surement maitre vous m'avez mal compris car je veux afficher dans l'usf les noms de 1 à 5 puis lorsque je change la deuxieme page par spinbutton s'affichent dans mon usf les noms de 6 à 10 .. puis de 11 à 15 et ainsi de suite ..textbox36 pour afficher la numerotation du page de 1 à 20 pages.
Merci d'avance pour votre aide
Cordialement
MADA

 

[job75]

Re : Aidez moi a mettre un code

Seulement SVP si vous pouvez biensure aider moi a comprendre comment faire si je veux ajouter des noms à "DATABASE" plus que 100 ..et changer la plage par exemple ( H9:N )

Nommez dynamiquement le tableau (nombreux exemples sur le forum).

Si vous le nommez "Tableau" :

Private Sub SpinButton1_Change()
Dim i As Variant, c As Range
TextBox36 = SpinButton1
i = Application.Match(SpinButton1, [Tableau].Columns(1), 0)
If IsNumeric(i) Then Set c = [Tableau].Cells(i, 1)
For i = 1 To 35
  If c Is Nothing Then Me("TextBox" & i) = "" Else _
    Me("TextBox" & i) = c(1 + (i - 1) Mod 5, 1 + Int((i - 1) / 5))
Next
End Sub

A+

 

[MADAGASCAR]

Re : Aidez moi a mettre un code

Salut JOB75
Merci beaucoup pour votre magnifique code
Seulement il me reste comment afficher dans la page1 dans userform les noms de1 à 5..puis page2 les noms de 6 à 10 ..et ainsi de suite
Merci d'avance pour l'aide
Cordialement
MADA

 

[job75]

Re : Aidez moi a mettre un code

Re,

Surement maitre vous m'avez mal compris car je veux afficher dans l'usf les noms de 1 à 5 puis lorsque je change la deuxieme page par spinbutton s'affichent dans mon usf les noms de 6 à 10 ..

En effet j'avais mal compris, alors le code de l'USF, toujours avec le tableau nommé :

Private Sub SpinButton1_Change()
Dim i As Variant, c As Range
TextBox36 = SpinButton1
i = Application.Match(5 * SpinButton1 - 4, [Tableau].Columns(1), 0)
If IsNumeric(i) Then Set c = [Tableau].Cells(i, 1)
For i = 1 To 35
  If c Is Nothing Then Me("TextBox" & i) = "" Else _
    Me("TextBox" & i) = c(1 + (i - 1) Mod 5, 1 + Int((i - 1) / 5))
Next
End Sub

Private Sub UserForm_Initialize()
SpinButton1.Min = 0
SpinButton1.Max = Int([Tableau].Rows.Count / 5)
SpinButton1 = 1
SpinButton1_Change
End Sub

A+

 

[MADAGASCAR]

Re : Aidez moi a mettre un code

BRAVO job75
C'est exactement ce que je veux avoir
Mille fois merci pour votre reponse et code
C'est parfaitement resolu
Cordialement
MADA

 

[job75]

Re : [RESOLU] : Aidez moi a mettre un code

Re,

La détermination de SpinButton1.Max ne va pas bien, utilisez :

SpinButton1.Max = Application.RoundUp(Application.Max([Tableau].Columns(1)) / 5, 0)

A+

 

[MADAGASCAR]

Re : [RESOLU] : Aidez moi a mettre un code

Bonsoir JOB75
Merci mille fois maitre pour votre excellent suivi ..
C'est bien fait et modifié
Merci
Cordialement
MADA