Bonjour le forum,
Encore moi le WE!!!
Je vais mettre en ligne des macros.
J'ai fait 3 macros avec l'aide de quelqu'un du forum
J'ai fait 2 boutons pour chaque macro : Remplir la zone de texte et Effacer la zone de texte et ça fonctionne nickel mais j'ai lu sur le forum qu'on pouvait faire mieux pour effacer sans bouton!!!
Merci pour vos éventuelles réponses
Bon WE à tous
Bien cordialement


Première macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub cmdRemplissage_Click()
 
txtTest = Range("A1") & Chr$(10) & Range("A2") & Chr$(10) & Range("A3") & Chr$(10) & Range("A4") & Chr$(10) & Range("A5") & Chr$(10) & Range("A6") & Chr$(10) & Range("A7") & Chr$(10) & Range("A8") & Chr$(10) & Range("A9") & Chr$(10) & Range("A11") & Chr$(10) & Range("A12") & Chr$(10) & Range("A13") & Chr$(10) & Range("A14") & Chr$(10) & Range("A15") & Chr$(10) & Range("A16") & Chr$(10) & Range("A17") & Chr$(10) & Range("A18") & Chr$(10) & Range("A19") & Chr$(10) & Range("A20") & Chr$(10) & Range("A21") & Chr$(10) & Range("A22") & Chr$(10) & Range("A23") & Chr$(10) & Range("A24") & Chr$(10) & Range("A25") & Chr$(10) & Range("A26") & Chr$(10) & Range("A27") & Chr$(10) & Range("A28") & Chr$(10) & Range("A29") & Chr$(10) & Range("A30") & Chr$(10)
End Sub
'& Chr$(13)
Deuxième macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub cmdRemplissage_Click()
txtTest.MultiLine = True
Range("A1:A20").Copy
txtTest.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
Troisième macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub cmdRemplissage_Click()
txtTest.MultiLine = True
For I = 1 To 20
 txtTest = txtTest & Range("A" & I) & Chr$(10)
Next
Application.CutCopyMode = False
Range("A1").Select
End Sub