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