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

lynyrd · Vendredi à 10:17

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

sylvanu · Vendredi à 10:44

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 · Vendredi à 10:48

C'est génial sylvanu
Merci
A+

sylvanu · Vendredi à 12:24

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