incrémentation Alphanumérique +1

F

frangy

XLDnaute Occasionnel

• 30 Octobre 2012

• #2

Re : incrémentation Alphanumérique +1

Bonjour,

Tu peux utiliser la copie incrémentée.

Code:

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

A+

 

Vote positif 0 Vote négatif

G

gjulliard

Guest

• 30 Octobre 2012

• #3

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.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Octobre 2012

• #4

Re : incrémentation Alphanumérique +1

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

 

Pièces jointes

• gjulliard.xlsx

  9.7 KB · Affichages: 49

Vote positif 0 Vote négatif

G

gjulliard

Guest

• 30 Octobre 2012

• #5

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Octobre 2012

• #6

Re : incrémentation Alphanumérique +1

Bonjour,
en A2,

Code:

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

Amicalement

 

Vote positif 0 Vote négatif

F

frangy

XLDnaute Occasionnel

• 30 Octobre 2012

• #7

Re : incrémentation Alphanumérique +1

Code:

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+

 

Vote positif 0 Vote négatif