n'appartient pas à une liste

Tibo

XLDnaute Barbatruc

• 15 Juillet 2008

• #2

Re : n'appartient pas à une liste

Bonsoir,

Pourrais-tu joindre un fichier avec quelques exemples de ce que tu as et en indiquant ce que tu veux obtenir.

Précise également (pour moi tout au moins), ce qu'est un trigramme ou un quadrigramme ?

A te (re)lire avec un bout de fichier

@+

 

Vote positif 0 Vote négatif

F

f69815

XLDnaute Occasionnel

• 15 Juillet 2008

• #3

Re : n'appartient pas à une liste

Tibo à dit:

Bonsoir,

Pourrais-tu joindre un fichier avec quelques exemples de ce que tu as et en indiquant ce que tu veux obtenir.

Précise également (pour moi tout au moins), ce qu'est un trigramme ou un quadrigramme ?

A te (re)lire avec un bout de fichier

@+

Cliquez pour agrandir...

merci de ton intérêt,

un trigramme c'est trois lettres ( aaa, aab,aac, etc ou trois chiffres 123, 124, 125, etc)
je te laisse deviner pour le quadrigramme ?

pour le fichier je vais le faire, mais il faut que je le travaille car il a plus de 40000 lignes.

à bientôt

 

Vote positif 0 Vote négatif

F

f69815

XLDnaute Occasionnel

• 15 Juillet 2008

• #4

Re : n'appartient pas à une liste

bonsoir,

voici le fichier, très court.

une feuille : utilisé, et une autre utilisable

dans la feuille "utilisable" ,il y a normalement, toute les combinaisons possibles, combinant les lettres a à z et les chiffres 0 à 9 (46657 combinaisons).

dans la feuille utilisée il y a les trigrammes deja utilisés, ainsi que les quad associés plus d'autres infos concernant les codes SIREN et NIC des entreprises.

je voudrai afficher le premier trigramme de la feuille "utilisable" qui n'est pas encore utilisé dans la feuille "utilise", afin de pouvoir lui attribuer un code SIREN et NIC.

suis-je clair, car à cet heure ci, pour moi, c'est extinction des feux.

bonne nuit

 

Pièces jointes

• utilisable.xls

  22 KB · Affichages: 52

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Juillet 2008

• #5

Re : n'appartient pas à une liste

Bonsoir,

Un début de piste pour trouver les codes déjà attribués.
Cela peut être agrementer par des plages nommées.

JHA

 

Pièces jointes

• utilisable(1).xls

  34 KB · Affichages: 47

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juillet 2008

• #6

Re : n'appartient pas à une liste

Bonsoir,
Voici une macro sélectionnant le 1er trigramme non utilisé.
En espérant que cela vous convient.

Code:

Sub Trigram()
Dim absent As Boolean
Sheets("utilisable").Activate
Range("B1").Select
For Each cel1 In Range("A1", Range("A65536").End(xlUp))
absent = True
For Each cel2 In Sheets("utilise").Range("A2", Sheets("utilise").Range("A65536").End(xlUp))
If Left(cel2, 3) = cel1 Then absent = False: Exit For
Next
If absent Then cel1.Select: Exit Sub
Next
End Sub

A+

 

Dernière édition: 15 Juillet 2008

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juillet 2008

• #7

Re : n'appartient pas à une liste

Re
Le temps de calcul de la précédente macro risque d'être très long.
Essayez cette version :

Code:

Sub Trigram()
Dim R As Range
Sheets("utilisable").Activate
Range("B1").Select
Set R = Sheets("utilise").Range("A1", Sheets("utilise").Range("A65536").End(xlUp))
For Each cel In Range("A1", Range("A65536").End(xlUp))
If IsError(Application.Match(cel, R, 0)) Then cel.Select: Exit Sub
Next
End Sub

A+

 

Vote positif 0 Vote négatif

F

f69815

XLDnaute Occasionnel

• 16 Juillet 2008

• #8

Re : n'appartient pas à une liste

bonjour,
merci jha pour ta proposition, j'avais pensé à cette idée, mais je cherche plutôt du code. surtout que le nombre de ligne de la feuille "utilise", augmente à chaque création à minima de deux lignes.

merci job75, ta solution me convient et rapide, le 2ème code, au vu du nombre de lignes (> à 40000) dans les deux feuilles.

merci à vous deux

 

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 16 Juillet 2008

• #9

Re : n'appartient pas à une liste

bonjour,

Avec retard voici une macro

Dim tab1
Set tab1 = CreateObject("Scripting.Dictionary")

ligne = 1
While Sheets("utilisable").Cells(ligne, 1) <> ""
cle = Sheets("utilisable").Cells(ligne, 1)
tab1(cle) = 0
ligne = ligne + 1
Wend

ligne = 2
While Sheets("utilise").Cells(ligne, 1) <> ""
cle = Sheets("utilise").Cells(ligne, 1)
If IsEmpty(tab1(cle)) = False Then tab1(cle) = 1
ligne = ligne + 1
Wend

For Each tmp In tab1
cle = tmp
If tab1(cle) = 0 Then
Exit For
End If
Next
MsgBox "Trigramme non utilisé : " & cle
End Sub

 

Vote positif 0 Vote négatif