J'ai essay=E9 de mettre deux boutons de d=E9filement sur mon userform
"FICHE" je me suis inspir=E9 d'exemples mais ca ne fonctionne pas pouvez
vous m'aidez
autres choses, en vrac (et des idées de ce que je ferais si j'avais plus le temps) -fiche pour une feuille et fiche pour un UF le même nom?? pas terrible... §§ cela finira par interferer et poser pb amha...
-je viens d'entrer une fiche6 pourtant elle existait déjà, Si tu veux indexer il faut initialiser le userform sur un même numéro d'index que les champs qui sont dans la base. Au lieu des deux boutons mettre un spinbutton sur N prévoir une sub qui initialize entièrement le userform, selon l'enregistrement N sur lequel l'utilisateur se trouve dans la base appeller cette sub par call sur spinbutton_change Remplacer au maximum les combobox par des textbox qui renvoient exclusivement les valeurs correspondant à l'enregistrement d'indice N dans la base. Si des listes sont nécessaires pour la saisie dans ce cas seul employer un combobox qui renseigne le textbox correspondant. Pour faire cela correctement, il faudrait instaurer un contrôle de validation, pour s'assurer de la complétude des éléments avant renvoi dans la base par commandbutton. Pour la feuille fiche, prévoir uniquement les formules(excel)nécessaires à la lecture des enregistrements de la base.Et le cas échéant un choix de l'enregistrement que l'on veut lire (N) Voilà donc pour l'idée, que je n'aurais helas pas le temps de suivre ces prochains jours.
Cordialement.
Lsteph
Merci de ton aide
En fait si les 2 boutons fonctionnent je supprimerais le second userform consult2 Je developpe en parrallele un autres programme et j'aimerais faire la même viuq ue j'utilise un second formulaire et ca ne plait pas forcement au utilisateurs
Merci de ton aide
A++ Lolo
...
autres choses, en vrac
(et des idées de ce que je ferais si j'avais plus le temps)
-fiche pour une feuille et fiche pour un UF le même nom??
pas terrible...
§§ cela finira par interferer et poser pb amha...
-je viens d'entrer une fiche6 pourtant elle existait déjà,
Si tu veux indexer il faut initialiser le userform sur un même numéro
d'index que les champs qui sont dans la base.
Au lieu des deux boutons mettre un spinbutton sur N
prévoir une sub qui initialize entièrement le userform,
selon l'enregistrement N sur lequel l'utilisateur se trouve dans la base
appeller cette sub par call sur spinbutton_change
Remplacer au maximum les combobox par des textbox
qui renvoient exclusivement les valeurs correspondant à l'enregistrement
d'indice N dans la base.
Si des listes sont nécessaires pour la saisie
dans ce cas seul employer un combobox qui renseigne le textbox
correspondant.
Pour faire cela correctement, il faudrait instaurer un contrôle de
validation, pour s'assurer de la complétude des éléments avant renvoi
dans la base par commandbutton.
Pour la feuille fiche, prévoir uniquement les formules(excel)nécessaires
à la lecture des enregistrements de la base.Et le cas échéant un choix
de l'enregistrement que l'on veut lire (N)
Voilà donc pour l'idée, que je n'aurais helas pas le temps de suivre
ces prochains jours.
Cordialement.
Lsteph
Merci de ton aide
En fait si les 2 boutons fonctionnent je supprimerais le second
userform consult2
Je developpe en parrallele un autres programme et j'aimerais faire la
même viuq ue j'utilise un second formulaire et ca ne plait pas
forcement au utilisateurs
autres choses, en vrac (et des idées de ce que je ferais si j'avais plus le temps) -fiche pour une feuille et fiche pour un UF le même nom?? pas terrible... §§ cela finira par interferer et poser pb amha...
-je viens d'entrer une fiche6 pourtant elle existait déjà, Si tu veux indexer il faut initialiser le userform sur un même numéro d'index que les champs qui sont dans la base. Au lieu des deux boutons mettre un spinbutton sur N prévoir une sub qui initialize entièrement le userform, selon l'enregistrement N sur lequel l'utilisateur se trouve dans la base appeller cette sub par call sur spinbutton_change Remplacer au maximum les combobox par des textbox qui renvoient exclusivement les valeurs correspondant à l'enregistrement d'indice N dans la base. Si des listes sont nécessaires pour la saisie dans ce cas seul employer un combobox qui renseigne le textbox correspondant. Pour faire cela correctement, il faudrait instaurer un contrôle de validation, pour s'assurer de la complétude des éléments avant renvoi dans la base par commandbutton. Pour la feuille fiche, prévoir uniquement les formules(excel)nécessaires à la lecture des enregistrements de la base.Et le cas échéant un choix de l'enregistrement que l'on veut lire (N) Voilà donc pour l'idée, que je n'aurais helas pas le temps de suivre ces prochains jours.
Cordialement.
Lsteph
Merci de ton aide
En fait si les 2 boutons fonctionnent je supprimerais le second userform consult2 Je developpe en parrallele un autres programme et j'aimerais faire la même viuq ue j'utilise un second formulaire et ca ne plait pas forcement au utilisateurs
Merci de ton aide
A++ Lolo
LSteph
Lis mon message précédent, a priori, j'ai devancé ta question tu peux aussi t'appuyer sur les exemples figurant sur excelabo.net
... sinon outre le réaliser toi même, as-tu essayé données formulaires? Tu trouveras cela en mieux sur le site de JWalk. Bien sûr celui déjà intégré à excel et ne couvre pas tout ce que tu souhaites, l'autre est intéressant.
En attendant pour un spinbutton voici exemple modèle réduit.
http://cjoint.com/?iebergReiM
''''''''''''''''''''' ''Feuil1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) UserForm1.Show End Sub
''Module1 Public myN As Long
''Userform1
Private Sub SpinButton1_Change() myN = Me.SpinButton1 Call prepare End Sub
Private Sub UserForm_Initialize() If Not IsEmpty(ActiveCell.Value) Then myN = ActiveCell.Row - 1 Else myN = 1 End If SpinButton1 = myN Call prepare End Sub
Private Sub prepare() Dim i As Byte For i = 1 To 6 Me.Controls("Label" & i) = Feuil1.Cells(1, i) Me.Controls("Textbox" & i) = Feuil1.Cells(myN + 1, i) Next Label7 = myN Feuil1.Cells(myN + 1, 1).Activate 'facultatif End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
L Steph
En fait je voudrais que quand je me deplace les infos des champs de la feuille Base soient affichés dans ma fiche aussi bien quand j'avance que lorsque je recule
En fait j'apprends au fur et a mesure...
Merci a toi de ton aide
@++
Lolo
Lis mon message précédent, a priori, j'ai devancé ta question
tu peux aussi t'appuyer sur les exemples figurant sur excelabo.net
... sinon outre le réaliser toi même, as-tu essayé données formulaires?
Tu trouveras cela en mieux sur le site de JWalk.
Bien sûr celui déjà intégré à excel et ne couvre pas tout ce que tu
souhaites, l'autre est intéressant.
En attendant pour un spinbutton voici exemple modèle réduit.
http://cjoint.com/?iebergReiM
'''''''''''''''''''''
''Feuil1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
UserForm1.Show
End Sub
''Module1
Public myN As Long
''Userform1
Private Sub SpinButton1_Change()
myN = Me.SpinButton1
Call prepare
End Sub
Private Sub UserForm_Initialize()
If Not IsEmpty(ActiveCell.Value) Then
myN = ActiveCell.Row - 1
Else
myN = 1
End If
SpinButton1 = myN
Call prepare
End Sub
Private Sub prepare()
Dim i As Byte
For i = 1 To 6
Me.Controls("Label" & i) = Feuil1.Cells(1, i)
Me.Controls("Textbox" & i) = Feuil1.Cells(myN + 1, i)
Next
Label7 = myN
Feuil1.Cells(myN + 1, 1).Activate 'facultatif
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
L Steph
En fait je voudrais que quand je me deplace les infos des champs de la
feuille Base soient affichés dans ma fiche aussi bien quand j'avance
que lorsque je recule
Lis mon message précédent, a priori, j'ai devancé ta question tu peux aussi t'appuyer sur les exemples figurant sur excelabo.net
... sinon outre le réaliser toi même, as-tu essayé données formulaires? Tu trouveras cela en mieux sur le site de JWalk. Bien sûr celui déjà intégré à excel et ne couvre pas tout ce que tu souhaites, l'autre est intéressant.
En attendant pour un spinbutton voici exemple modèle réduit.
http://cjoint.com/?iebergReiM
''''''''''''''''''''' ''Feuil1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) UserForm1.Show End Sub
''Module1 Public myN As Long
''Userform1
Private Sub SpinButton1_Change() myN = Me.SpinButton1 Call prepare End Sub
Private Sub UserForm_Initialize() If Not IsEmpty(ActiveCell.Value) Then myN = ActiveCell.Row - 1 Else myN = 1 End If SpinButton1 = myN Call prepare End Sub
Private Sub prepare() Dim i As Byte For i = 1 To 6 Me.Controls("Label" & i) = Feuil1.Cells(1, i) Me.Controls("Textbox" & i) = Feuil1.Cells(myN + 1, i) Next Label7 = myN Feuil1.Cells(myN + 1, 1).Activate 'facultatif End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
L Steph
En fait je voudrais que quand je me deplace les infos des champs de la feuille Base soient affichés dans ma fiche aussi bien quand j'avance que lorsque je recule
En fait j'apprends au fur et a mesure...
Merci a toi de ton aide
@++
Lolo
lolo
Merci Lsteph
Je vais essayer de m'appuyer sur ce que tu me proposes
L'exemple vas beaucoup m'aider
Je te remercie de ton aide
A++
Lolo
Merci Lsteph
Je vais essayer de m'appuyer sur ce que tu me proposes