Sub testJJ()
Dim C As Range
With Feuil1
.[h:h].ClearContents
For Each C In .Range("d1:d" & .Cells(.Rows.Count, "D").End(xlUp).Row)
If IsNumeric(Application.Match(C, .[A:A], 0)) Then .Cells(C.Row, "H") = Date
Next
End With
End Sub
Sub testJJ()
Dim C As Range
With Feuil1
.[h:h].ClearContents
For Each C In .Range("d1:d" & .Cells(.Rows.Count, "D").End(xlUp).Row)
If IsNumeric(Application.Match(C, .[A:A], 0)) Then .Cells(C.Row, "H") = Date
Next
End With
End Sub
Re..
Dans le code proposé
With Feuil1
'Feuil1' est le code name de la feuille 1
Soit remplacer Feuil1 par le code name de la feuille 2
Soit remplacer
With Feuil1
par
With Sheets("le nom de la feuille")
*Dans l'éditeur vb, le code name est situé avant le nom des feuilles qui sont entre parenthèse.
*Avantage:
*En utilisant le code name, on peut modifier le nom de la feuille ou la déplacer sans avoir a modifier le code.
Merci beaucoup j'ai bien compris pour ce point. Par contre moi je voudrais que la colonne A reste dans le feuille 1 et que les colonnes D et H en feuille 2. Du coup je ne sais pas si c'est possible d'alterner avec ton code.
J'ai apporté quelques modifications à mon fichier et je me retrouve bloqué.
En effet, le code VBA ne prend pas en compte les éléments suivants :
- colonne A début en A10 et finit à la dernière ligne remplit. En sachant qu'il peut y avoir un titre au dessus.
De plus, si les données change en dans la colonne A je voudrais que les nouvelles données à a suite de la colonne B et en colonne B la date. Jusqu'à cette étape j'y arrive, j'ai réussi à faire un mix de ton code.
Je t'ai tout expliqué dans le fichier.
Merci par avance pour ton aide, j'en ai vraiment besoin pour finir ce fichier.