formule vlookup VBA plage de donnée

Jec

XLDnaute Nouveau
Bonjour à tous,

Je fais appel à vous car je reste bloqué pour une programmation VBA.

Je voudrais que si une référence en colonne A est identique que celle en colonne D alors afficher la date du jour en colonne H sinon ne rien afficher.

Il est important de le faire sur vba car cela va suivre mon code en cours.

Merci à tous,
 

Pièces jointes

  • TEST1.xlsx
    9.3 KB · Affichages: 37

Jacky67

XLDnaute Barbatruc
Bonjour à tous,

Je fais appel à vous car je reste bloqué pour une programmation VBA.

Je voudrais que si une référence en colonne A est identique que celle en colonne D alors afficher la date du jour en colonne H sinon ne rien afficher.

Il est important de le faire sur vba car cela va suivre mon code en cours.
Merci à tous,
Bonjour,
Ceci dans un module standard
VB:
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
 

Jec

XLDnaute Nouveau
Bonjour,
Ceci dans un module standard
VB:
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

Merci beaucoup jacky, par contre comment faire si les colonnes D et H sont sur la feuille 2? Je n'arrive pas à modifier.
 

Jacky67

XLDnaute Barbatruc
Merci beaucoup jacky, par contre comment faire si les colonnes D et H sont sur la feuille 2? Je n'arrive pas à modifier.
Merci beaucoup jacky, par contre comment faire si les colonnes D et H sont sur la feuille 2? Je n'arrive pas à modifier.
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.
 

Pièces jointes

  • TEST1.xlsm
    22.5 KB · Affichages: 51
Dernière édition:

Jec

XLDnaute Nouveau
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.
 

Pièces jointes

  • Copie de TEST1.xlsm
    20.1 KB · Affichages: 39

Jec

XLDnaute Nouveau
Re..
Autre possibilité, sans boucle

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.
 

Pièces jointes

  • TEST V4.xlsm
    22.6 KB · Affichages: 41

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 868
dernier inscrit
pierreselo33