[VBA-E] Format de nombre

**Elstak** · 10/04/2006, 10h49

bonjour,

apres une tentative ratée de faire une macro en mode creation, je viens demander si il est possible (je pense que oui) de faire ceci :

- J'ai un nom de fichier du type : nom0009.txt
la semaine prochaine il aura le nom : nom0010.txt

jaurai voulu savoir comment faire pour changer ce nom automatiquement il ne suffit pas ici de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"nom" & numero+1

il faut qu'il y ai toujours 4 chiffres derriere le nom.

jaurai aussi voulu savoir (c'est peut etre le meme probleme) comment faire pour declarer un nombre qui doit contenir 4 chiffres (en faisant num=0000, il remet automatiquement num=0)

Merci de vos réponses

**jmfmarques** · 10/04/2006, 10h53

Utilisation de Instr, Mid, Len, Right, Left etc... (aide en ligne)
et de Format (également aide en ligne)
Reviens nous voir avec un bout de code utilisant celà...

**Megaxel** · 10/04/2006, 10h53

Salut!
Regarde ce que sait faire "Format".

**Megaxel** · 10/04/2006, 10h58

J'ai trouvé. Regarde cet exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
i = 10
i = i + 1
MsgBox (Format(i, "####0000"))

**Elstak** · 10/04/2006, 11h52

Ok !

Merci de votre aide

je finis un autre petit code avant et ensuite jme met à celui là et jvous tiens au courant

**SfJ5Rpw8** · 10/04/2006, 12h00

tiens un pe de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Function IncNom(st As String)
 
Dim stPre As String
Dim stNbre As String
Dim stSuff As String
Dim i As Integer
Dim iMode As Integer ' i =1
 
For i = 1 To Len(st)
  Select Case iMode
    Case 0 'Extrait prefixe
      If Mid(st, i, 1) >= "0" And Mid(st, i, 1) <= 9 Then
        stNbre = Mid(st, i, 1)
        iMode = 1 '.. passe à extraction nombre
      Else
        stPre = stPre & Mid(st, i, 1)
      End If
    Case 1 'Extrait nombre
      If Mid(st, i, 1) >= "0" And Mid(st, i, 1) <= 9 Then
        stNbre = stNbre & Mid(st, i, 1)
 
      Else
        stSuff = Mid(st, i, 1)
        iMode = 2 '.. passe à extraction suffixe
      End If
     Case 2
        stSuff = stSuff & Mid(st, i, 1)
  End Select
 
 
 
Next
 
Debug.Print "<" & stPre & "-" & stNbre & "-" & stSuff & "]"
i = Len(stNbre)
If i > 0 Then
 IncNom = stPre & Right(String(i, "0") & (stNbre + 1), i) & stSuff
 
Else
  IncNom = st
End If
 
End Function

Envoyé par Fenêtre exécution

?incNom("nom0009.txt")
<nom-0009-.txt]
nom0010.txt

**Megaxel** · 10/04/2006, 12h05

Ha ben là... Quand je pense qu'on me reproche parfois de donner des solutions compliquées...

**SfJ5Rpw8** · 10/04/2006, 12h20

Envoyé par Megaxel

Ha ben là... Quand je pense qu'on me reproche parfois de donner des solutions compliquées...

.. j'avais envie de coder lol...

**Theocourant** · 10/04/2006, 12h30

Salut

Et si tout simplement tu faisais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim strNomFichier as String
 
   strNomFichier="nom" & Format(numero+1,"0000") & ".txt"

Est-ce que ça ne marcherait pas ?

Théo

**Elstak** · 10/04/2006, 13h29

(ca vous l'a pas fait en lisant le code de bbil

)

héhé, je suis méchant car il fait ce que je cherchais à faire

mais bon, celui là aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim strNomFichier as String 
 
   strNomFichier="nom" & Format(numero+1,"0000") & ".txt"

alors mon choix entre les deux a été vite fait

en tout cas merci à tous pour vos réponses !!

( et surtout à théo car il m'a évité un mal de crane pour décoder la solution (un peu) plus longue

)

**SfJ5Rpw8** · 10/04/2006, 14h14

Envoyé par Elstak

(ca vous l'a pas fait en lisant le code de bbil

)

héhé, je suis méchant car il fait ce que je cherchais à faire

pas sympa ! ... en fait comme tu n'étais pas clair sur la consistance de ton "Nom"... je t'ai écrit une fonction un peu plus universelle que prévu...

Envoyé par Fenêtre exécution, exple d'utilisation

?incNom("to1.txt")
to2.txt
?incNom("Ect00000534Pjlskdpo")
Ect00000535Pjlskdpo
?incNom("Et le Numero : 00234 fonctionne aussi")
Et le Numero : 00235 fonctionne aussi

sinon la solution par Format t'avais déjà été donné par Jmf.. dès la premiére réponse au post

**Theocourant** · 10/04/2006, 14h29

Envoyé par bbil

Envoyé par Elstak

(ca vous l'a pas fait en lisant le code de bbil

)

héhé, je suis méchant car il fait ce que je cherchais à faire

pas sympa ! ... en fait comme tu n'étais pas clair sur la consistance de ton "Nom"... je t'ai écrit une fonction un peu plus universelle que prévu...

Envoyé par Fenêtre exécution, exple d'utilisation

?incNom("to1.txt")
to2.txt
?incNom("Ect00000534Pjlskdpo")
Ect00000535Pjlskdpo
?incNom("Et le Numero : 00234 fonctionne aussi")
Et le Numero : 00235 fonctionne aussi

sinon la solution par Format t'avais déjà été donné par Jmf.. dès la premiére réponse au post

Mais oui il est bien ton code quoique un peu indigeste mais bon, moi, je commence à avoir l'habitude

**Elstak** · 10/04/2006, 15h59

mais te fache pas bbil

(juste un calin amical, reve pas non plus

)

je t'ai dit que ta solution allait bien !! juste que pour ce qu'il me faut, celle de théo convient, donc entre 2 lignes et un peu plus bah je choisi les 2 lignes

[VBA-E] Format de nombre

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager