Discussion :

[Mike-Keul]

Bonjour,

Je me casse la tete sur a chercher un code qui je suis sur doit etre simple .....

J'ai une feuille de classeur comme base de donnée. j'ai un formulaire avec une combobox qui me permet de filtrer ce tableau et j'ai 2 textbox "multiligne" que j'aimerais alimenter pour la 1ere avec les 10 premières cellules filtré et la 2e avec les 10 cellules suivante .... et je n'arrive a pas ! HELP !!!

J'ai fait un truc simple mais qui marche qu'a moitié... ça donne des fois des resultat aleatoire ...voir ça bug...

Voila le bout de code que j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub ComboBox3_Change()
Set y = Workbooks("Test Macro Enquete V2").Sheets("Liste Suivi")
R = ComboBox3.Value
If FilterMode = True Then ActiveSheet.ShowAllData
y.Range("A3").AutoFilter Field:=3, Criteria1:=R
 
y.Range("d4:d15").SpecialCells(xlVisible).Copy
Me.TextBox1.Paste
 
y.Range("d16:d27").SpecialCells(xlVisible).Copy
Me.TextBox2.Paste

Par avance merci de votre aide !!

[anasecu]

Bonjour,

J'ai fait un truc simple mais qui marche qu'a moitié... ça donne des fois des resultat aleatoire ...voir ça bug...

Cela vient que tes adresses ne tiennent pas compte du filtre.
Je te propose de modifier ainsi en passant par une autre colonne : j'ai choisi Z tu prends une colonne de droite libre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ComboBox3_Change()
Set y = Workbooks("Test Macro Enquete V2").Sheets("Liste Suivi")
R = ComboBox3.Value
If FilterMode = True Then ActiveSheet.ShowAllData
y.Range("A3").AutoFilter Field:=3, Criteria1:=R
 
 y.Columns(4).SpecialCells(xlVisible).Copy Destination:=y.[Z1]
 y.ShowAllData
 y.Range("Z4:Z13").Copy
 Me.TextBox1.Paste
 y.Range("Z14:Z23").Copy
 Me.TextBox2.Paste
 y.Columns("Z").clearcontents

[Mike-Keul]

Ah merci c'est une bonne piste ... ça marche, mais si je crée 2 autres textbox (multiline) sur la même méthode pour les alimenter avec la colonne suivante du table... et bin Excel je te l'eponge !
J'ai l'impression que ça lui fait trop de copier/coller a la chaine .... et il se melange les pedale ou bug

Y'aurait il une autre méthode ?

[anasecu]

et bin Excel je te l'eponge ! J'ai l'impression que ça lui fait trop de copier/coller a la chaine .... et il se melange les pedale ou bug?

Ne penses-tu pas que c'est toi qui lui a mal indiqué la méthode

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
Private Sub ComboBox3_Change()
Set y = Workbooks("Test Macro Enquete V2").Sheets("Liste Suivi")
R = ComboBox3.Value
If FilterMode = True Then ActiveSheet.ShowAllData
y.Range("A3").AutoFilter Field:=3, Criteria1:=R
 
 y.Columns("D:E").SpecialCells(xlVisible).Copy Destination:=y.[Z1]
 y.ShowAllData
 y.Range("Z4:Z13").Copy
 Me.TextBox1.Paste
 y.Range("Z14:Z23").Copy
 Me.TextBox2.Paste
 y.Range("AA4:AA13").Copy
 Me.TextBox3.Paste
 y.Range("AA14:AA23").Copy
 Me.TextBox4.Paste
 y.Columns("Z:AA").ClearContents

[patricktoulon]

re
si les textboxs sont dans un userform peut etre y a t il une perte de focus sur le textbox lors de la copie sur sheet

perso je n'utiliserais pas paste

[Mike-Keul]

re
si les textboxs sont dans un userform peut etre y a t il une perte de focus sur le textbox lors de la copie sur sheet

perso je n'utiliserais pas paste

Mes plantage sont surement du a ça.....


mais par contre j'ai pas compris le code de la 2e methode (et donc a l'inclure dans le miens et le tester ...)

[Mike-Keul]

Tout d'abord merci pour vos aides !!

Ne penses-tu pas que c'est toi qui lui a mal indiqué la méthode

Nan Nan .... j'ai bien utilisé ce code. ça marche mais environ 1 fois sur 3, le code plante sur un collage dans une des textbox

[Invité]

Bonjour,

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
Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
Public Property Let PressePapier(Value)
    With CreateObject(DATAOBJECT_BINDING)
        .SetText Value
        .PutInClipboard
    End With
End Property
 
 
Public Property Get PressePapier()
    With CreateObject(DATAOBJECT_BINDING)
        .GetFromClipboard
        PressePapier = .GetText
    End With
End Property
Private Sub ComboBox3_Change()
 
 y.Range("Z4:Z13").Copy
 Me.TextBox1=PressePapier

[patricktoulon]

re
merci robert tu l'a fait a ma place

attention avec le dataobject et excel 2016 quand meme
je prefere le htmlfile en late binding (universel)