Recherche valeur dans une autre feuille
JN68
Messages postés
19
Statut
Membre
-
JN68 Messages postés 19 Statut Membre -
JN68 Messages postés 19 Statut Membre -
Bonjour
J'ai besoin d'aide sur la VBA
Jai un fichier excel .xlsm
Dans une feuille "Base" en colonne "A" jai renseigné le nom de mes ouvriers avec chacun une couleur de fond et un caractere de police a lui.
Jai créé dans une autre feuille "Total 1" en ligne 5 des menu deroulant pour retrouver le nom de ces ouvriers de C5 à Q5
Maintenant Jaimerai en cliquant sur un bouton "Actualiser" que les colonne C à Q reproduise la couleur et la police de la feuille Base et ca jusqu'à la ligne 25
Merci pour votre prochaine aide
JN68
J'ai besoin d'aide sur la VBA
Jai un fichier excel .xlsm
Dans une feuille "Base" en colonne "A" jai renseigné le nom de mes ouvriers avec chacun une couleur de fond et un caractere de police a lui.
Jai créé dans une autre feuille "Total 1" en ligne 5 des menu deroulant pour retrouver le nom de ces ouvriers de C5 à Q5
Maintenant Jaimerai en cliquant sur un bouton "Actualiser" que les colonne C à Q reproduise la couleur et la police de la feuille Base et ca jusqu'à la ligne 25
Merci pour votre prochaine aide
JN68
1 réponse
-
Bonjour
Un petit exemple
https://www.cjoint.com/c/HBmoPoTvNYB
Cdlmnt-
-
ilte suffit d'ajouter une variable fond prenant comme valeur le fond de la cellule
Public Sub Actualiser() Dim co As Long, li As Long, cofin As Long Dim nom As String, obj As Object, adrobj As String Dim coul As Long, poli As String, plage As Range, fond As Long cofin = Sheets(FT).Cells(linom, Columns.Count).End(xlToLeft).Column For co = codeb To cofin nom = Sheets(FT).Cells(linom, co).Value Set obj = Sheets(FB).Columns(conom).Find(nom) adrobj = obj.Address coul = Sheets(FB).Range(adrobj).Font.ColorIndex poli = Sheets(FB).Range(adrobj).Font.Name fond = Sheets(FB).Range(adrobj).Interior.ColorIndex With Sheets(FT) Set plage = .Range(.Cells(linom, co), .Cells(lifin, co)) plage.Font.Name = poli plage.Font.ColorIndex = coul plage.Interior.ColorIndex = fond End With Next co End Sub
Cdlmnt -
-
-
