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

[Invité]

pourquoi faire un replace?

Code :

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

1
2
3
4
5
6
7
8
9
Set r = Range("A1").CurrentRegion
For i = 2 To r.Rows.Count
   Select Case UCase(r(i, 2))
            Case   "C"
                  r(i, 2) ="Chiffre d'affaires"
            Case "N"
                  r(i, 2) = "Mouvement"
   End Select
Next

[Daniel.C]

Bonjour,

Il y a plusieurs erreurs dans ton code :

1. tu utilises "Activecell" sans avoir sélecté une cellule; donc tu utilises n'importe quelle cellule.
2. tu incrémentes "i", ce que la boucle fait automatiquement.

Les tests doivent se présenter ainsi (je n'ai modifié que le premier) :

Code :

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

1
2
3
4
5
6
If Cells(i, 2) = "C" Then
        Cells(i, 2).Replace What:="C", Replacement:="Chiffre d'affaires", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
ElseIf Cells(i, 2) = "N" Then

etc.

[Invité]

Bonjour Daniel,
dans son fichier il n'y a que les lettres C,D,N,P le replace est inutile!

[Daniel.C]

Bonjour,

Ah ? Je n'ai pas eu la curiosité de regarder !

[Invité]

si il faut faire un replace faisons le sur la colonne!

Code :

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

1
2
3
 Columns("B:B").Replace What:="N", Replacement:="TOTO", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[Daniel.C]

Tu vas trop vite, tu as affaire à quelqu'un qui écris :

Code :

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

Activecell.Select

[Invité]

effectivement, désolé, je «suis» le file de mes pensées!

[idhmida]

Bonjour,

Il y a plusieurs erreurs dans ton code :

1. tu utilises "Activecell" sans avoir sélecté une cellule; donc tu utilises n'importe quelle cellule.
2. tu incrémentes "i", ce que la boucle fait automatiquement.

Les tests doivent se présenter ainsi (je n'ai modifié que le premier) :

Code :

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

1
2
3
4
5
6
If Cells(i, 2) = "C" Then
        Cells(i, 2).Replace What:="C", Replacement:="Chiffre d'affaires", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
ElseIf Cells(i, 2) = "N" Then

etc.

Bonjour Daniel,

Merci pour ta correction, c'est super clair, et j'ai pu résoudre mon problème grâce à toi!!

D'ailleurs, même si je comprends bien que mon code est loin d'être le plus simple et efficace, ça m'aide beaucoup qu'on me corrige sur le code déja écrit au lieu de me proposer un autre code différent, donc un grand merci!!

[idhmida]

pourquoi faire un replace?

Code :

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

1
2
3
4
5
6
7
8
9
Set r = Range("A1").CurrentRegion
For i = 2 To r.Rows.Count
   Select Case UCase(r(i, 2))
            Case   "C"
                  r(i, 2) ="Chiffre d'affaires"
            Case "N"
                  r(i, 2) = "Mouvement"
   End Select
Next

Bonjour,

Merci pour ta réponse, je vais le garder pour mon apprentissage
en ce qui concerne le remplacement des lettres, je sais bien qu'il n'y pas tout, mais les lettres à remplacer changent à chaque fois, donc ne t'inquiète pas.

[Invité]

Tu vas trop vite, tu as affaire à quelqu'un qui écris :

Code :

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

Activecell.Select

tu avais vraiment raison!