copier coller sous conditions

[jammy17]

bonjour le forum,

j'ai 2 feuilles, dans la premier nommee'TRI', j'ai des donnees du genre 'ITALIEN / GUMINO / 5/10/05 / 6/10/05' ET DANS LA DERNIER COLONNE LE NUMERO DE LA SEMAINE 'S52'

DANS CETTE MEME FEUILLE,j'ai des donnees de la semaine 1 a 51.

je voudrais exporter uniquement vers la deuxieme feuille nommee'VOIR' les donnee de la semaine choisie, exemple S52

en fait je voudrais faire une chose du style
if cel.offset(0,10)='S52' then copier la plage correspondante et la coller sur la feuille'VOIR'

quel code dois je utiliser pour faire cela..merci
et sans utiliser de filtres automatiques!!!

Message édité par: jammy17, à: 23/12/2005 17:47

 

[jammy17]

oui merci, effectivement via les filtres automatiques c'est possible..

cela dit, c'est justement mon probleme, car j'aimerai eviter d'utiliser des filtres automatiques!

 

[Charly2]

Bonsoir Jammy17 et Staple1600

Jammy, voici une possibilité de code sans filtre :

Sub TransfertDonnees()
'
Dim Cellule As Range
Dim PremiereAdresse As String
Dim LigneDest As Long
'
  Sheets('TRI').Select
  Columns(10).Select

  LigneDest = Sheets('VOIR').Range('A65536').End(xlUp).Row + 1

  Set Cellule = Selection.Find('S52')

  If Not Cellule Is Nothing Then
    PremiereAdresse = Cellule.Address
    Do
      Cellule.EntireRow.Copy Sheets('VOIR').Cells(LigneDest, 1)
      LigneDest = LigneDest + 1
      Set Cellule = Selection.FindNext(Cellule)
    Loop Until Cellule.Address = PremiereAdresse
  End If
End Sub

Amicalement
Charly

 

[jammy17]

super!!!!!

merci charly, c'est exactement le code qu'ilme fallait....

je souhaite un joyeux noyel a tous les membres du Forum.......

Amicalement.JAMMY