Bonjour, j'ai commencé une macro mais je n'arrive pas à la finir.
1/ Elle sélectionne une plage de cellule d'une feuille "saisie"
2/ elle copie cette plage de cellule
3/ elle fait disparaître l'USF
3/elle sélectionne une autre feuille
4/ elle créé un usf avec une zone de texte
5/ C'est là que je n'y arrive pas. Il faudrait qu'elle colle la plage de cellule copiée dans la zone de texte de l'USF. Cette plage de cellule contient du texte. Il faudrait donc qu'il colle seulement le texte. Si c'est possible j'aimerais que ce "collage" exclue les cellules vides de la plage et qu'il colle le texte de chaque cellule sous cette forme :
- texte 1
- texte 2
- ......

Qqun peut me compléter mon code svp? merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
Application.ScreenUpdating = False
 
    nom = ComboBox4.Value
 
    Feuil1.Select
    Range("7:7").Find(nom, , xlValues, xlWhole, , , False).Select
    ActiveCell.Select
    Colonne = ActiveCell.Column
    ligne = ActiveCell.Row
 
    Set commentaire = Sheets("saisie").Range(Cells(ligne + 3, Colonne + 2), Cells(ligne + 1949, Colonne + 2))
    commentaire.Copy
    Unload Me
    Sheets(ComboBox4.Value).Select
 
 
    UserForm14.Show
End Sub