Transposer données sur plusieurs colonnes avec lien URL
S
bonjour,
J'ai des données en colonne, dont les données sont à transposer sur plusieurs colonnes
je dois également récuperer un lien internet et couper des données contenus dans une seule cellule en plusieurs
voici le fichier
pourriez vous m'aider, j'avais déja une macro mais le format d'extraction a change et mal heureusement je ne m'y connais pas assez en macro pour en créer une adapté
merci d'avance pour votre aide
cordialement
A
Bonjour,
un essai à tester :
Sub DéSplit()
Dim DL As Long, T, TT, Temp, i As Long, x As Long
DL = Range("A" & Rows.Count).End(xlUp).Row
T = Range("A1:A" & DL)
ReDim TT(1 To UBound(T), 1 To 2)
For i = LBound(T) + 1 To UBound(T) Step 2
Temp = Split(T(i, 1), ".")
TT(i - 1, 1) = Left(Trim(Temp(1)), 4)
TT(i - 1, 2) = Temp(0)
Next
Application.ScreenUpdating = False
Range("B1").Resize(UBound(TT, 1), UBound(TT, 2)) = TT
For i = DL To 2 Step -2
Range("A" & i).EntireRow.Delete
Next
With Range("A1:A" & DL)
.Rows.AutoFit
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
End With
Application.ScreenUpdating = True
End SubA+