Bonjour,

J'ai un petit souci.

J’ai dans 2 colonnes (I et H) des codes à 4 chiffres, commençant régulièrement par des 1,2 voir 3 zéro.
Il y très peu de codes identiques et servent à alimenté une base de données et des plans autocad et doivent obligatoirement être sous le format XXXX.
Pour ce fichier 11500.

Malheureusement les personnes ayant rempli le tableau ont mis le type de code en lettre devant (même cellule donc).

J’ai donc enregistré la commande, format texte, puis rechercher le texte et le remplacer par « rien » et l’ai incrémenté. Mais quoi que je fasse les zéro s’en vont… il y a-t-il un moyen qu’il reste, ou de dire à Monsieur Excel d'incrementé en debut de cellule le morceau de code restant avec des zéro pour arrivé à 4 chiffres?

Désolé je ne connais que pas du tout le Vba.


Merci d’avance

Arno

PS : Voici mon super méga top premier 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
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Ug()
'
' Ug Macro
' Macro enregistrée le 07/02/2011 par Administrateur
'
 
'
' Format texte
 
    Cells.Select
    Selection.NumberFormat = "@"
    Selection.Locked = False
    Selection.FormulaHidden = False
    Range("A1").Select
 
 
' Recherche et remplacement Ug Occupant
 
          Columns("H:H").Select
    Selection.Replace What:="UGC ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
          Columns("H:H").Select
    Selection.Replace What:="UG ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
          Columns("H:H").Select
    Selection.Replace What:="0ATN ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
' Recherche et remplacement Ug Affectation
 
          Columns("I:I").Select
    Selection.Replace What:="UGC ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
          Columns("I:I").Select
    Selection.Replace What:="UG ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
          Columns("I:I").Select
    Selection.Replace What:="0ATN ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
 
    ActiveWorkbook.save
 
 
 
End Sub