Loope trop longue

T

Temjeh

Guest

• 28 Janvier 2006

• #2

Encore moi

Aussi cette loope ne prend pas en considération la valeur de la combo

Merci

Temjeh

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 28 Janvier 2006

• #3

bonsoir le forum, temjeh

rows('1:' & range('e65536').end(xlup).row).cut
Windows('Transfert').Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 28 Janvier 2006

• #4

Merci justine pour ton aide mais j'ai un bug sur cette ligne:

Windows('Transfert').Range('A65536').End(xlUp).Offset(1, 0).Select

Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 28 Janvier 2006

• #5

Rebonsoir

Pour plus simplevoici la macro total:

Ouvre le classeur du nom de la combo(la ca va) et coupe les lignes qui on la valeur du combo et colle dans ce classeur variable ouvert:

Private Sub CommandButton1_Click()
Dim Nom_Fichier

Dim chemin
Nom_Fichier = ComboBox1
chemin = ActiveWorkbook.Path

Dim Wbk As Workbook
Set Wbk = ActiveWorkbook

ChDir chemin

Workbooks.Open FileName:= _
chemin & '\\' & Nom_Fichier & '.xls'

Wbk.Activate
Dim MaValeur, compteur
MaValeur = ComboBox1.Value
For compteur = 1 To 25
If Range('E' & compteur) = ComboBox1.Value Then
Range('E' & compteur).Select
Selection.EntireRow.Cut
Windows(MaValeur).Activate
Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Wbk.Activate
End If

Next compteur

End Sub

Merci de vos idées

Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 28 Janvier 2006

• #6

Rebonsoir

J'ai un Usform bouton combobox:

Clic sur le bouton...
Ouvre le classeur du nom qui est dans la combo(la ca va) reviens a ma feuille de départ(Wbk.Activate) et coupe les lignes qui on la valeur du combo et retourne dans le classeur ouvert par la valeur de la combo et colle dans ce classeur variable ouvert a la suite:


Merci

Temjeh

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 29 Janvier 2006

• #7

rebonsoir
Désolé si je ne me relie pas
Je voulais dire un BOUTON et une COMBOBOX

Je te joint une démo
Si tu veut ouvrir le 'ne plus faire' et il ouvrira l'autre sur demande

Une image vaut milles mots

Merci beaucoup [file name=Coupe_et_colle.zip size=14256]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Coupe_et_colle.zip[/file]

 

Pièces jointes

• Coupe_et_colle.zip

  13.9 KB · Affichages: 25

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 29 Janvier 2006

• #8

Merci beaucoup c'est la perfection !!!

Désolé encore pour le manque de clarté

Bravo!

Temjeh

 

Vote positif 0 Vote négatif

T

Test

Guest

• 16 Avril 2006

• #9

Ceci est un test de couleur:



Dim MaValeur, compteur
MaValeur = ComboBox1.Value
For compteur = 1 To 500
Range("E" & compteur).Select
Selection.EntireRow.Cut
Windows("Transfert&quot😉.Range("A65536&quot😉.End(xlUp).Offset(1,
0).Select
ActiveSheet.Paste

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 16 Avril 2006

• #10

Test
Dim MaValeur, compteur
MaValeur = ComboBox1.Value
For compteur = 1 To 500
Range("E" & compteur).Select
Selection.EntireRow.Cut
Windows("Transfert&quot😉.Range("A65536&quot😉.End(xlUp).Offset(1,
0).Select
ActiveSheet.Paste

 

Vote positif 0 Vote négatif