Selection.copy auto en fonction d un indice

[Evelynetfrancois]

bonjour tout le monde

je cherche a automatiser une zone "selection.copy" en fonction d un n° de semaine situer en collonne A
j ai joint un fichier , je pense que c est plus explicite
ce n est pas urgent .........
je vous remercie d'avance si vous avez des idées ou soluces
bon apres midi a tous..........

E et F

 

[Evelynetfrancois]

Re : Selection.copy auto en fonction d un indice

re bonsoir

voila j en suis là!
ca marcherait si c était bien ecrit !!!
ca vous parle a vous ??
merci pour tout

Sub test()
Sheets(1).Range("définie par textbox").CurrentRegion.Copy

Sheets(2).Activate
Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("a4").Select
End Sub



E et F

 

[ninbihan]

Re : Selection.copy auto en fonction d un indice

Bonsoir E et F, bonsoir le forum,
Qu'est ce qu'il y'a dans les cases normalement (pour la zone 10 tu as représenté par X)?
Pour utiliser current region il faut que tes zones soient séparées par une ligne vide, est ce possible ?

 

[Eric 45]

Re : Selection.copy auto en fonction d un indice

Bonsoir à tous

Je te propose ce code :

Sub zone()
repere1 = Range("f1").Value   'ce que tu récupère
repere2 = Range("g1").Value   'ce que tu récupère
With Worksheets("Feuil1").Range("a1:a500")
    Set c = .Find(repere1, LookIn:=xlValues)
    ligne1 = c.Row
End With
With Worksheets("Feuil1").Range("a1:a500")
    Set d = .Find(repere2, LookIn:=xlValues)
    ligne2 = d.Row
End With
premcell = "a" & ligne1 + 1
dercell = "F" & ligne2 - 1
Range(premcell, dercell).Select
End Sub

A+

Eric

 

[Evelynetfrancois]

Re : Selection.copy auto en fonction d un indice

Bonsoir ninbihan et eric 45
tout dabord merci de m accorder votre temps ...

oui j ai bien compris que pour currentregion il fallait une ligne entre deux series , ca c est fait !!
d autre part les cellules X sont des valeurs numeriques ou texte mais toutes sont forcement remplies

EN FAIT il faudrait que j arrive a SELECTIONNER ,via une boite , la cellule 10 ; 11 ou 12,
et de là je ferais ActiveCell.CurrentRegion.Copy

en manuel ca marche

Sheets(1).Select
ActiveCell.CurrentRegion.Copy
Sheets(2).Activate
Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("a4").Select
End Sub


E et F

 

[Eric 45]

Re : Selection.copy auto en fonction d un indice

Re

Ci joint un fichier. Tu nous dis

A+

Eric

 

[bqtr]

Re : Selection.copy auto en fonction d un indice

Bonsoir Evelynetfrancois, Eric 45,ninbihan

Ton fichier modifié, j'utilise une combobox pour lister les N° de zone.

Bonne soirée

 

[Evelynetfrancois]

Re : Selection.copy auto en fonction d un indice

bonjour bqtr

je te remercie beaucoup ...on est pas loin de mon souhait là.
chez moi ,ca bloque au niveau

For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)

mais dans le principe c est EXACTEMENT ce que je souhaite
"un usf qui me localise la cellule de la valeur definie"

merci eric45 pour ta suggetion , mais honnetement je la gere moins bien
cependant je te remercie beaucoup de me donner un coup de main !!

E et F

 

[bqtr]

Re : Selection.copy auto en fonction d un indice

Re,

Qu'est ce qui bloque, chez moi cela fonctionne bien.
Tu as un message d'erreur ?

 

[Evelynetfrancois]

Re : Selection.copy auto en fonction d un indice

OUPS !!
excuse moi bqtr je pense que c'est la presence d'un autre classeur ouvert qui provoquait une erreur
non non tout va à merveille
c'est exatement ce que je souhaitais !!!
je te remercie vraiment beaucoup !!
je te souhaite une bonne soirée
au plaisir de te lire
E et F