VBA - 2 Tableaux trouver cellules commune à chaque tableau

J'agis sur les cellules

f1.R6:R177
f1.S6:S177
f1.U6:U177

Merci pour votre abnégation et patience

Ce n'est pas tout à fait ce que j'ai demandé, sachant que c'est la sélection d'un cellule de la colonne "R" qui déclenche la macro, je voulais connaître quelle cellule de la colonne "R3 vous avez sélectionné, car si je sélectionne la cellule S6, après avoir saisie une date en R6 et un commentaire en U6, la macro va tenter de rechercher l'action "Publication de la note d'information " dans la colonne A de la feuille "Planning", or celle-ci n'existe pas, mais ceci ne déclenche pas d'erreur. Quelle cellule de la colonne "R" avez-vous sélectionné et qui provoque l'erreur?

R10 est renseignée, je veux modifié cette cellule à ce moment là l'erreur apparait

Chez moi je n'arrive pas à reproduire l'erreur, par contre on peut modifier la macro "recherche", les dates étant uniques dans "Planning" on peut écrire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Recherche() f2.Select f2.Rows(4).NumberFormat = "General" f2.Rows(4).Copy f2.Rows(4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False   With f2.Range("A5:A120") Set v = .Find(Val_f1, LookIn:=xlValues, lookat:=xlWhole) If Not v Is Nothing Then Pos1 = v.Address Set d = f2.Range("B4:EG4").Find(Date_f1, LookIn:=xlFormulas, lookat:=xlWhole) If Not d Is Nothing Then f2.Cells(v.Row, d.Column) = Val_Col3 & " " & Format(Val_Col6, "hh:mm") End If End With f2.Range("B4").FormulaR1C1 = "=EDATE(R1C3,-6)" f2.Range("C4:EG4").FormulaR1C1 = "=RC[-1]+1" f2.Rows(4).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy" End Sub

---

Le fichier
Pièce jointe 551207

Cdlt

Merci mille fois c'est super tout fonctionne à merveille