[Excel-2010] Probleme pour alimenter Textbox multiligne

Version imprimable

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:

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 !!

Bonjour,

Citation:

Envoyé par Mike-Keul

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:

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

06/12/2017, 20h42
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 ?

Citation:

Envoyé par Mike-Keul

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:

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

07/12/2017, 03h20
patricktoulon

re

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

Bonjour,

Code:

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

07/12/2017, 09h41
patricktoulon

RE

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)
07/12/2017, 11h41
Mike-Keul

Tout d'abord merci pour vos aides !! ;)

Citation:

Envoyé par anasecu

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
07/12/2017, 11h43
Mike-Keul

Citation:

Envoyé par 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

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 ...)
07/12/2017, 12h22
patricktoulon

re

re
il me viens une idée d'un seul coup ,je sais j'ai été un peu long a la detente sur ce coup la

Code:

Set y = Workbooks("Test Macro Enquete V2").Sheets("Liste Suivi")

dis moi ce classeur est il le classeur ou se trouve la macro ou un autre classeur ouvert ????

si c'est un autre classeur pas etonnant il y désactivation du classeur contenant le userform et la macro

conclusion par sur la copie du presse papier tu sera moins ennuyé par ces soucis la robert t a maché le travail
07/12/2017, 17h53
Mike-Keul

Citation:

Envoyé par patricktoulon

dis moi ce classeur est il le classeur ou se trouve la macro ou un autre classeur ouvert ????

si c'est un autre classeur pas etonnant il y désactivation du classeur contenant le userform et la macro

conclusion par sur la copie du presse papier tu sera moins ennuyé par ces soucis la robert t a maché le travail

Ce classeur est celui de la macro avec le userform

Mais les données récupérées dans le userform me servent a alimenter d'autres fichiers (ouvert en même temps)

1 pièce(s) jointe(s)

re
regarde ce code etudie le et essaie d'en comprendre le fonctionnement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    MsgBox meslignes_de(ActiveSheet.Range("$A$1:$c$7"), "toto")
End Sub
'
Function meslignes_de(plage, argmt)
    With CreateObject("htmlfile")
        clearall = .parentwindow.clipboardData.setData("Text", "")    'on vide le clipboard au cas ou il y aurait quelque chose
        plage.AutoFilter Field:=1, Criteria1:=argmt
        plage.SpecialCells(xlVisible).Copy    'on copy la plage tout simplement
        meslignes_de = Replace(.parentwindow.clipboardData.GetData("TEXT"), vbTab, " ")
        plage.AutoFilter
    End With
    Application.CutCopyMode = False    'on relache la plage copiée
End Function

Pièce jointe 333396

Bonjour
Que fait ceci (exemple avec lignes masquées sur feuil1, de la cellule A1 à la cellule A10) :

Code:

1
2
3
4
5
6
With Worksheets("Feuil1").Range("A1:A10")
    For Each c In .SpecialCells(xlVisible)
     toto = toto & vbCrLf & c.Text
    Next
  End With
  TextBox1.Text = Mid(toto, 3) ' --->> je dis bien 3 car vbcrlf = 2 caractères

08/12/2017, 19h08
Mike-Keul

Citation:

Envoyé par patricktoulon

re
regarde ce code etudie le et essaie d'en comprendre le fonctionnement

Ahhhhhh GENIAL !!

J'ai mis un peu de temps a comprendre (j'suis pas un pro ...) mais ça marche impeccable ! Un Grand Merci !

... et merci a tous également ;)