Discussion :

[antoisse3]

Bonjour,
Mon problème est que je possède un tableau de données !
Dans la colonne A, j'aimerais avoir des valeurs numériques mais quelques cellules ont des valeurs non numériques !
Donc je souhaiterais remplacer toutes les valeurs non numériques de la colonne A par un code chiffré (par exemple :3120)
J'aimerais obtenir un macro, si possible, svp ?
Merci

[casefayere]

Bonsoir,
une macro à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub non_num()
Dim Dc As Range 'variable qui ira chercher la dernière cellule non vide
Dim Plg As Range, cel As Range
With Sheets("Feuil1") 'à remplacer par le nom de feuille réel
  Set Dc = .Range("A" & .Rows.Count).End(xlUp) 'dernière cellule
  Set Plg = .Range("A2", Dc) 'si la recherche commence en "A2"
  For Each cel In Plg
    If IsNumeric(cel) = False Then cel = 3120
  Next cel
End With
 
End Sub

ou

Code :

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

1
2
3
4
5
....
  For Each cel In Plg
    If Not IsNumeric(cel) Then cel = 3120
  Next cel
......

[Theze]

Bonjour,

Et dans le cas où tu désire remplacer tous les codes à partir d'un code d'origine et en incrémentant de 1 :

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
 
Sub CodeNum()
 
    Dim Plage As Range
 
    'défini la plage sur la feuille active en colonne A et à partir de A1
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'entre les deux premiers codes en cellule A1 et A2
    Plage(1).Value = 3120
    Plage(2).Value = 3121
 
    'prollonge jusqu'en fin de plage en incrémentant de 1 à chaque cellule
    Range(Cells(1, 1), Cells(2, 1)).AutoFill Plage, xlFillDefault
 
End Sub

Hervé.

[antoisse3]

Bonsoir, Merci beaucoup messieurs de votre aide qui m'a été très utile. Cordialement