VBA : txt2 = un numéro d'ordre automatique

U

ultra_v

XLDnaute Occasionnel

• 31 Décembre 2013

• #2

Re : VBA : txt2 = un numéro d'ordre automatique

aucune réponse

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Décembre 2013

• #3

Re : VBA : txt2 = un numéro d'ordre automatique

Bonjour à tous


aucune réponse ... pour le moment
Mais comme nous sommes le 31 décembre, Excel passe peut-être après les préparatifs du réveillon, non ?

Alors encore un peu de patience, camarade et rendez-vous en 2014 avec je n'en doute pas des propositions dans ton fil 😉

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 31 Décembre 2013

• #4

Re : VBA : txt2 = un numéro d'ordre automatique

Bonjour,

Pour ma part je n'ai pas répondu car je ne comprends EXACTEMENT ce qui te bloque.
Essai de séparer la partie bloquante de tous le reste afin qu l'on se ne perde pas dans ton fichier !

Cordialement,

 

Vote positif 0 Vote négatif

U

ultra_v

XLDnaute Occasionnel

• 31 Décembre 2013

• #5

Re : VBA : txt2 = un numéro d'ordre automatique

Salut ,

ma demande est très simple comment je peux programmer txt2 pour générer un numero d'ordre automatiquement 1,2,3,....pour chaque nouvelle salarié

merci d'avance

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 31 Décembre 2013

• #6

Re : VBA : txt2 = un numéro d'ordre automatique

Bonjour,

Si tu souhaite un numéro qui s'incrémente, tu prends le maximum de ta colonne et tu ajoute 1.

Code:

Set Plage = Worksheets("Feuil1").Range("B2:B300")
Nb = Application.Max(Plage)+1

Cordialement,

 

Vote positif 0 Vote négatif

U

ultra_v

XLDnaute Occasionnel

• 31 Décembre 2013

• #7

Re : VBA : txt2 = un numéro d'ordre automatique

le code n'a pas marché je l'ai placé à UserForm_Initialize() n'a donné aucun résultat ,

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 31 Décembre 2013

• #8

Re : VBA : txt2 = un numéro d'ordre automatique

Private Sub B_ajout_Click()
ligne = f.[A65000].End(xlUp).Row + 1
nettoie
Set Plage = Worksheets("BD").Range("B2:B300")
Nb = Application.Max(Plage) + 1
Me("txt2") = Nb
End Sub

 

Vote positif 0 Vote négatif

U

ultra_v

XLDnaute Occasionnel

• 31 Décembre 2013

• #9

Re : VBA : txt2 = un numéro d'ordre automatique

Merci , txt2 est figé sur N° (1) , ne change pas !? normalement quand je clique sur (ajoute) doit automatiquement afficher chiffre (2) pour chaque nouveau salarié , mais il reste figé sur le chiffre 1

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 31 Décembre 2013

• #10

Re : VBA : txt2 = un numéro d'ordre automatique

Envoi le fichier.

 

Vote positif 0 Vote négatif

U

ultra_v

XLDnaute Occasionnel

• 31 Décembre 2013

• #11

Re : VBA : txt2 = un numéro d'ordre automatique

okay , le fichier est en pièce jointe

 

Pièces jointes

• test4.xls

  144.5 KB · Affichages: 84
• test4.xls

  144.5 KB · Affichages: 60
• test4.xls

  144.5 KB · Affichages: 72

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 31 Décembre 2013

• #12

Re : VBA : txt2 = un numéro d'ordre automatique

C'est normal les 1 de ta colonne sont du texte "1" et non des chiffres 1. Donc pour lui le max de la colonne est 0, et il met donc 1.

 

Vote positif 0 Vote négatif

U

ultra_v

XLDnaute Occasionnel

• 31 Décembre 2013

• #13

Re : VBA : txt2 = un numéro d'ordre automatique

Merci j'ai vidé la feuille "bd" de tous les données l'application au début m'affiche le chiffre 1 , mais par la suite pour un 2 éme salarié reste figé sur 1 sachant que j'ai vidé la BD

 

Pièces jointes

• test4.xls

  147 KB · Affichages: 59
• test4.xls

  147 KB · Affichages: 60
• test4.xls

  147 KB · Affichages: 68

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 31 Décembre 2013

• #14

Re : VBA : txt2 = un numéro d'ordre automatique

J'ai ajouté .value ici f.Cells(ligne, i) = Me("txt" & i).Value
Avec le code en dessous ca fonctionne lors de la validation

Private Sub b_validation_Click()
If Me.Txt1 = "" Then
MsgBox "Saisir un nom!"
Me.Txt1.SetFocus
Exit Sub
End If
Set temp = f.[A:A].Find(Me.Txt1, LookIn:=xlValues)
If Not temp Is Nothing Then
If temp.Row <> ligne Then
MsgBox "Existe déjà!"
Exit Sub
End If
End If
'---- transfert base
For i = 1 To ncol
f.Cells(ligne, i) = Me("txt" & i).Value
Next i
Me.Txt1.SetFocus
f.[A2].Resize(5000, ncol).Sort key1:=f.[A2]
ligne = f.[A:A].Find(Me.Txt1, LookIn:=xlValues).Row
majChoixNom
End Sub

 

Vote positif 0 Vote négatif

U

ultra_v

XLDnaute Occasionnel

• 31 Décembre 2013

• #15

Re : VBA : txt2 = un numéro d'ordre automatique

Suistrop je te remercie , ça fait une semaine que je me galère pour générer un id automatique , j'ai testé le code marche sans prob Merci problème est résolu graçe à suistrop lo_ol

j'ai juste une petite demande , concernant la tabulation , quand le curseur est actif sur txt2 du moment au je clique sur tabulation il passe sur le button validation ....normalement le curseur doit passer sur txt3 et ainsi de suite comment je peux remédier ce petit problème

 

Vote positif 0 Vote négatif