Bonjour !
Laurent, tu peux lancer autant de fois à la suite ma p'tite démonstration !
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub Demo()
Dim SP$(), SU$()
With Feuil1.Cells(1).CurrentRegion.Columns(1)
VA = .Value
For R& = 1 To UBound(VA)
SP = Split(VA(R, 1), ".")
SU = Split(SP(0), "_")
If UBound(SU) = 3 Then
ReDim Preserve SU(2)
SP(0) = Join(SU, "_")
VA(R, 1) = Join(SP, ".")
End If
Next
With .Offset(, 1): .Value = VA: .AutoFit: End With
End With
End Sub |
_____________________________________________________________________________________________________
Merci de cliquer sur
pour chaque message ayant aidé puis sur
pour clore cette discussion …
_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
Partager