VBA Envoie valeur sur fond couleur

Bonjour et Bonne année au Forum

Est il possible de renvoyer la Valeur de "F25" sur un fond Jaune?

Nonno

Sub ModifX()
If IsNumeric(Range("F25")) Then

If Sheets("Mouvement").Range("G25") = ("A") Then

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, 14).Value = OS.Range("F25").Value 'renvoie le N°Ban (F25) dans la ligne LI, colonne 2 de TC
End If

Range("F25").ClearContents
 Else
    MsgBox "Non autorisé"
End If

Else
MsgBox "Nom du fournisseur!"
End If

Range("G25").ClearContents
Range("G25").Select
End Sub

Bonjour,

Et si tout simplement tu ocrais ta cellule "F25" en jaune

Range("F25").Interior.Color = 6

Bonjour Jacky

Merci pour ta solution, mais cette cellule est utilisée pour d'autres "macros" pour lesquelles la couleur n'est pas souhaitée.

Mais! si l'on peut intégrer "Range("F25").Interior.color=6" dans ce code, ça m'irait très bien.

Je ne sais pas mais dans ton code je vois que tu fais référence à la cellule "F5" à un moment précis

Range("F25").ClearContents
 Else
    MsgBox "Non autorisé"
End If
Else
MsgBox "Nom du fournisseur!"
End If

serait-ce le mooment d'insérer le bout de code que je t'ai donné ? Je ne sais pas car sans fichier c'est difficile de voir exactement ce que tu veux

Merci Jacky je vais essayer cette solution

Bonne soirée