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

lynyrd · 29 Août 2025

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

sylvanu · 29 Août 2025

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

VB:

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 · 29 Août 2025

C'est génial sylvanu
Merci
A+

sylvanu · 29 Août 2025

sylvanu à dit:
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.

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

lynyrd

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

lynyrd

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Discussions similaires

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

lynyrd

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

lynyrd

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency