désolée pour ma nullité

[jocelyne]

Voilà !
J'espère que cette fois-ci, j'ai enfin compris.
Voilà le fichier zippé, sans accent :evil:
Ne m'en voulez pas trop. C'est la première fois !
Bonne journée
jocelyne

 

[jocelyne]

Je stresse complètement, du coup. Ma souris a glissé. [file name=essaiuserform.zip size=16528]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaiuserform.zip[/file]

 

[jocelyne]

Je stresse complètement, du coup. Ma souris a glissé. [file name=essaiuserform_20051128123504.zip size=16528]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaiuserform_20051128123504.zip[/file]

 

[Dan]

Bonjour,

Et quel est l'objet de ta demande ? Un fichier sans explication ne permet pas de t'aider.

Merci de lire la charte --> Charte du forum

🙂

 

[jocelyne]

Bien sûr, excuse-moi. Depuis ce matin, j'arrête pas de faire des bêtises.
Voilà pour l'explication :
Dans un classeur Excel, une feuille 'menu' sur laquelle j'ai un bouton qui ouvre un userform qui une fois rempli doit renseigner une feuille famille. Là ça bogue et je ne vois pas pourquoi.
A+

 

[Jocelyn]

Bonjour le Forum,
Bonjour Jocelyne, Dan,

ton code est en erreur a cause je crois de cette ligne :

ligne = Range('A2').End(xlDown).Row + 1

a remplacer par:

ligne = Range('A65000').End(xlup).Row + 1

par contre attention tes adresse a renseigner dans ta feuile menu ne sont pas bonne

par exemple le nom s'écrit dans la colonne position dans la famille

Cells(ligne, 1) = Nloc.Value

a remplacer par

Cells(ligne, 2) = Nloc.Value

voila espérant t'avoir aidé

Jocelyn

Message édité par: Jocelyn, à: 28/11/2005 14:11

 

[jocelyne]

Merci Jocelyn pour ta réponse. Il y a un problème, c'est que lorsque je rentre la première ligne, ça marche et à la deuxième ligne, il réécrit sur la première alors que j'aimerai qu'il l'écrivfe à la suite, c'est pour cela que j'avais mis 'down'. Mais avec Down, ça marche pas.

 

[Jocelyn]

re bonjour,

Désolé du retard dans la réponse,

je ne comprends pas chef moi ca fonctionne si tu remplace

ligne = Range('A2').End(xlDown).Row + 1



par

ligne = Range('A65536').End(xlUp).Row + 1

par contre comme précedement revoies tes adresses

ton fichier et joint avec le changement de ligne

Jocelyn [file name=essaiuserform_20051128174407.zip size=14069]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaiuserform_20051128174407.zip[/file]

 

[jocelyne]

Merci Jocelyn et excuse-moi de ne le faire qu'aujourd'hui.
J'ai été en déplacement et je viens de voir ta réponse.
D'abord ça marche et effectivement, je me suis trompée dans les adresses mais l'erreur ne venait pas de là mais du code qui était mal rentré comme tu l'as vu. Ton code marche à merveille.
Merci encore
Jocelyne