Bonsoir,
dans mon formulaire je rapatrie des donnees dans les textbox pour
modification, j'ai donc un combobox, ca marche eun bouton validation
c'est Ok et aussi une toupie pour faire defiler les enregistrements
ils marchent sauf sur le dernier (erreur 380) codes :
Private Sub SpinButton1_SpinDown()
If Me.Choix_Nom.ListIndex > 0 Then
Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex - 1
[C2].Offset(Me.Choix_Nom.ListIndex, 0).Select
transfert
End If
End Sub
Private Sub SpinButton1_SpinUp()
If Me.Choix_Nom.ListIndex >= 0 Then
Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex + 1
[C2].Offset(Me.Choix_Nom.ListIndex, 0).Select
transfert
End If
End Sub
Quetion Comment lui dire que je suis sur le dernier nom de la liste ?
et par contre je n'arrive toujours pas a modifier le nom
pour tout les autres champs c'est Ok
merci de votre coup de main
andre à dit pour l'instant j'ai mis : one error resume next mais c'est pas genial
-- andre
Daniel.C
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel "andre" a écrit dans le message de news:
Bonsoir, dans mon formulaire je rapatrie des donnees dans les textbox pour modification, j'ai donc un combobox, ca marche eun bouton validation c'est Ok et aussi une toupie pour faire defiler les enregistrements ils marchent sauf sur le dernier (erreur 380) codes : Private Sub SpinButton1_SpinDown() If Me.Choix_Nom.ListIndex > 0 Then Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex - 1 [C2].Offset(Me.Choix_Nom.ListIndex, 0).Select transfert End If
End Sub
Private Sub SpinButton1_SpinUp() If Me.Choix_Nom.ListIndex >= 0 Then Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex + 1 [C2].Offset(Me.Choix_Nom.ListIndex, 0).Select transfert End If
End Sub Quetion Comment lui dire que je suis sur le dernier nom de la liste ? et par contre je n'arrive toujours pas a modifier le nom pour tout les autres champs c'est Ok merci de votre coup de main
-- andre
Bonjour.
Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici
l'adresse générée (supprime les éventuelles données sensibles)
Cordialement.
Daniel
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.45127d827aa09e72.51150@cegetel.net...
Bonsoir,
dans mon formulaire je rapatrie des donnees dans les textbox pour
modification, j'ai donc un combobox, ca marche eun bouton validation c'est
Ok et aussi une toupie pour faire defiler les enregistrements
ils marchent sauf sur le dernier (erreur 380) codes :
Private Sub SpinButton1_SpinDown()
If Me.Choix_Nom.ListIndex > 0 Then
Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex - 1
[C2].Offset(Me.Choix_Nom.ListIndex, 0).Select
transfert
End If
End Sub
Private Sub SpinButton1_SpinUp()
If Me.Choix_Nom.ListIndex >= 0 Then
Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex + 1
[C2].Offset(Me.Choix_Nom.ListIndex, 0).Select
transfert
End If
End Sub
Quetion Comment lui dire que je suis sur le dernier nom de la liste ?
et par contre je n'arrive toujours pas a modifier le nom
pour tout les autres champs c'est Ok
merci de votre coup de main
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel "andre" a écrit dans le message de news:
Bonsoir, dans mon formulaire je rapatrie des donnees dans les textbox pour modification, j'ai donc un combobox, ca marche eun bouton validation c'est Ok et aussi une toupie pour faire defiler les enregistrements ils marchent sauf sur le dernier (erreur 380) codes : Private Sub SpinButton1_SpinDown() If Me.Choix_Nom.ListIndex > 0 Then Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex - 1 [C2].Offset(Me.Choix_Nom.ListIndex, 0).Select transfert End If
End Sub
Private Sub SpinButton1_SpinUp() If Me.Choix_Nom.ListIndex >= 0 Then Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex + 1 [C2].Offset(Me.Choix_Nom.ListIndex, 0).Select transfert End If
End Sub Quetion Comment lui dire que je suis sur le dernier nom de la liste ? et par contre je n'arrive toujours pas a modifier le nom pour tout les autres champs c'est Ok merci de votre coup de main
-- andre
andre
andre à dit
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel
bonjour daniel je vais essayer de mettre en ci-joint le fichier pese 4,3Mo il faut que je fasse le menage a bientot andre
-- andre
andre à dit
Bonjour.
Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici
l'adresse générée (supprime les éventuelles données sensibles)
Cordialement.
Daniel
bonjour daniel
je vais essayer de mettre en ci-joint
le fichier pese 4,3Mo il faut que je fasse le menage
a bientot
andre
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel
bonjour daniel je vais essayer de mettre en ci-joint le fichier pese 4,3Mo il faut que je fasse le menage a bientot andre
-- andre
andre
andre à dit
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel "andre" a écrit dans le message de news:
je joins le fichier en esperant que .... (1,6Mo)
allege au maxi http://www.cijoint.fr/cj200802/cij6389675743905.xls donc feuil Bas >> bouton gestion >>multipage 2 le nom ne se change pas spin bouton up arrivé au dernier enregis. erreur 380 j'ai mis en rem ligne de code "on error merci de votre aide benevole et genereuse andre
-- andre
andre à dit
Bonjour.
Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici
l'adresse générée (supprime les éventuelles données sensibles)
Cordialement.
Daniel
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.45127d827aa09e72.51150@cegetel.net...
je joins le fichier en esperant que .... (1,6Mo)
allege au maxi
http://www.cijoint.fr/cj200802/cij6389675743905.xls
donc feuil Bas >> bouton gestion >>multipage 2
le nom ne se change pas
spin bouton up arrivé au dernier enregis. erreur 380
j'ai mis en rem ligne de code "on error
merci de votre aide benevole et genereuse
andre
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel "andre" a écrit dans le message de news:
je joins le fichier en esperant que .... (1,6Mo)
allege au maxi http://www.cijoint.fr/cj200802/cij6389675743905.xls donc feuil Bas >> bouton gestion >>multipage 2 le nom ne se change pas spin bouton up arrivé au dernier enregis. erreur 380 j'ai mis en rem ligne de code "on error merci de votre aide benevole et genereuse andre
-- andre
MichDenis
Change ta procédure du formulaire : "Private Sub SpinButton1_SpinUp()" pour celle que je te propose :
Ce que tu dois savoir, c'est à partir de la propriété ListCount, il est possible de déterminer le nombre d'éléments de ta liste.
l'item 1 du contenu de ton combobox représente ListIndex 0 de ton combobox...En conséquence, tu dois ajouter 1 à listindex pour qu'il soit égale au nombre d'entrées du combobox représenté par la propriété ListCount ....Si tu ajoutes +2 , tu pourras faire la comparison suivante :
If Me.Choix_Nom.ListIndex + 2 > Me.Choix_Nom.ListCount Then Exit Sub
Et ton problème est réglé !
'------------------------------------------------ Private Sub SpinButton1_SpinUp()
If Me.Choix_Nom.ListIndex + 2 > Me.Choix_Nom.ListCount Then Exit Sub If Me.Choix_Nom.ListIndex >= 0 Then Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex + 1 [C2].Offset(Me.Choix_Nom.ListIndex, 0).Select transfert End If
End Sub '------------------------------------------------
"andre" a écrit dans le message de news:
andre à dit
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel "andre" a écrit dans le message de news:
je joins le fichier en esperant que .... (1,6Mo)
allege au maxi http://www.cijoint.fr/cj200802/cij6389675743905.xls donc feuil Bas >> bouton gestion >>multipage 2 le nom ne se change pas spin bouton up arrivé au dernier enregis. erreur 380 j'ai mis en rem ligne de code "on error merci de votre aide benevole et genereuse andre
-- andre
Change ta procédure du formulaire : "Private Sub SpinButton1_SpinUp()"
pour celle que je te propose :
Ce que tu dois savoir, c'est à partir de la propriété ListCount, il est
possible de déterminer le nombre d'éléments de ta liste.
l'item 1 du contenu de ton combobox représente ListIndex 0 de ton
combobox...En conséquence, tu dois ajouter 1 à listindex pour qu'il
soit égale au nombre d'entrées du combobox représenté par la propriété
ListCount ....Si tu ajoutes +2 , tu pourras faire la comparison suivante :
If Me.Choix_Nom.ListIndex + 2 > Me.Choix_Nom.ListCount Then Exit Sub
Et ton problème est réglé !
'------------------------------------------------
Private Sub SpinButton1_SpinUp()
If Me.Choix_Nom.ListIndex + 2 > Me.Choix_Nom.ListCount Then Exit Sub
If Me.Choix_Nom.ListIndex >= 0 Then
Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex + 1
[C2].Offset(Me.Choix_Nom.ListIndex, 0).Select
transfert
End If
End Sub
'------------------------------------------------
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.4b717d8236172162.51150@cegetel.net...
andre à dit
Bonjour.
Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici
l'adresse générée (supprime les éventuelles données sensibles)
Cordialement.
Daniel
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.45127d827aa09e72.51150@cegetel.net...
je joins le fichier en esperant que .... (1,6Mo)
allege au maxi
http://www.cijoint.fr/cj200802/cij6389675743905.xls
donc feuil Bas >> bouton gestion >>multipage 2
le nom ne se change pas
spin bouton up arrivé au dernier enregis. erreur 380
j'ai mis en rem ligne de code "on error
merci de votre aide benevole et genereuse
andre
Change ta procédure du formulaire : "Private Sub SpinButton1_SpinUp()" pour celle que je te propose :
Ce que tu dois savoir, c'est à partir de la propriété ListCount, il est possible de déterminer le nombre d'éléments de ta liste.
l'item 1 du contenu de ton combobox représente ListIndex 0 de ton combobox...En conséquence, tu dois ajouter 1 à listindex pour qu'il soit égale au nombre d'entrées du combobox représenté par la propriété ListCount ....Si tu ajoutes +2 , tu pourras faire la comparison suivante :
If Me.Choix_Nom.ListIndex + 2 > Me.Choix_Nom.ListCount Then Exit Sub
Et ton problème est réglé !
'------------------------------------------------ Private Sub SpinButton1_SpinUp()
If Me.Choix_Nom.ListIndex + 2 > Me.Choix_Nom.ListCount Then Exit Sub If Me.Choix_Nom.ListIndex >= 0 Then Me.Choix_Nom.ListIndex = Me.Choix_Nom.ListIndex + 1 [C2].Offset(Me.Choix_Nom.ListIndex, 0).Select transfert End If
End Sub '------------------------------------------------
"andre" a écrit dans le message de news:
andre à dit
Bonjour. Tu pourrais mettre un classeur exxemple sur www.cjoint.com et poster ici l'adresse générée (supprime les éventuelles données sensibles) Cordialement. Daniel "andre" a écrit dans le message de news:
je joins le fichier en esperant que .... (1,6Mo)
allege au maxi http://www.cijoint.fr/cj200802/cij6389675743905.xls donc feuil Bas >> bouton gestion >>multipage 2 le nom ne se change pas spin bouton up arrivé au dernier enregis. erreur 380 j'ai mis en rem ligne de code "on error merci de votre aide benevole et genereuse andre
-- andre
andre
andre à dit impec ca fonctionne tes explications sont claires et nettes cela merite respect je me doutais bien qu'il fallait compter le nbre d'elements j'avais mis dans une cellule (NB.SI etc..) et dans la proc je faisais reference a cette cellule evidemment je plantais merci de ton conseil
-- andre
andre à dit impec ca fonctionne
tes explications sont claires et nettes
cela merite respect
je me doutais bien qu'il fallait compter le nbre d'elements
j'avais mis dans une cellule (NB.SI etc..)
et dans la proc je faisais reference a cette cellule
evidemment je plantais
merci de ton conseil
andre à dit impec ca fonctionne tes explications sont claires et nettes cela merite respect je me doutais bien qu'il fallait compter le nbre d'elements j'avais mis dans une cellule (NB.SI etc..) et dans la proc je faisais reference a cette cellule evidemment je plantais merci de ton conseil
-- andre
MichDenis
Avec un peu de pratique, tu arriveras à écrire la même procédure mais en utilisant cette syntaxe :
'------------------------- Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom If .ListIndex + 2 > .ListCount Then Exit Sub If .ListIndex >= 0 Then .ListIndex = .ListIndex + 1 [C2].Offset(.ListIndex, 0).Select transfert End If End With
End Sub '-------------------------
"andre" a écrit dans le message de news:
andre à dit impec ca fonctionne tes explications sont claires et nettes cela merite respect je me doutais bien qu'il fallait compter le nbre d'elements j'avais mis dans une cellule (NB.SI etc..) et dans la proc je faisais reference a cette cellule evidemment je plantais merci de ton conseil
-- andre
Avec un peu de pratique, tu arriveras à écrire la même procédure
mais en utilisant cette syntaxe :
'-------------------------
Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom
If .ListIndex + 2 > .ListCount Then Exit Sub
If .ListIndex >= 0 Then
.ListIndex = .ListIndex + 1
[C2].Offset(.ListIndex, 0).Select
transfert
End If
End With
End Sub
'-------------------------
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.4bc77d82ddaf7119.51150@cegetel.net...
andre à dit impec ca fonctionne
tes explications sont claires et nettes
cela merite respect
je me doutais bien qu'il fallait compter le nbre d'elements
j'avais mis dans une cellule (NB.SI etc..)
et dans la proc je faisais reference a cette cellule
evidemment je plantais
merci de ton conseil
Avec un peu de pratique, tu arriveras à écrire la même procédure mais en utilisant cette syntaxe :
'------------------------- Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom If .ListIndex + 2 > .ListCount Then Exit Sub If .ListIndex >= 0 Then .ListIndex = .ListIndex + 1 [C2].Offset(.ListIndex, 0).Select transfert End If End With
End Sub '-------------------------
"andre" a écrit dans le message de news:
andre à dit impec ca fonctionne tes explications sont claires et nettes cela merite respect je me doutais bien qu'il fallait compter le nbre d'elements j'avais mis dans une cellule (NB.SI etc..) et dans la proc je faisais reference a cette cellule evidemment je plantais merci de ton conseil
-- andre
andre
andre à dit je la mets de cote dans mes classeurs (bien rangé) par contre si j'ose abusé je farfouille toujours pour modifier un nom :-( je seche chaque fois que je modifie le code plantage soit d'automation soit sur les ressources quelle galere des fois le VBA (je ferais mieux de tout reecrire) la pratique tu disais tout a fait sd'accord mais les cours aussi (pas loin de 60 balais) mais je suis patient je persevere bon weck end
Avec un peu de pratique, tu arriveras à écrire la même procédure mais en utilisant cette syntaxe :
'------------------------- Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom If .ListIndex + 2 > .ListCount Then Exit Sub If .ListIndex >= 0 Then .ListIndex = .ListIndex + 1 [C2].Offset(.ListIndex, 0).Select transfert End If End With
End Sub '-------------------------
-- andre
andre à dit
je la mets de cote dans mes classeurs (bien rangé)
par contre si j'ose abusé
je farfouille toujours pour modifier un nom :-( je seche
chaque fois que je modifie le code plantage
soit d'automation
soit sur les ressources
quelle galere des fois le VBA (je ferais mieux de tout reecrire)
la pratique tu disais tout a fait sd'accord
mais les cours aussi (pas loin de 60 balais)
mais je suis patient je persevere
bon weck end
Avec un peu de pratique, tu arriveras à écrire la même procédure
mais en utilisant cette syntaxe :
'-------------------------
Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom
If .ListIndex + 2 > .ListCount Then Exit Sub
If .ListIndex >= 0 Then
.ListIndex = .ListIndex + 1
[C2].Offset(.ListIndex, 0).Select
transfert
End If
End With
andre à dit je la mets de cote dans mes classeurs (bien rangé) par contre si j'ose abusé je farfouille toujours pour modifier un nom :-( je seche chaque fois que je modifie le code plantage soit d'automation soit sur les ressources quelle galere des fois le VBA (je ferais mieux de tout reecrire) la pratique tu disais tout a fait sd'accord mais les cours aussi (pas loin de 60 balais) mais je suis patient je persevere bon weck end
Avec un peu de pratique, tu arriveras à écrire la même procédure mais en utilisant cette syntaxe :
'------------------------- Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom If .ListIndex + 2 > .ListCount Then Exit Sub If .ListIndex >= 0 Then .ListIndex = .ListIndex + 1 [C2].Offset(.ListIndex, 0).Select transfert End If End With
End Sub '-------------------------
-- andre
MichDenis
| je farfouille toujours pour modifier un nom :-( je seche | chaque fois que je modifie le code plantage | soit d'automation | soit sur les ressources
De quel nom parles-tu ? Dans quelle procédure ? Dans quel classeur ? Faut être BEAUCOUP plus précis...
"andre" a écrit dans le message de news:
andre à dit je la mets de cote dans mes classeurs (bien rangé) par contre si j'ose abusé je farfouille toujours pour modifier un nom :-( je seche chaque fois que je modifie le code plantage soit d'automation soit sur les ressources quelle galere des fois le VBA (je ferais mieux de tout reecrire) la pratique tu disais tout a fait sd'accord mais les cours aussi (pas loin de 60 balais) mais je suis patient je persevere bon weck end
Avec un peu de pratique, tu arriveras à écrire la même procédure mais en utilisant cette syntaxe :
'------------------------- Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom If .ListIndex + 2 > .ListCount Then Exit Sub If .ListIndex >= 0 Then .ListIndex = .ListIndex + 1 [C2].Offset(.ListIndex, 0).Select transfert End If End With
End Sub '-------------------------
-- andre
| je farfouille toujours pour modifier un nom :-( je seche
| chaque fois que je modifie le code plantage
| soit d'automation
| soit sur les ressources
De quel nom parles-tu ? Dans quelle procédure ? Dans quel classeur ?
Faut être BEAUCOUP plus précis...
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.4bde7d82d4a066b8.51150@cegetel.net...
andre à dit
je la mets de cote dans mes classeurs (bien rangé)
par contre si j'ose abusé
je farfouille toujours pour modifier un nom :-( je seche
chaque fois que je modifie le code plantage
soit d'automation
soit sur les ressources
quelle galere des fois le VBA (je ferais mieux de tout reecrire)
la pratique tu disais tout a fait sd'accord
mais les cours aussi (pas loin de 60 balais)
mais je suis patient je persevere
bon weck end
Avec un peu de pratique, tu arriveras à écrire la même procédure
mais en utilisant cette syntaxe :
'-------------------------
Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom
If .ListIndex + 2 > .ListCount Then Exit Sub
If .ListIndex >= 0 Then
.ListIndex = .ListIndex + 1
[C2].Offset(.ListIndex, 0).Select
transfert
End If
End With
| je farfouille toujours pour modifier un nom :-( je seche | chaque fois que je modifie le code plantage | soit d'automation | soit sur les ressources
De quel nom parles-tu ? Dans quelle procédure ? Dans quel classeur ? Faut être BEAUCOUP plus précis...
"andre" a écrit dans le message de news:
andre à dit je la mets de cote dans mes classeurs (bien rangé) par contre si j'ose abusé je farfouille toujours pour modifier un nom :-( je seche chaque fois que je modifie le code plantage soit d'automation soit sur les ressources quelle galere des fois le VBA (je ferais mieux de tout reecrire) la pratique tu disais tout a fait sd'accord mais les cours aussi (pas loin de 60 balais) mais je suis patient je persevere bon weck end
Avec un peu de pratique, tu arriveras à écrire la même procédure mais en utilisant cette syntaxe :
'------------------------- Private Sub SpinButton1_SpinUp()
With Me.Choix_Nom If .ListIndex + 2 > .ListCount Then Exit Sub If .ListIndex >= 0 Then .ListIndex = .ListIndex + 1 [C2].Offset(.ListIndex, 0).Select transfert End If End With
End Sub '-------------------------
-- andre
andre
andre à dit regardes le post un peu plus haut (en dessous de daniel) j'ai mis un ci joint dans la feuille B_D il y a un bouton "gestion" en page 2 du multi je rapatrie les donnees (il y a le spinbouton)) je peux modifier tous les champs sauf le nom (c'est la que je galere) et si c'est possible supprimer aussi un enregistrement complet par selection row delete
-- andre
andre à dit
regardes le post un peu plus haut (en dessous de daniel)
j'ai mis un ci joint
dans la feuille B_D il y a un bouton "gestion"
en page 2 du multi je rapatrie les donnees (il y a le spinbouton))
je peux modifier tous les champs sauf le nom (c'est la que je galere)
et si c'est possible supprimer aussi un enregistrement complet
par selection row delete
andre à dit regardes le post un peu plus haut (en dessous de daniel) j'ai mis un ci joint dans la feuille B_D il y a un bouton "gestion" en page 2 du multi je rapatrie les donnees (il y a le spinbouton)) je peux modifier tous les champs sauf le nom (c'est la que je galere) et si c'est possible supprimer aussi un enregistrement complet par selection row delete