macro excel : modifier valeur sous condition

Version imprimable

Bonjour,
Grace à une macro ci dessous,

Code:

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:

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

19/06/2017, 15h11
riaolle

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".
19/06/2017, 15h17
yaybam

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

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

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:

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.

19/06/2017, 16h02
yaybam

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

voici le code que j'ai fait:

Code:

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:

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

tu met

Code:

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:

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:

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

Compare :
Ce que j'ai écrit :

Code:

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

Ce que tu as écrit :

Code:

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:

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:

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?

Citation:

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:

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.