Discussion :

[Abourarda]

Bonjour,
Je suis encore débutant en VBA et je me demandes si quelqu'un pourra m'aider à construire un code VBA, qui me permet d'extraire 6 chiffres

soit dans la col D (a faire left 6 premiers chiffres) ou dans la col E (MID,6,6)a condition que le CodePC commence chaque fois par DTEC. je dois avoir dans ma col C que des valeurs à 6 chiffres. j'aimerai que VBA remplace directement les CodePC qui commence par DTEC.
Ci-joint le petit fichier comme exemple.

Un grand merci pour votre aide

[mercatog]

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
Sub Transf()
Dim LastLig As Long
Dim c As Range
 
Application.ScreenUpdating = False
With Worksheets("Sheet1")
    LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
    For Each c In .Range("C2:C" & LastLig)
        If c Like "DTEC*" Then
            If c.Offset(, 1) <> "" Then
                c = Left(c.Offset(, 1), 6)
            Else
                c = Mid(c.Offset(, 2), 6, 6)
            End If
        End If
    Next c
End With
End Sub

[Abourarda]

Un grand MERCI