Mise en forme entre deux feuillesRésolu

Question

Bonjour a tous.
Je desire mettre en forme (en couleur) la cellule d'une feuille d'après la valeur de la cellule d'une autre feuille.
Ceci si les deux cellules sont de même valeur.
La cellule de la feuille"basefil" fait partie de la colonne A
La cellule de la feuille "Feuil2" se trouve a un emplacement fixe a savoir ligne 4 et colonne 8
J'ai essayer ceci:
Dim t As Integer, r As Integer
With Sheets("basefil") And Sheets("Feuil2")
   For t = 2 To 50
   If Sheets("basefil").Cells(t, 1) = Sheets("Feuil2").Cells(r, 8) Then
Macro9
End If
Next
End With.
Macro9 tant la mise en forme.
Je n'ai aucun defaut lorsque je lance mon code mais il ne se passe rien non plus......
Merci de me donner un coup de main

cnt · Accepted Answer

Bonjour VVO22
 Avant tout ceci:
L'instruction "With" exécute une série d'instructions[javascript:hhobj_4.Click() ] 
appliquées à un seul objet. Donc tu en fait mauvais usage.
Que vient faire la variable "r", est-elle égale à 4 ?
Voila ensuite une solution:
 
    Dim t As Integer, r As Integer
    Dim ValeurTest
    
    ValeurTest = Sheets("Feuil2").Cells(4, 8).Value
    For t = 2 To 50
        If Sheets("basefil").Cells(t, 1).Value = ValeurTest Then
            Call Macro9
        End If
    Next
J'espère répondre à ton attente.
A + 
CNTJC

cs_YVO22 · Answer

Merci a toi CNTJ
Ca marche tres bien
A bientot
Yvo

Mise en forme entre deux feuilles

2 réponses

Votre réponse

Discussions similaires