Bonjour à tous et Meilleurs voeux
Voilà ma question est simple :
J'ai une forme qui envoie des données issues de CBO et de TXT sur une
feuille excel. Je souhaiterais que chaque enregistrement soit numéroté (en
colonne CG sous la forme 2006-xx) et récupérer à chaque fois le prochain n°
dans une TbEnreg se trouvant en page 1 de mon userform pour un nouvel
enregistrement
QQun pourrait-il m'indique le code et surtout où le mettre
Encore merci pour votre aide
M69
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ange Ounis
Dans la procédure Initialize de ton userform :
Private Sub UserForm_Initialize() Dim DerNum DerNum = Split(Range("CG" & _ Cells(Rows.Count, "CG").End(xlUp).Row).Text, "-")(1) TextBox1.Value = Year(Date) & "-" & DerNum + 1 End Sub
En supposant que dans "sous la forme 2006-xx", "xx" soit un nombre de 00 à 99.
NB : Intéressez-vous de près à Rows.Count, le nombre de lignes (comme de colonnes) va augmenter avec Excel 12...
---------- Ange Ounis ----------
Bonjour à tous et Meilleurs voeux Voilà ma question est simple : J'ai une forme qui envoie des données issues de CBO et de TXT sur une feuille excel. Je souhaiterais que chaque enregistrement soit numéroté (en colonne CG sous la forme 2006-xx) et récupérer à chaque fois le prochain n° dans une TbEnreg se trouvant en page 1 de mon userform pour un nouvel enregistrement QQun pourrait-il m'indique le code et surtout où le mettre Encore merci pour votre aide M69
Dans la procédure Initialize de ton userform :
Private Sub UserForm_Initialize()
Dim DerNum
DerNum = Split(Range("CG" & _
Cells(Rows.Count, "CG").End(xlUp).Row).Text, "-")(1)
TextBox1.Value = Year(Date) & "-" & DerNum + 1
End Sub
En supposant que dans "sous la forme 2006-xx", "xx" soit un nombre de 00 à 99.
NB : Intéressez-vous de près à Rows.Count, le nombre de lignes (comme de
colonnes) va augmenter avec Excel 12...
----------
Ange Ounis
----------
Bonjour à tous et Meilleurs voeux
Voilà ma question est simple :
J'ai une forme qui envoie des données issues de CBO et de TXT sur une
feuille excel. Je souhaiterais que chaque enregistrement soit numéroté (en
colonne CG sous la forme 2006-xx) et récupérer à chaque fois le prochain n°
dans une TbEnreg se trouvant en page 1 de mon userform pour un nouvel
enregistrement
QQun pourrait-il m'indique le code et surtout où le mettre
Encore merci pour votre aide
M69
Private Sub UserForm_Initialize() Dim DerNum DerNum = Split(Range("CG" & _ Cells(Rows.Count, "CG").End(xlUp).Row).Text, "-")(1) TextBox1.Value = Year(Date) & "-" & DerNum + 1 End Sub
En supposant que dans "sous la forme 2006-xx", "xx" soit un nombre de 00 à 99.
NB : Intéressez-vous de près à Rows.Count, le nombre de lignes (comme de colonnes) va augmenter avec Excel 12...
---------- Ange Ounis ----------
Bonjour à tous et Meilleurs voeux Voilà ma question est simple : J'ai une forme qui envoie des données issues de CBO et de TXT sur une feuille excel. Je souhaiterais que chaque enregistrement soit numéroté (en colonne CG sous la forme 2006-xx) et récupérer à chaque fois le prochain n° dans une TbEnreg se trouvant en page 1 de mon userform pour un nouvel enregistrement QQun pourrait-il m'indique le code et surtout où le mettre Encore merci pour votre aide M69
