Faire un suite

Tibo

XLDnaute Barbatruc

• 30 Juillet 2005

• #2

Salut Luke,

Par formule :

='CL'&REPT('0';4-NBCAR(DROITE(A1;4)+1))&DROITE(A1;4)+1

Dans le cadre d'une macro, il faudrait reprendre l'équivalent de cette formule (mais le VBA, c'est ma spécialité).

Bon WE.

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 30 Juillet 2005

• #3

Salut Tibo,

je suis pas tout à fait là , la formule je la mets où pour que ça fonctionne?
Peut-être aurais-je plus facile en affectant une macro au bouton, non?

Merci de ton aide

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 30 Juillet 2005

• #4

Bonjour

Voici un code pour ton bouton.

Code:

Private Sub CommandButton1_Click()
Range('A1') = 'CL' + Format(Mid(Range('A1'), 3, 4) + 1, '0000')
End Sub

@+Jean-Marie

Message édité par: JeanMarie, à: 30/07/2005 10:29

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 30 Juillet 2005

• #5

Merci les gars ça fonctionne à merveiiiiiiiiiiiiiiiiiillle

Bon week-end à vous et merci encore :woohoo: je vais pouvoir poursuivre mon travail.

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 30 Juillet 2005

• #6

Bonjour le fil, le Forum

Cette macro associée à ton bouton :

Private Sub CommandButton1_Click()
Der = Range('A65536').End(xlUp).Row
Range('A' & Der).Select
Selection.AutoFill Destination:=Range('A' & Der & ':A' & Der + 1), Type:=xlFillDefault
End Sub

Bonne journée

PhiBou

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 30 Juillet 2005

• #7

Oups :unsure: je cale sur la même procédure mais pour une autre donnée et une autre celulle.
Voilà, j'ai la même chose à faire pour une autre case (la D3) mais dans laquelle les données commencent par 'FA 05/....' (FA 05/0001).

Donc moi j'ai recopié et adapter la macro de Jean-Marie mais il ne fonctionne pas avec cette donnée.

Voilà ce que j'ai mis:

Private Sub CommandButton1_Click()
Range('D3') = 'FA 05/' + Format(Mid(Range('D3'), 3, 4) + 1, '0000')
End Sub

Quelqu'un pourrait me dire où j'ai foiré?

Merci d'avance

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 30 Juillet 2005

• #8

Bonjour,

Juste un complément pour des explications intéressantes en consultant le Lien supprimé de Thierry.

Un petit mot à Jean Marie au passage pour cette macro qui fonctionne à merveille sous MAC aussi !

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 30 Juillet 2005

• #9

Re

Code:

Private Sub CommandButton1_Click()
Range('D3') = 'FA 05/' + Format([b]RIGHT[/b](Range('D3'),[b] 4[/b]) + 1, '0000')
End Sub

Merci Dan pour le lien, en plus excellent.

@+Jean-Marie

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 30 Juillet 2005

• #10

Re,

En cherchant un peu dans l'aide VBA, tu trouves toutes les explications
sur la fonction MID...

Sinon :

ton numéro FA 05/0001

FA 05/ = 6 caractères
0001 : 1 er caractère se trouve à la 7ième position

Donc il te faut Mid(Range('D3'), 7, 4

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 30 Juillet 2005

• #11

re,

tout d'abord ... merci pour l'aide que vous m'apportez.

Pour ce qui est du code que tu as posté Jean-Marie, il me mets 'erreur de syntaxe' lorsque je clic sur le bouton et il me met en rouge tout la ligne de commande.

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 30 Juillet 2005

• #12

OK les gars, vous êtes super

Avec vos indications, je viens de réussir le coup.

En fait, j'ai pris le code de Jean-Marie et j'ai rectifié selon les indications de Dan et j'ai retiré les '<strong>' et '</strong>' et le 'RIGHT' et ça marche.

Bref vous êtes coool les gars.

1000 fois merci car sans vous j'aurais bûché dans mes livres tout le W-E.

Bonne journée à vous tous

 

Vote positif 0 Vote négatif