Aller au numero suivant a chaque enregistrement
Santyallah
Messages postés
7
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Dans ma base de données j'ai des donneurs de sang dont certains ne sont pas prélevés pour contre-indications au don.Je renseigne sur une autre base de données les résultats des donneurs prélevés.De ce fait j'ai créer un deuxième formulaire sur lequel il y a un combo-box qui trie les numéros des donneurs prélevés.
Je voudrais qu'a chaque fois que j'enregistre un résultat le numéro suivant soit positionné.
Pour d'avance pour tout.
Dans ma base de données j'ai des donneurs de sang dont certains ne sont pas prélevés pour contre-indications au don.Je renseigne sur une autre base de données les résultats des donneurs prélevés.De ce fait j'ai créer un deuxième formulaire sur lequel il y a un combo-box qui trie les numéros des donneurs prélevés.
Je voudrais qu'a chaque fois que j'enregistre un résultat le numéro suivant soit positionné.
Pour d'avance pour tout.
A voir également:
- Aller au numero suivant a chaque enregistrement
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Numero prive - Guide
- Numero imei - Guide
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- A qui appartient ce numéro - Guide
1 réponse
Bonjour,
Voir ceci
https://apprendreexcel.com/
Voici un exemple, les données se trouvent dans la colonne A, a adapter:
Voir ceci
https://apprendreexcel.com/
Voici un exemple, les données se trouvent dans la colonne A, a adapter:
Option Explicit
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then _
Sheets("Feuil1").Cells(1, 1).End(xlDown).Offset(1, 0).Value = ComboBox1.Value
charger
End Sub
Private Sub UserForm_Initialize()
charger
End Sub
Sub charger()
Dim j As Integer
'Récupère les données de la colonne A...
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1 = Range("A" & j)
'...et filtre les doublons
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
Next j
End Sub
