Problème "Boucle for each cell"

Bonjour!

J'ai un pb avec la macro qui suit; rien ne se passe quand je la lance.

L'idée est que si la date de la colonne A ligne x correspond au 2 nov 2011; il faut copier la valeur de la ligne x colonne B dans la cellule ligne x colonne D.

Quelqu'un saurait d'où vient mon erreur??

Merci beaucoup pour votre aide!

Sub classement()

Dim Cell As Range

Dim x As Integer

x = 1

For Each Cell In Range("A1:A3500")

If Cell.Value Like "2-nov.-11" Then Cells(x, 4) = Cells(x, 2)

x = x + 1

Next Cell

End Sub

Bonjour,

essaye peut être ceci, non testé :

If Cell.Text Like "2-nov.-11" Then Cells(x, 4) = Cells(x, 2)

bonne journée

@+

Bonjour!

Merci bcp pour ta réponse; mais cela n'a pas l'air de fonctionner...

J'ai le même problème rien ne se passe.

Re,

essaye ceci :

If Cell.Value = #11/2/2011# Then

sinon mets un tout petit fichier en pièce jointe avec modèle de donnée traité

Bonjour,

vérifier si la date qui est écrite dans les cases du tableau est la même que dan le programme (le mieux est de faire copie coller)

2-nov.-11

A+

En fait les dates ne correspondent pas à des "dates" dans excel mais seulement à une chaine de caractère

je te joins un bout de mon fichier

Merci beaucoup pour ton aide!

C'est bon cela fonctionne! je crois qu'en essayant des macros j'avais en fait effacé cette date de tout le fichier...

Mercie encore pour votre aide!

Re,

ceci fonctionne sur ton fichier :

Sub CalculR1()
Dim i As Integer
    For i = 2 To 3040
        If Cells(i, 1).Text Like "2-nov.-11" Then
            Cells(i, 1).Copy Destination:=Cells(i, 5)
        End If
    Next i
End Sub

super! merci beaucoup