Attribuer un numero unique par macro

[creolia]

Bonjour

j'ai un petit soucis je cherche par macro attribuer un numero unique dans ma colonne A

c'est a dire quelque chose qui me permettrais quand je clique sur mon bouton ajouter il m attribut un numéro pas encore attribuer merci pour votre aide

 

[phlaurent55]

Re : Attribuer un numero unique par macro

Bonjour creolia,

si chaque cellule de la colonne A contient lee numéro de la ligne, tu auras obligatoirement des numéros uniques
mettre =Ligne() dans une celluloe de la colonne A et tirer la formule vers le bas
ou
par macro Target.Row

à+
Philippe

 

[creolia]

Re : Attribuer un numero unique par macro

merci j'ai tester ce que tu ma dit mais sa répond pas a mon soucis

car ' une part les numéro a l'origine c'est des extincteurs donc il commence pas par 1 pour finir a 300 des fois sa arrive (c'est a dire tous les 10 ans durée de vie légal des extincteur) qu'on en supprime donc y a des trous je voudrais que si il y a un numéro disponible qu'il lui soit attribuer automatiquement de plus les extincteur dans la BDD ne sont pas classer par numéro mais par localisation

j'ai trouver un code qui m'attribue un numéro mais a la suite du dernier et non comme je veux c'est a dire un numéro disponible


par fichier joint une petite idée?? merci

 

[creolia]

Re : Attribuer un numero unique par macro

le fichier joint

 

[Odesta]

Re : Attribuer un numero unique par macro

Bonjour
Il n'y a pas de code préfabriqué ou de commande pour cela.
Il va donc falloir le conctruire en VBA.

Sub Macro1()
Dim chiffre_trouvé As Boolean
numéro_trouvé = False
numero = 0 'on va chercher à partir du numéro 1, mais on commence par lui ajouter 1
While Not numéro_trouvé 'temps que l'on a pas trouvé un numéro libre
    ligne_lue = 1
    numero = numero + 1 'on incrémente le numéros
    numéro_trouvé = True 'indicateur (on suppose que numero n'est pas dans la liste)
    While Cells(ligne_lue, 1).Value <> "" 'temps qu'il y a des lignes dans la bdd (colonne 1, en partant de ligne_lue)
      
        If numero = Cells(ligne_lue, 1).Value Then 'si il trouve numero, l'indicateur passe à faux
        numéro_trouvé = False
        End If
        ligne_lue = ligne_lue + 1 'vérification pour toutes les lignes
    Wend
Wend


MsgBox numero 'voici le bon numéro
End Sub

Cordialement

 

[creolia]

Re : Attribuer un numero unique par macro

merci pour ta réponse sa fonctionne bien le seul truc c'est que je souhaiterais au lieu qu'il apparais dans la message box elle apparais dans la textbox en vue ensuite d'être copier dans ma base de donnée es ce possible merci

 

[Odesta]

Re : Attribuer un numero unique par macro

Hors de la macro, tout en haut du module :

Public numero as double

La variable devient utilisable pour toutes les macros (et donc tu peux l'utiliser ou tu le souhaite)

Olivier

 

[creolia]

Re : Attribuer un numero unique par macro

fausse joie j'arrive pas a le faire fonctionner il me donne tous le temps 1 alors même que le 1 est présent dans la collone A

 

[Odesta]

Re : Attribuer un numero unique par macro

Peux-tu joindre le fichier stp ? (ou bien l'autre fichier joint est encore le bon ?)
Et un exemple de ce que tu souhaites (en particulier OU doit être mis le nouveau n°#)

 

[Odesta]

Re : Attribuer un numero unique par macro

Bonsoir Jean-Marcel et creolia
Sympa ca, la recherche par erreur, et récupération du moment de l'erreur.
Je penserai à l'utiliser plus souvent (je le mets dans un coin) ca me simpliera la vie dans certains cas !

 

[creolia]

Re : Attribuer un numero unique par macro

Re bonsoir a tous les deux et merci de m'aider

jean Marcel je dirais que un mot génial lol

effectivement c'est ce que je recherchais merci infiniment