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
Partager