macro excel : modifier valeur sous condition

**yaybam** · 19/06/2017, 14h47

Bonjour,
Grace à une macro ci dessous,

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
Sub TRONCON()
 
Dim dlgR As Integer, dlgi As Integer
 
Set sh = Worksheets("Ligne")
 
dlgi = Sheets("Ligne").Range("A" & Rows.Count).End(xlUp).Row
dlgR = Sheets("troncon").Range("A" & Rows.Count).End(xlUp).Row
 
    For i = 1 To dlgi
     With Sheets("Ligne")
 
      sh.Range("A3:A" & i).Copy Destination:=Sheets("troncon").Range("A" & dlgR + 1)
      sh.Range("B3:B" & i).Copy Destination:=Sheets("troncon").Range("B" & dlgR + 1)
      sh.Range("B3:B" & i).Copy Destination:=Sheets("troncon").Range("C" & dlgR + 1)
      sh.Range("C3:C" & i).Copy Destination:=Sheets("troncon").Range("D" & dlgR + 1)
      sh.Range("F3:F" & i).Copy Destination:=Sheets("troncon").Range("E" & dlgR + 1)
      sh.Range("G3:G" & i).Copy Destination:=Sheets("troncon").Range("G" & dlgR + 1)
      sh.Range("G3:G" & i).Copy Destination:=Sheets("troncon").Range("H" & dlgR + 1)
      sh.Range("E3:E" & i).Copy Destination:=Sheets("troncon").Range("I" & dlgR + 1)
 
 
     End With
    Next i
 
End Sub

J'ai copié les valeurs d'une colonne d'une feuille , dans une colonne d'un autre onglet. J'aimerais dans la même macro, pouvoir lancer la modification des valeurs copiées dans chaque cellules de la colonne en fonction de sa propre valeurs. comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
For j = 2 To dlgR
        With Sheets("troncon")
        If .Range("H" & j) = "FT" Then
        .Range("H" & j) = "TELECOM"
        Else
        .Range("H" & j) = "ELECTRICITE"
        End If
        End With
        Next j

Mais lorsque j'ajoute ce bout de code à ma macro, ça ne fonction pas. mes valeurs copiées ne sont pas modifiées.
Besoins d'idées
Cordialement

**riaolle** · 19/06/2017, 15h11

Bonjour,
Plutôt que de faire une boucle (long), as-tu pensé à utiliser la méthode Range.Replace ? C'est l'équivalent de Ctrl+H en Excel "manuel".

**yaybam** · 19/06/2017, 15h17

bonjour,
merci pour ta réponse, comment insérer range.replace dans mon code.
cdt

**riaolle** · 19/06/2017, 15h30

J'ai peut-être éré un peu trop vite ...
On est bien d'accord qu'ici :

Code :

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

1
2
3
4
5
6
7
8
9
For j = 2 To dlgR
        With Sheets("troncon")
            If .Range("H" & j) = "FT" Then
                .Range("H" & j) = "TELECOM"
            Else
                 .Range("H" & j) = "ELECTRICITE"
            End If
        End With
Next j

tu essaie de remplacer "FT" par "TELECOM" et le reste par "ELECTRICITE" ? Est-ce qu'il y a une liste de mots qui ne sont pas FT ?

Supposons que tu veux seulement remplacer "FT" par "TELECOM", alors tu appliques la syntaxe de Range.Replace :

Code :

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

Sheets("tronçon").Range("H2:H" & dlgR).Replace("FT", "TELECOM", xlWhole)

Maintenant, pour les autres mots : si tu as une liste de mots à remplacer, tu fais la même chose, mais en adaptant la valeur de recherche et la valeur de remplacement.

**yaybam** · 19/06/2017, 16h02

re
j'ai copié ta ligne de code selon mes besoins , mais j'ai un message d'erreur de compilation.

**yaybam** · 19/06/2017, 16h12

voici le code que j'ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
For j = 2 To dlgR
 
        If wh.Range("H" & j) = "FT" Then
        wh.Range("H" & j) = wh.Range("H2:H" & dlgR).Replace("FT", "TELECOM", xlWhole)
        Else
        wh.Range("H" & j) = wh.Range("H2:H" & dlgR).Replace("FT", "ELECTRICITE", xlWhole)
        End If
 
      Next j

En claire je ne sais pas du tout comment l’intégrer dans mon code. pourtant lorsque je fais le code ci dessous avec deux boutons (2 sub et 2 end sub), j'obtiens ce que je veux: mais moi je veux une seule macro avec un bouton.

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
Sub TRONCON()
 
Dim dlgR As Integer, dlgi As Integer
 
Set sh = Worksheets("Ligne")
Set wh = ThisWorkbook.Worksheets("troncon")
 
dlgi = Sheets("Ligne").Range("A" & Rows.Count).End(xlUp).Row
dlgR = Sheets("troncon").Range("A" & Rows.Count).End(xlUp).Row
 
    For i = 1 To dlgi
     With Sheets("Ligne")
 
      sh.Range("A3:A" & i).Copy Destination:=Sheets("troncon").Range("A" & dlgR + 1)
      sh.Range("B3:B" & i).Copy Destination:=Sheets("troncon").Range("B" & dlgR + 1)
      sh.Range("B3:B" & i).Copy Destination:=Sheets("troncon").Range("C" & dlgR + 1)
      sh.Range("C3:C" & i).Copy Destination:=Sheets("troncon").Range("D" & dlgR + 1)
      sh.Range("F3:F" & i).Copy Destination:=Sheets("troncon").Range("E" & dlgR + 1)
      sh.Range("G3:G" & i).Copy Destination:=Sheets("troncon").Range("G" & dlgR + 1)
      sh.Range("G3:G" & i).Copy Destination:=Sheets("troncon").Range("H" & dlgR + 1)
 
      sh.Range("E3:E" & i).Copy Destination:=Sheets("troncon").Range("I" & dlgR + 1)
 
     End With
    Next i
 
 
 
