USF pour faire Fiche Individuel

B

Banzai64

XLDnaute Accro

• 6 Février 2011

• #2

Re : USF pour faire Fiche Individuel

Bonsoir

A tester

 

Pièces jointes

• Liste Adherents nouveaux 1 V001.zip

  42 KB · Affichages: 56

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 6 Février 2011

• #3

Re : USF pour faire Fiche Individuel

Bonsoir, Jacky.

Cet exemple vous convient-il ?

http://cjoint.com/?0cgwwDuOOYb

Cordialement,

 

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 7 Février 2011

• #4

Re : USF pour faire Fiche Individuel

Bonsoir le forum, Banzai64,Victor21,

merci à vous deux pour vos réponse, les 2 sont très bien mais je préfère celle de Victor21 et oui ce serait bien de pôuvoir imprimer toutes les fiches mais plutot avec un bouton car si l'on change de N° et qu'a chaque fois on imprime toutes les fiches, cela serait peut-être beaucoup
merci
jacky

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 7 Février 2011

• #5

Re : USF pour faire Fiche Individuel

Re, Jacky 49.

Parcourir la colonne B de "LISTE", depuis la 1° ligne de données,
Copier-coller la valeur correspondante de la colonne A dans la feuille "FICHE",
Imprimer "FICHE",
Recommencer, tant que B n'est pas vide pour la ligne suivante de "Liste"...


Cordialement,

 

Dernière édition: 7 Février 2011

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 7 Février 2011

• #6

Re : USF pour faire Fiche Individuel

bonsoir Victor21,

je ne comprends pas ce qu'il faut faire, peut tu m'expliquer STP
merci jacky

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 7 Février 2011

• #7

Re : USF pour faire Fiche Individuel

Re

Modifier les formules en col A:
En A4 : =SI(C4="";"";LIGNE()-3)
à recopier vers le bas.

Dans le code de la feuille "FICHE" :

Code:

Sub Imprime1()    

Dim c As Range

Application.ScreenUpdating = False 
For Each c In Sheets("LISTE").Range("A4:A70")   'à modifier si plus d'adhérents
    If c.Value = "" Then End
    c.Copy
    Sheets("FICHE").Range("F2").Select 
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("FICHE").PrintPreview          '.PrintPreview pour aperçu, .PrintOut Copies:=1 pour imprimer
Next c
End
Sheets("LISTE").Select
Application.ScreenUpdating = True
End Sub

Cordialement,

 

Dernière édition: 7 Février 2011

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 7 Février 2011

• #8

Re : USF pour faire Fiche Individuel

re,
j'ai un autre problème que je ne comprends pas, lorsque je rentre la date de naissance dans L'USF, de cette façon,05/01/1998, il me le met inversé dans la fiche et dans la liste comme ceci 01/05/1998 .
merci de votre aide
jacky

 

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 7 Février 2011

• #9

Re : USF pour faire Fiche Individuel

Re,

je te joins le fichier car j'ai mis le code dans la feuille fiche mais cela ne fonctionne pas
merci
jacky

 

Pièces jointes

• Liste Adherents Rollers.zip

  35.5 KB · Affichages: 47

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 8 Février 2011

• #10

Re : USF pour faire Fiche Individuel

jacky49 à dit:

re,
j'ai un autre problème que je ne comprends pas, lorsque je rentre la date de naissance dans L'USF, de cette façon,05/01/1998, il me le met inversé dans la fiche et dans la liste comme ceci 01/05/1998 .
merci de votre aide
jacky

Cliquez pour agrandir...

Chez moi, non.

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 8 Février 2011

• #11

Re : USF pour faire Fiche Individuel

jacky49 à dit:

Re,

je te joins le fichier car j'ai mis le code dans la feuille fiche mais cela ne fonctionne pas
merci
jacky

Cliquez pour agrandir...

Chez moi, si...

Cordialement,

 

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 8 Février 2011

• #12

Re : USF pour faire Fiche Individuel

bonsoir,
pouvez vous m'expliquer pourquoi chez moi les dates sont inversées et que le code ne fonctionne pas.
Pouvez me renvoyer le fichier
merci
jacky

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 9 Février 2011

• #13

Re : USF pour faire Fiche Individuel

Bonsoir, jacky49.

Le lien cjoint est toujours disponible.
Quant à ton pb, voir peut-être les paramètres internationaux de ta machine, et plus particulièrement le format date ?

Cordialement,

 

Vote positif 0 Vote négatif

jacky49

XLDnaute Impliqué

• 9 Février 2011

• #14

Re : USF pour faire Fiche Individuel

Bonjour,

non, ce n'est pas un problème de format date car lorsque je renntre la date manuellement dans la feuille liste, c'est bon, c'est quand je passe par l'USF, que cela change dans la case liste
merci
jacky

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Février 2011

• #15

Re : USF pour faire Fiche Individuel

Bonjour,

pour le problème de date, regarde du coté de la fonction "cdate" :

Code:

Range("A1").Value = CDate(TextBox1)

bonne journée
@+

 

Vote positif 0 Vote négatif