incrémentation Alphanumérique +1

[gjulliard]

Bonjour,

J'aurais besoin d'aide.
J'ai crée un petit programme me permettant d'incrémenter un numéro lorsque je clique sur un bouton.
En cellule active A6 j'ai 1, je me place en A7, je clique sur un bouton et j'obtiens en A7: 2, cela marche parfaitement.
Par contre maintenant je souhaiterais avoir en A6 : C1 et par le même processus C2 en A7, et là je suis bloquée.

Je vous joins mon fichier.Regarde la pièce jointe affectation numéros de chantier.xlsm

Merci beaucoup d'avance

 

[frangy]

Re : incrémentation Alphanumérique +1

Bonjour,

Tu peux utiliser la copie incrémentée.

Private Sub CommandButton1_Click()
Dim Ligne As Long
    Ligne = ActiveCell.Row
    Range("A6").AutoFill Destination:=Range("A6:A" & Ligne), Type:=xlFillDefault
End Sub

A+

 

[gjulliard]

Re : incrémentation Alphanumérique +1

Merci beaucoup, cela fonctionne à merveille.

J'ai une autre question concernant ce fichier, si je n'abuse pas trop: ce fichier est partagé, malheureusement la macro ne fonctionne pas en fichier partagé, connaitrais-tu une astuce?

Encore merci.

 

[R@chid]

Re : incrémentation Alphanumérique +1

Bonjour gjulliard et Bienvenu sur XLD,
Salut frangy,
voir PJ si ça te convient???
Amicalement

 

[gjulliard]

Re : incrémentation Alphanumérique +1

merci beaucoup, c'est pas mal du tout.
As-tu la même chose en prenant compte l'alphanumérique ( par exemple C1 pour la 1ère cellule, C2 pour la 2nd...)?
C'est vrai que cela pourrait contourner le problème des macros et du partage de fichier.
Ce n'est pas bête du tout comme idée.

Merci

 

[R@chid]

Re : incrémentation Alphanumérique +1

Bonjour,
en A2,

=SI(B2="";"";"C"&LIGNE()-1)

Amicalement

 

[frangy]

Re : incrémentation Alphanumérique +1

malheureusement la macro ne fonctionne pas en fichier partagé

Désolé, je ne vois pas ce qui peut expliquer que la macro ne fonctionne pas en mode partagé.
A la rigueur, je comprendrais que tu aies des difficultés pour modifier cette macro mais pas pour l'exécution.

A+