Condition dans macro

[Tim]

bonjour à tous,
après avoir fouillé dans le forum, j'ai quelques éléments pour ma macro, mais je n'arrive pas à finaliser.
J'ai 2 tableaux.('réalisé' et 'reference')
Cette macro est censée : comparer F5 et C5 et si la condition est vraie, copier C44 en H4:I4.
mais elle doit le faire pour toutes les lignes du tableau aussi !
Autrement dit, copier le tableau 'réalisé' si la condition est vraie.

merci pour vos conseils et votre aide,
bonne journée


Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 19/05/2006 par Tim
'

'
Application.ScreenUpdating = False

Sheets('Feuil1').Select
Range('B4').Select
If (Range('F5') - Range('C5')) <= 2 Then
Range('B4:C1200').AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range('H4:I4'), Unique:=False

End If


Application.ScreenUpdating = False
End Sub

 

[Papaye]

Bonjour Tim,

Les demandes sur Excel sont parfois surprenantes. La tienne rentre dans cette catégorie (ou je n'ai pas compris).

Si C5=F5 tu veux copier la ligne du dessus ... est-ce bien celà ?

Essaye ce pgm pour voir,

Papaye [file name=Tim.zip size=8418]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tim.zip[/file]

 

[Gruick]

Bonjour Tim,
Ben, avec une boucle sur la colonne C ou F bornée à tes conditions,
du genre

for i = 5 to Range('C65536').End(xlUp).Row
tes instructions
next i

ça devrait le faire.
A toi de jouer...

 

[Tim]

Bonjour Papaye et Gruick,
et merci pour votre réponse

oui tu as raison Papaye, la macro est pas génial et le post pas très précis. en fait ça fait 1 jour que je planche la dessus, et comme je débute en VBA...
un exemple sera plus explicite avec la boucle de
Gruick incluse !

si vous voulez bien jeter un coup d'oeil ;
le bonus serait de me dire où on trouve les jolis boutons de macro

Tim [file name=Classeur1_20060519121811.zip size=8881]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060519121811.zip[/file]