Discussion :

[jfk15]

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

[lionel86500]

Bonjour

La sélection faite avec la premier userform peu être déposée dans une cellule d'une feuille X ou Y
et récupérer dans le second userform dans le traitement initialize

Re bonjour

voici un exemple de passage de valeur d'un userform à un autre

[jfk15]

Je n'arrive pas à coller la sélection même dans une cellule d'une autre feuille. Comment dois je faire svp?

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
21
22
23
24
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))
    Application.CutCopyMode = False
    commentaire.Copy
 
    Feuil56.Select
    Range("a1").Select
    commentaire.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Unload Me
    Sheets(ComboBox4.Value).Select
    UserForm14.Show
End Sub

[lionel86500]

Dans mon exemple

dans la phase INITIALIZE de l'userform2 il est possible de récupérer la saisie du textbox1 de l'useform1.

ce que tu dois faire dans la phase INITIALIZE de ton userform14 est la même chose.

[jfk15]

Merci Lionel pour ta réponse. Je suis débutant en vba donc je vais essayer de m'expliquer plus clairement. Je te prie de m'excuser.

Tu dois voir dans mon code que je copie une sélection et que je l'appelle "commentaire" ?
et tu dois voir que j'appelle après l'usf14 ?

j'ai raison jusque là?

Ensuite j'ai mis dans initialize de l'usf 14

TextBox1.Value = commentaire

cela n'a pas marché. J'imagine que j'ai raté qqchose.....

[lionel86500]

Il faut que tu déclare la variable commentaire comme type public

Regarde cet exemple
déclaration type public