copier coller VBA

salut polimnya,

tout a fait au pifomètre, mais en regardant ton code je dirais que tu as fait plusieurs erreurs.
tout d'abord tu devrait peut etre modifier ton while par un do while et le terminer par un loop.
en plus tu devrais modifier ta condition Activecell.Value.
plus d'autre modification que je ne n'ai pas le temps de regarder pour le moment.

mais juste un petit conseil, est ce que tu as testé sans ton while pour savoir si cela fonctionnait ?

bon courage @+

Salut 'polimnya
bonjour Porcinet82
en pièce jointe une posibilité qui peut être adaptée,améliorée
tiens nous au courant
Amicalement
Jean Marie [file name=TransfertSelectionV1.zip size=14873]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TransfertSelectionV1.zip[/file]

merci mais le probleme c ke ca marche pa mais ca minteresse carrement ce code

Private Sub R_BT_V_Click()
Dim TabTemp As Variant
Dim derlgn As Integer, Derlgn2 As Integer, Lgn As Integer
Application.ScreenUpdating = False
valeur = ER_CB_1
With Sheets('candidats').Activate


mais la c'est tout jaune 'erreur d'execution, objet requis'

derlgn = .Range('A65536').End(xlUp).Row





TabTemp = .Range(.Cells(1, 1), .Cells(derlgn, 2)).Value
End With
With Worksheets('copie').Select
For Lgn = 1 To UBound(TabTemp, 1)
If TabTemp(Lgn, 1) = valeur Then
Derlgn2 = .Range('A65536').End(xlUp).Row + 1
.Range('A' & Derlgn2) = TabTemp(Lgn, 1)
.Range('B' & Derlgn2) = TabTemp(Lgn, 2)
End If
Next
End With
Application.ScreenUpdating = True
End Sub



tu vois pas dou ca vient,

re polimnya

ce qui ne va pas ce sont les lignes
With Sheets('candidats').Activate
With Worksheets('copie').Select
tu aurais du recopier comme dans le fichier joint soit
With Sheets('candidats')
.Activate
With Worksheets('copie')
.Select
le With permet de ne pas répéter ce qu'il y a après
ici Sheets('candidats') donc tu as ensuite
derlgn = .Range('A65536').End(xlUp).Row 'avant le point devant Range, c'est comme si tu avais Sheets('candidats') Etc
celà racourci le code
en espèrant avoir réglé ton Problème
tu remets en ordre et celà devrait Fonctionner
Amicalement
Jean Marie

re
voilà le code sans les With

Private Sub CommandButton1_Click()
Dim TabTemp As Variant
Dim derlgn As Integer, Derlgn2 As Integer, Lgn As Integer
Application.ScreenUpdating = False
Valeur = Me.ComboBox1.Text
Sheets('Feuil1').Activate
derlgn = Sheets('Feuil1').Range('A65536').End(xlUp).Row
TabTemp = Sheets('Feuil1').Range(Sheets('Feuil1').Cells(1, 1), Sheets('Feuil1').Cells(derlgn, 2)).Value
Worksheets('Feuil2').Select
For Lgn = 1 To UBound(TabTemp, 1)
If TabTemp(Lgn, 1) = Valeur Then
Derlgn2 = Sheets('Feuil2').Range('A65536').End(xlUp).Row + 1
Sheets('Feuil2').Range('A' & Derlgn2) = TabTemp(Lgn, 1)
Sheets('Feuil2').Range('B' & Derlgn2) = TabTemp(Lgn, 2)
End If
Next
Application.ScreenUpdating = True
End Sub
c'est plus parlant
Amicalement
Jean Marie