Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Regarde le classeur à l'adresse : http://cjoint.com/?estrp7yO0W J'ai changé la propriété ScrollHeight du formulaire Ficheclient. L'aspect dépend du rapport Height / ScrollHeight Cordialement. Daniel "lolo" a écrit dans le message de news:
Bonjour à tous
J'ai un soucis je voudrais faire défiler mes formulaires ( suivant prècedent) mais je ne vois pas comment m'y prendre Pouvez vous m'aider
Voici un lien de mon fichier (format zip) qui est presque abouti : http://cjoint.com/?esqxba33K6
Bonne soirée et merci de votre aide
A++
Bonjour.
Regarde le classeur à l'adresse :
http://cjoint.com/?estrp7yO0W
J'ai changé la propriété ScrollHeight du formulaire Ficheclient. L'aspect
dépend du rapport Height / ScrollHeight
Cordialement.
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1176906225.752817.251730@p77g2000hsh.googlegroups.com...
Bonjour à tous
J'ai un soucis je voudrais faire défiler mes formulaires ( suivant
prècedent) mais je ne vois pas comment m'y prendre
Pouvez vous m'aider
Voici un lien de mon fichier (format zip) qui est presque abouti :
http://cjoint.com/?esqxba33K6
Bonjour. Regarde le classeur à l'adresse : http://cjoint.com/?estrp7yO0W J'ai changé la propriété ScrollHeight du formulaire Ficheclient. L'aspect dépend du rapport Height / ScrollHeight Cordialement. Daniel "lolo" a écrit dans le message de news:
Bonjour à tous
J'ai un soucis je voudrais faire défiler mes formulaires ( suivant prècedent) mais je ne vois pas comment m'y prendre Pouvez vous m'aider
Voici un lien de mon fichier (format zip) qui est presque abouti : http://cjoint.com/?esqxba33K6
Bonne soirée et merci de votre aide
A++
lolo
Salut Merci Daniel
Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un pour visionner les formulaires précedents et l'autre pour avancer...un peu comme dans Access. Peux tu m'aider ? J'avais ce code mais ca ne fonctionne pas :
Private Sub Precedent_Click()
On Error Resume Next With Me If Not IsNull(Me.fiche) Then adr = Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address .nom.value = Sheets("base").Range(adr).Offset(-1, 1) .fiche.value = Sheets("base").Range(adr).Offset(-1, 0) .daterecep.value = Sheets("base").Range(adr).Offset(-1, 2) .dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3) .serinum.value = Sheets("base").Range(adr).Offset(-1, 4)... End If End With
Merci beaucoup
A++
Lolo
Salut Merci Daniel
Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un
pour visionner les formulaires précedents et l'autre pour avancer...un
peu comme dans Access.
Peux tu m'aider ?
J'avais ce code mais ca ne fonctionne pas :
Private Sub Precedent_Click()
On Error Resume Next
With Me
If Not IsNull(Me.fiche) Then
adr =
Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address
.nom.value = Sheets("base").Range(adr).Offset(-1, 1)
.fiche.value = Sheets("base").Range(adr).Offset(-1, 0)
.daterecep.value = Sheets("base").Range(adr).Offset(-1, 2)
.dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3)
.serinum.value = Sheets("base").Range(adr).Offset(-1, 4)...
End If
End With
Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un pour visionner les formulaires précedents et l'autre pour avancer...un peu comme dans Access. Peux tu m'aider ? J'avais ce code mais ca ne fonctionne pas :
Private Sub Precedent_Click()
On Error Resume Next With Me If Not IsNull(Me.fiche) Then adr = Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address .nom.value = Sheets("base").Range(adr).Offset(-1, 1) .fiche.value = Sheets("base").Range(adr).Offset(-1, 0) .daterecep.value = Sheets("base").Range(adr).Offset(-1, 2) .dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3) .serinum.value = Sheets("base").Range(adr).Offset(-1, 4)... End If End With
Merci beaucoup
A++
Lolo
Daniel
J'ai rajouté un scrollbar sur le formulaire "ficheclient1" : http://cjoint.com/?etamMzwlAC Daniel "lolo" a écrit dans le message de news:
Salut Merci Daniel
Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un pour visionner les formulaires précedents et l'autre pour avancer...un peu comme dans Access. Peux tu m'aider ? J'avais ce code mais ca ne fonctionne pas :
Private Sub Precedent_Click()
On Error Resume Next With Me If Not IsNull(Me.fiche) Then adr Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address .nom.value = Sheets("base").Range(adr).Offset(-1, 1) .fiche.value = Sheets("base").Range(adr).Offset(-1, 0) .daterecep.value = Sheets("base").Range(adr).Offset(-1, 2) .dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3) .serinum.value = Sheets("base").Range(adr).Offset(-1, 4)... End If End With
Merci beaucoup
A++
Lolo
J'ai rajouté un scrollbar sur le formulaire "ficheclient1" :
http://cjoint.com/?etamMzwlAC
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1176924339.321277.221380@y5g2000hsa.googlegroups.com...
Salut Merci Daniel
Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un
pour visionner les formulaires précedents et l'autre pour avancer...un
peu comme dans Access.
Peux tu m'aider ?
J'avais ce code mais ca ne fonctionne pas :
Private Sub Precedent_Click()
On Error Resume Next
With Me
If Not IsNull(Me.fiche) Then
adr Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address
.nom.value = Sheets("base").Range(adr).Offset(-1, 1)
.fiche.value = Sheets("base").Range(adr).Offset(-1, 0)
.daterecep.value = Sheets("base").Range(adr).Offset(-1, 2)
.dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3)
.serinum.value = Sheets("base").Range(adr).Offset(-1, 4)...
End If
End With
J'ai rajouté un scrollbar sur le formulaire "ficheclient1" : http://cjoint.com/?etamMzwlAC Daniel "lolo" a écrit dans le message de news:
Salut Merci Daniel
Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un pour visionner les formulaires précedents et l'autre pour avancer...un peu comme dans Access. Peux tu m'aider ? J'avais ce code mais ca ne fonctionne pas :
Private Sub Precedent_Click()
On Error Resume Next With Me If Not IsNull(Me.fiche) Then adr Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address .nom.value = Sheets("base").Range(adr).Offset(-1, 1) .fiche.value = Sheets("base").Range(adr).Offset(-1, 0) .daterecep.value = Sheets("base").Range(adr).Offset(-1, 2) .dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3) .serinum.value = Sheets("base").Range(adr).Offset(-1, 4)... End If End With
Merci beaucoup
A++
Lolo
lolo
Merci Daniel
C'est exactement ce que je voulais il va falloir que je regarde le code afin de comprendre ce que tu as rajouté...
Merci beaucoup Bonne fin de journée
A++
Lolo
Merci Daniel
C'est exactement ce que je voulais il va falloir que je regarde le
code afin de comprendre ce que tu as rajouté...
C'est exactement ce que je voulais il va falloir que je regarde le code afin de comprendre ce que tu as rajouté...
Merci beaucoup Bonne fin de journée
A++
Lolo
Daniel
Bonjour. Pour t'avancer un peu, dans Userform_change, j'ai fixé le minimum (2) et le maximum (dernière ligne de la colonne A) du scrollbar. J'ai également fixé la valeur initiale du scrollbar selon la valeur obtenue par l'inputbox. Dans le Scrollbar_Change, je remplis le formulaire. Daniel "lolo" a écrit dans le message de news:
Merci Daniel
C'est exactement ce que je voulais il va falloir que je regarde le code afin de comprendre ce que tu as rajouté...
Merci beaucoup Bonne fin de journée
A++
Lolo
Bonjour.
Pour t'avancer un peu, dans Userform_change, j'ai fixé le minimum (2) et le
maximum (dernière ligne de la colonne A) du scrollbar. J'ai également fixé
la valeur initiale du scrollbar selon la valeur obtenue par l'inputbox.
Dans le Scrollbar_Change, je remplis le formulaire.
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1176975062.413539.194440@d57g2000hsg.googlegroups.com...
Merci Daniel
C'est exactement ce que je voulais il va falloir que je regarde le
code afin de comprendre ce que tu as rajouté...
Bonjour. Pour t'avancer un peu, dans Userform_change, j'ai fixé le minimum (2) et le maximum (dernière ligne de la colonne A) du scrollbar. J'ai également fixé la valeur initiale du scrollbar selon la valeur obtenue par l'inputbox. Dans le Scrollbar_Change, je remplis le formulaire. Daniel "lolo" a écrit dans le message de news:
Merci Daniel
C'est exactement ce que je voulais il va falloir que je regarde le code afin de comprendre ce que tu as rajouté...