incrémenter liste numéro EXCEL

Version imprimable

12/12/2011, 12h44
etienne44230

incrémenter liste numéro EXCEL

Bonjour à tous,
Je cherche à construire une macro pour faire les actions suivantes, mais mon faible niveau VBA me bloque malgré mes tentatives avec ou sans macros.
Je vous explique mon besoin:

2 colonnes:
- une en A avec une liste de 1 à N (liste de bons de commandes)
- une en B avec un code (quelquonque, en fonction du compteur nécessaire aux formules, par défaut j'avais prit 1 et 0)

Lorsqu'un numéro de BdC est utilisé, la colonne B affiche 1, lorsque le numéro de BdC est libre, la colonne B affiche 0.

Dans la cellule D5, lorsqu'on clique sur un bouton attaché à la macro, je souhaite qu'apparaisse le 1er numéro de BdC "libre" (avec le code 0 dans mon exemple), puis que son code 0 se transforme en 1 automatiquement (mais le numéro qui s'affiche reste bien celui dont on parlait juste avant).

Merci d'avance pour votre aide!
Cdlt,
Etienne

Bonjour,

Attache cette macro à ton bouton :

Code:

1
2
3
4
5
6
7
8
Sub test1()
    Dim Ligne As Long
    With Sheets("Feuil1")
        Ligne = Application.Match(0, .[B:B], 0)
        .[D5] = Application.Index(.[A:A], Ligne)
        Application.Index(.[B:B], Ligne) = 1
    End With
End Sub

12/12/2011, 15h35
Gestionnaire_rh

Bonjour,

si j'ai bien compris, tu veut être averti si tu saisie un numéro déjà existant et dans la colonne A par le 1 ou 0 de la colonne B, je te propose une solution sans VBA (Mise en forme conditionnelle), alors sélectionner la colonne A et ajouter cette formule avec une mise en forme si le numéro saisie existe déjà:

Code:

=SI(NB.SI(INDIRECT(ADRESSE(1;1;4;1)&":"&ADRESSE(LIGNE()-1;1;4;1));A1)>0;1;0)

, et pour la cellule D4 tu pourra mettre cette formule qui te donnera le prochain numéro:

Code:

D4=MAX(A:A)+1

Cordialement

Gestionnaire rh
12/12/2011, 16h50
etienne44230

Daniel.C
Merci bcp ca fonctionne.

Gestionnaire RH
Merci pour votre aide mais je veux que le numéro s'incrémente automatiquement, rien à faire à la main, il est vrai que c'était impossible sans un petit bouton.

Je reviendrai vers vous très vite pour la fin de la macro
Cdlt,
Etienne

Je reviens plus vite que prévu,
Est-il possible d'associer une rechercheV à une 2ème macro ?
Lorsque je la copie colle cella ne fonctionne pas.
Il s'agit de la formule suivante:
=RECHERCHEV(0;$B:$C;2;FAUX)-1
Merci d'avance!
Etienne
12/12/2011, 17h01
Daniel.C

Tu n'as rien dit de la colonne C ;)

Ca donne :

Code:

Résultat = Application.VLookup(0, .[B:C], 2, False) - 1
12/12/2011, 17h36
etienne44230

Exact désolé :) La colonne C est égale à la colonne A (C1=A1) , mais les valeurs doivent être à droite pour la recherche V.

J'ai omis de préciser que je voulais le résultat de la macro recherche V en cellule D7 .
Merci d'avance

J'ai un petit doute sur le "-1" ?

Code:

1
2
3
4
5
6
7
Sub test2()
    Dim Ligne As Long
    With Sheets("Feuil1")
        .[D7] = Application.VLookup(0, .[B:C], 2, False) - 1
        Application.VLookup(0, .[B:C], 1, False) = 1
    End With
End Sub

Ca fonctionne, (le -1 c'est pour qu'il me dise la dernière valeur à 0 en cherchant celle à 1)
Néanmoisn 'jai le débogueur,
Code:

1 2 3 4 5 6 7 Sub test2() Dim Ligne As Long With Sheets("Feuil1") .[D7] = Application.VLookup(0, .[B:C], 2, False) - 1 Application.VLookup(0, .[B:C], 1, False) = 1 End With End Sub
Sur la ligne Application.VLookup(0, .[B:C], 1, False) = 1
"Erreur définie par l'applciation ou pas l'objet"
Merci
etienne

Peut-être (je sature ;) ) :

Code:

1
2
3
4
5
6
7
Sub test2()
    Dim Ligne As Long
    With Sheets("Feuil1")
        .[D7] = Application.VLookup(0, .[B:C], 2, False) - 1
        Application.Index(.[B:B], Application.Match(0, .[B:B], 0)) = 1
    End With
End Sub

12/12/2011, 19h00
etienne44230

Merci,
Il me change le 0 en 1 par contre, je veux jsute qu'il me dise le dernier numéro à 1.
Cdlt,
12/12/2011, 19h09
etienne44230

C'est réparé merci bcp pour tout !