copier coller et ranger avec condition

[natacha]

Bonjour le forum

je cherche A FAIRE UN COPIER COLLER des zonnes en bleu de la page TAB a la page IMP avec une condition

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/03/2005 par LA MATRICE
'

'
With Sheets('TAB')
If .Range('B1').Value = .Range('B5') Then
Range('B416').Select
Selection.Copy
Sheets('IMP').Select
Range('B3').Select
ActiveSheet.Paste
End If
End With
End Sub
jusque la pas de probleme je cherche a faire la meme chose avec les autres zonne mais je v les copier les une apres les autres
merci davance pour votre aide

 

[JCA06]

Bonjour Natacha, bonjour le Forum,

Il faut que tu donnes davantage de détails, et/ou que tu joignes un extrait de ton fichier, parce que j'ai l'impression que nous n'avons pas toutes les données !

Par exemple, tu parles de données en bleu, mais tu ne t'en sert pas.

Si ton problème concerne seulement le numéro de ligne de destination de la copie, tu peux le rendre variable en l'incrémentant après chaque copie.

Si c'est ça, tape trois coups !

A plus.

 

[natacha]

ouppss mille escuse j'ai pas mis la piéce jointe [file name=TAB.zip size=10354]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TAB.zip[/file]