Localiser une cellule à 'laide "d'Intersection ?"

Question

Localiser cellule à 'laide "d'Intersection ?" et modifier sa valeur à partir d'un formulaire de saisie. Fichier joint. merci d'avance Nonno...

ThauThème · Accepted Answer

Bonjour Nonno, bonjour le forum,

Essaie comme ça :

Sub ThauTheme()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OC As Worksheet 'déclare la variable OC (Onglet Cible)
Dim TS As ListObject 'déclare la variable TS (Tableau Source)
Dim TC As ListObject 'déclare la variable TC (Tableau Cible)
Dim R As Range 'déclare la variable R (Recherche)
Dim LR As Integer 'déclare la variable LR (Ligne de Référence)

Set OS = Worksheets("Mouvement") 'définit l'onglet OS
Set OC = Worksheets("Stock") 'définit l'onglet OC
Set TS = OS.ListObjects("Tableau6") 'définit le tableau TS
Set TC = OC.ListObjects("Tableau1") 'définit le tableau TC
'définit la recherche R (recherche la référence en C14 dabs la colonne 1 de TC)
Set R = TC.ListColumns(1).Range.Find(OS.Range("C14").Value, , xlValues, xlWhole)
If Not R Is Nothing Then 'si il existe au moins une occurrence trouvée
    LR = R.Row - TC.HeaderRowRange.Row 'définit la ligne de référence LR (ligne de la première occurrence trouvée moins ligne des en-tête de TC)
    TC.DataBodyRange(LR, 5).Value = OS.Range("C15").Value 'renvoie le prix HT (C15) dans la ligne LI, colonne 5 de TC
End If
End Sub