Discussion :

[idhmida]

Bonjour le forum,

Je n'arrive pas à voir mon problème de boucle ci-dessous...

Je voudrais remplacer les initiales de chaque cellule par des mots en entier, mais ma boucle ne veut pas fonctionner pourtant je ne vois pas de problème de logique...

Pourriez vous m'aider svp??

vous trouverez le ficheir ci-joint

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
 
Sub toto()
 
Dim epinof As Workbook
Dim epinofsheet As Worksheet
 
'Workbooks.Open ("......\EPINOF07.xlsx"), local:=True
Set epinof = Workbooks("EPINOF07.xlsx")
Set epinofsheet = epinof.Worksheets("EPINOF07")
epinofsheet.Activate
nb = Range("A" & Rows.Count).End(xlUp).Row
 
'le nombre de lignes
 
'remplacement des initials
 
Dim i As Integer
 
For i = 2 To nb
 
If Cells(i, 2) = "C" Then
        ActiveCell.Select
        Selection.Replace What:="C", Replacement:="Chiffre d'affaires", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        i = i + 1
 
ElseIf Cells(i, 2) = "N" Then
        ActiveCell.Select
        Selection.Replace What:="N", Replacement:="Mouvement", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        i = i + 1
 
ElseIf Cells(i, 2) = "D" Then
        ActiveCell.Select
        Selection.Replace What:="D", Replacement:="Demi-différence", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        i = i + 1
 
ElseIf Cells(i, 2) = "P" Then
        ActiveCell.Select
        Selection.Replace What:="P", Replacement:="Périodique", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        i = i + 1
 
End If
Next i
 
 
End Sub