Problème de génération de codes uniques avec exception
Fermé
BL
-
19 mars 2015 à 16:18
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 19 mars 2015 à 17:17
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 19 mars 2015 à 17:17
A voir également:
- Problème de génération de codes uniques avec exception
- Je reçois des codes de vérification ✓ - Forum Messagerie
- Codes ascii - Guide
- A java exception has occurred ✓ - Forum minecraft
- Consultez le code source de cette page. copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
19 mars 2015 à 17:17
19 mars 2015 à 17:17
Bonjour BL, bonjour le forum,
Peut-être comme ça (non testé) :
Si tu nous fournissais un petit fichier exemple on pourrais tester avant de te proposer une solution...
Peut-être comme ça (non testé) :
Sub Macro1()
Dim C As Integer
Dim R As Range
C = 1
For L = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(L, 19).Value = "" Then
If Cells(L, 7) <> "" Then Set R = Columns(7).Find(Cells(L, 7).Value, , xlValues, xlWhole)
If Not R Is Nothing And R.Row <> L Then Cells(L, 19).Value = Cells(R.Row, 19).Value
If R Is Nothing Then
Cells(Ligne, 19).Value = "OM-" & Format(C, "0000")
C = C + 1
End If
End If
Next L
Range("A1").Select
End Sub
Si tu nous fournissais un petit fichier exemple on pourrais tester avant de te proposer une solution...