End Sub
 
 
Sub cm_nature()
 
 
Dim dlgR As Integer
 
Set wh = ThisWorkbook.Worksheets("troncon")
 
dlgR = Sheets("troncon").Range("A" & Rows.Count).End(xlUp).Row
 
For j = 2 To dlgR
 
        If wh.Range("H" & j) = "FT" Then
        wh.Range("H" & j) = "TELECOM"
        Else
        wh.Range("H" & j) = "ELECTRICITE"
        End If
 
        If wh.Range("G" & j) = "FT" Then
        wh.Range("G" & j) = "AERIEN TELECOM"
        Else
        wh.Range("G" & j) = "AERIEN ENERGIE"
        End If
 
        Next j

**Daranc** · 19/06/2017, 17h16

tu met

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
For i = 1 To dlgi
     With Sheets("Ligne")
 
      sh.Range("A3:A" & i).Copy Destination:=Sheets("troncon").Range("A" & dlgR + 1)
      sh.Range("B3:B" & i).Copy Destination:=Sheets("troncon").Range("B" & dlgR + 1)
      sh.Range("B3:B" & i).Copy Destination:=Sheets("troncon").Range("C" & dlgR + 1)
      sh.Range("C3:C" & i).Copy Destination:=Sheets("troncon").Range("D" & dlgR + 1)
      sh.Range("F3:F" & i).Copy Destination:=Sheets("troncon").Range("E" & dlgR + 1)
      sh.Range("G3:G" & i).Copy Destination:=Sheets("troncon").Range("G" & dlgR + 1)
      sh.Range("G3:G" & i).Copy Destination:=Sheets("troncon").Range("H" & dlgR + 1)
 
      sh.Range("E3:E" & i).Copy Destination:=Sheets("troncon").Range("I" & dlgR + 1)
 
     End With
    Next i

pourquoi répètes tu le sh ?

Code :

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

1
2
3
4
5
with sheets("ligne")
   .range("a3:f" & i).copy destination:=Sheets("troncon").Range("A" & dlgR + 1 &":E" & dlgR +1)
   .range("g3" & i).copy destination:=Sheets("troncon").Range("g" & dlgR + 1)
   .range("g3" & i).copy destination:=Sheets("troncon").Range("h" & dlgR + 1) 
end with

'même si je ne comprends pas trop le saut de colonne et la répétition peut etre une coquille auquel cas un

Code :

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

range("A3:H" & i).copy

**riaolle** · 20/06/2017, 08h38

Compare :
Ce que j'ai écrit :

Code :

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

wh.Range("H2:H" & dlgR).Replace("FT", "TELECOM", xlWhole)

Ce que tu as écrit :

Code :

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

wh.Range("H" & j) = wh.Range("H2:H" & dlgR).Replace("FT", "TELECOM", xlWhole)

La logique de Replace, c'est "j'agis sur la plage H2:HdlgR où je remplace FT par TELECOM". C'est pas une logique d'attribution de valeur comme tu laisses sous-entendre par ta façon d'écrire.

Si je regarde ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For j = 2 To dlgR
        If wh.Range("H" & j) = "FT" Then
            wh.Range("H" & j) = "TELECOM"
        Else
            wh.Range("H" & j) = "ELECTRICITE"
        End If
        If wh.Range("G" & j) = "FT" Then
            wh.Range("G" & j) = "AERIEN TELECOM"
        Else
            wh.Range("G" & j) = "AERIEN ENERGIE"
        End If
Next j

Je vois qu'en colonne H, tu veux remplacer FT par TELECOM et en colonne G, tu veux remplacer FT par AERIEN TELECOM. Donc, c'est :

Code :

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

1
2
wh.Range("H2:H" & dlgR).Replace("FT", "TELECOM", xlWhole)
wh.Range("G2:G" & dlgR).Replace("FT", "AERIEN TELECOM", xlWhole)

Quand ce n'est pas FT, c'est quoi?

En claire je ne sais pas du tout comment l’intégrer dans mon code. pourtant lorsque je fais le code ci dessous avec deux boutons (2 sub et 2 end sub), j'obtiens ce que je veux: mais moi je veux une seule macro avec un bouton.

Il faut créer une macro appelant les deux codes. Ex. :

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
Sub premiereMacro()
    'Cette macro écrit toto en A1
    Range("A1").Value = "toto"
End Sub
 
Sub deuxiemeMacro()
    'Cette macro écrit titi en A2
    Range("A2").Value = "titi"
End Sub
 
Sub macroPrincipale()
    'cette macro écrit toto en A1 et titi en A2
    Call premierMacro
    Call deuxiemeMacro
End Sub

Ensuite, tu créés un bouton qui appelle macroPrincipale.

macro excel : modifier valeur sous condition

Macros et VBA Excel

Discussions similaires

Partager

Partager