LvnAbzi5HB
(1)
Cell.Value
(1)
Essaie
(1)
Essai
(1)
Bien
(1)
Tres
(1)
Toto
(1)

Macro

Asked By j-marc
21-Nov-09 07:29 AM
http://cjoint.com/?lvnAbzi5HB


Merci

Bonjour.

Daniel.C replied to j-marc
21-Nov-09 07:54 AM
Bonjour.
Essaie :

Sub essai()
Dim cell As Range
For Each cell In Range("E1", [E10000].End(xlUp))
If cell.Value = "toto" Then
Range("G10").Copy cell
End If
Next
End Sub

Daniel

Merci Daniel ca fonctionne tres bien"Daniel.C" wrote:

j-marc replied to Daniel.C
21-Nov-09 10:08 AM
Merci Daniel ca fonctionne tres bien
Post Question To EggHeadCafe