Renvoyer un objet range

Y compris Power BI, Power Query et toute autre question en lien avec Excel
H
Hlawson
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 9 avril 2019
Version d'Excel : 2016
Version de Calc : 16.0.4639.100

Message par Hlawson » 30 avril 2019, 15:31

Salut a toutes et a tous!
je suis nouveau dans le codage VBA.

j'ai plusieurs problèmes a moi seul....

- le premier est que je cherche un code Vba qui va me créer des immatriculation commençant pas C19-0001 est le programme complété le reste jusqu'à l'infini...

- En suite de mon premier problème.... je veux un code qui me permettre à l'ouverture de mon formulaire(Userform) m'affiche le Code qui va être créer dans ma base de donnée dans ma ListBox1 c'est-à-dire C19-0002.... Et une foie enregistré dans ma base de donnée, la fonction dois me permttre d'affiche le prochain code (C19-0001)... infini.....

- J'ai une Base de donnée, je veux copie des information dans une cellule ou range d'une autre feuille nomme LISTE.... dans cette feuille LISTE, il y a un bouton nommé TxtCode.... LISTE est ma feuille de recherche.

Merci, pour la compréhension et l'aide que vous m'apportez.
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 719
Appréciations reçues : 59
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 30 avril 2019, 19:37

Bonjour,

Quel rapport entre les besoins et le titre de la discussion ?

Un classeur contenant quelques données et le code déjà écrit, permettrait peut-être d'avancer.

Quel devrait être le format des immatriculation:
Par exemple pour la première :
C19-00011 ou C19-0001 1 ou ....

Ces immatriculations sont elles écrites dans l'ordre croissant ou non ?

A+
H
Hlawson
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 9 avril 2019
Version d'Excel : 2016
Version de Calc : 16.0.4639.100

Message par Hlawson » 30 avril 2019, 20:34

Merci de voir ma préoccupation!
FORMULAIRE.xlsm
Merci de voir ma préoccupation
(53.79 Kio) Téléchargé 4 fois
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 719
Appréciations reçues : 59
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 30 avril 2019, 21:15

à rajouter dans Private Sub UserForm_Initialize()

à tester:
    With Worksheets("BD_SKOX")
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
    code = "C19-" & Format(Right(.Range("A" & derlig).Value, 4) + 1, "0000")
    ListBox1.AddItem code
    End With
Mais pourquoi utiliser une listbox (liste de choix) pour afficher un N° imposé ?
Un label aurait suffit ?

A+
1 membre du forum aime ce message.
H
Hlawson
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 9 avril 2019
Version d'Excel : 2016
Version de Calc : 16.0.4639.100

Message par Hlawson » 30 avril 2019, 21:20

Je sais pas mais je me suis dit que c'est le mieux comprend moi je suis novice en la matière, je prends cela en compte pour ma formation... merci
H
Hlawson
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 9 avril 2019
Version d'Excel : 2016
Version de Calc : 16.0.4639.100

Message par Hlawson » 30 avril 2019, 21:30

Paz de réaction

Private Sub ListBox1_Click()

With Worksheets("BD_SKOX")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
code = "C19-" & Format(Right(.Range("A" & derlig).Value, 4) + 1, "0000")
ListBox1.AddItem code
End With

End Sub

ou je dois placer le code afin qu'il fonctionne, Merci pour l'aide apporter
H
Hlawson
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 9 avril 2019
Version d'Excel : 2016
Version de Calc : 16.0.4639.100

Message par Hlawson » 30 avril 2019, 21:35

EXCUSE J'AI PAS VU TON TITRE, MERCI INFINIMENT
H
Hlawson
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 9 avril 2019
Version d'Excel : 2016
Version de Calc : 16.0.4639.100

Message par Hlawson » 30 avril 2019, 21:49

Mon Userform recherche ne fonction pas comment faire pour effectuer une recherche afin d'avoir toutes mes information via C19-0001 dans mon textCode de mon Userform PROFIL... MERCI
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message