XL 2019 recopier du texte dans une feuille déjà écrite

[lynyrd]

Bonjour le forum
c'est la dernière demande
toujours en VBA recopier du texte dans une feulle déjà écrite
Merci

 

[sylvanu]

Re,
Presque la même chose que précédemment.

Sub Worksheet_Activate()
Dim T, S, DL1%, DL%, i%, n%
With Sheets("Feuil2")
    DL1 = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
    T = .Range("A1:A" & DL1)
End With
DL = 1 + Cells(Cells.Rows.Count, "A").End(xlUp).Row
S = Range("A1:A" & DL): n = 1
For i = 4 To UBound(S) Step 4
    S(i, 1) = T(n, 1)
    n = n + 3: If n > DL1 Then Exit For
Next i
[A1].Resize(UBound(S, 1), UBound(S, 2)) = S
End Sub

Pourquoi 3 post pour le même problème ? Pourquoi ne pas avoir mis celui là directement ?

 

[lynyrd]

C'est génial sylvanu
Merci
A+

 

[sylvanu]

Pourquoi 3 post pour le même problème ? Pourquoi ne pas avoir mis celui là directement ?

Je n'ai vu aucune réponse. 🙂
XLD est un site d'entraide, et on aime les échanges. Ce n'est pas un site de distribution de solutions.