Aller au numero suivant a chaque enregistrement
Fermé
Santyallah
Messages postés
6
Date d'inscription
dimanche 28 janvier 2018
Statut
Membre
Dernière intervention
13 février 2018
-
13 févr. 2018 à 08:33
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 13 févr. 2018 à 09:30
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 13 févr. 2018 à 09:30
A voir également:
- Aller au numero suivant a chaque enregistrement
- Numero prive - Guide
- A qui appartient ce numéro - Guide
- Numéro père noël whatsapp - Guide
- Numéro forum téléphonique gratuit ✓ - Forum Mail
- Trouver le propriétaire d'un numéro de téléphone gratuitement ✓ - Forum Mobile
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 févr. 2018 à 09:30
13 févr. 2018 à 09:30
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
