(RESOLU) N° de fiche dans userform

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #2

Re : N° de fiche dans userform

Bonjour poipoi,

Effectivement une solution serait qu'à l'ouverture de l'userform (Initialize) on remplisse la textbox en indiquant la cellule + 1
Par exemple, si mon numéro de fiche se situe en cellule A5 :

Code:

Private Sub UserForm_Initialize()
Textbox = Sheets(1).Range("A1") + 1
End Sub

Et lors de l'enregistrement, on ajoute 1 à notre index, pour indiquer que lors de la prochaine création on incrémente le n° de fiche :

Code:

Private Sub Enregistrer_Click()
Sheets(1).Range("A1") = Sheets(1).Range("A1") + 1
End Sub

a+

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Mai 2015

• #3

Re : N° de fiche dans userform

Bonjour, poipoi

sans fichier difficile de voir ce qui peut être fait
mais il est possible de faire en mettant le n° dans une cellule d'une feuille (cachée ou non ou dans un fichier txt ou ini)puis de l'incrémenter à chaque création de fiche

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 4 Mai 2015

• #4

Re : N° de fiche dans userform

Bonjour Nezquicoule & Gilbert RGI.. et merci

Pour Nezquicoule: j'ai déjà une ligne dans UserForm_Initialize():
TbxDate.Value = Format(Date, "DD/MM/YYyy")
et si j'ajoute: TbxNum = recap.Range("n2") + 1
cela bogue !!! il ne peut y avoir plusieurs lignes dans UserForm_Initialize()????

 

Vote positif 0 Vote négatif

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #5

Re : N° de fiche dans userform

Si, bien entendu il peut y avoir autant de ligne qu'on le souhaite. Quel est le message d'erreur ? À quoi correspond recap ?

Si le but était de spécifier une feuille qui s'appelle recap, il faut utiliser Sheets("recap").Range("n2") + 1
Effectivement, il serait plus facile d'aider en ayant un fichier avec l'UserForm sous les yeux 😉

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Mai 2015

• #6

Re : N° de fiche dans userform

recap est déclarer comme sheet ?

sinon mettre tbxnum=sheets("recap").range("n2") +1

faire ce petit test

VB:

Sub test()
    Dim TbxNum As Integer
    TbxNum = Sheets("recap").Range("n2") + 1
    MsgBox "fiche n° : " & TbxNum
    Sheets("recap").Range("n2") = TbxNum
End Sub

 

Dernière édition: 4 Mai 2015

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 4 Mai 2015

• #7

Re : N° de fiche dans userform

re,
ça y est tout fonctionne grace à vous!
je nommais mal ma feuille, il fallait bien sûr écrire Sheets("recap")


un grand merci à vous 2
et bonne journée !!

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 4 Mai 2015

• #8

Re : N° de fiche dans userform

Re;
je reviens car en fait je pensais avoir trouvé la solution, mais décidément je n'y arrive pas!
et vu qu'un petit classeur vaut mieux qu'un long discours, voici le formulaire en question joint.
Donc: comment faire pour que le n° de ticket de l'USF s'incrémente de 1 et que ce chiffre s'inscrive en colonne n,
j'ai bien essayé de mettre les formules indiquées ci-dessus mais j'ai dû foirer quelque part...
(décidément pas doué le poïpoï!!)

 

Pièces jointes

• Tableau suivi.xlsm

  117.4 KB · Affichages: 29
• Tableau suivi.xlsm

  117.4 KB · Affichages: 31
• Tableau suivi.xlsm

  117.4 KB · Affichages: 32

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Mai 2015

• #9

Re : N° de fiche dans userform

alors voilà avec un fichier c'est toujours plus facile

 

Pièces jointes

• Tableau suivi.xlsm

  118.8 KB · Affichages: 31
• Tableau suivi.xlsm

  118.8 KB · Affichages: 33
• Tableau suivi.xlsm

  118.8 KB · Affichages: 35

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 4 Mai 2015

• #10

Re : N° de fiche dans userform

merci tout fonctionne bien
mais du coup je ne vois pas en colonne N, ou une autre, le n° de fiche.
j'ai bien compris ta manip qui est logique mais je pensais avoir pour chaque ligne le N° de fiche et que c'était sur le dernier aui était augmenté de 1 (certainement que je ne me suis pas bien exprimé)

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 4 Mai 2015

• #11

Re : N° de fiche dans userform

bon voilà un fichier qui doit faire la demande

😎

 

Pièces jointes

• Tableau suivi-1.xlsm

  118.2 KB · Affichages: 33

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 4 Mai 2015

• #12

Re : N° de fiche dans userform

merci gilbert_RGI
désolé mais de retour à la maison, je regarde tout cela demain au bureau...
bonne soirée à toi

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 11 Mai 2015

• #13

Re 🙁RESOLU) N° de fiche dans userform

Bonjour gilbert_RGI
eh ben c'est super... tout fonctionne nickel
un grand merci à toi et à ce forum

 

Vote positif 0 Vote négatif