Menu

Recherche valeur dans une autre feuille

JN68 4 Messages postés lundi 12 février 2018Date d'inscription 14 février 2018 Dernière intervention - 12 févr. 2018 à 15:11 - Dernière réponse : JN68 4 Messages postés lundi 12 février 2018Date d'inscription 14 février 2018 Dernière intervention
- 14 févr. 2018 à 10:05
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
Afficher la suite 

5 réponses

Répondre au sujet
ccm81 8247 Messages postés lundi 18 octobre 2010Date d'inscription 13 février 2018 Dernière intervention - 12 févr. 2018 à 15:41
0
Utile
4
Bonjour

Un petit exemple
https://www.cjoint.com/c/HBmoPoTvNYB

Cdlmnt
JN68 4 Messages postés lundi 12 février 2018Date d'inscription 14 février 2018 Dernière intervention - 13 févr. 2018 à 08:26
Super!!!

Maintenant est-il possible encore de faire en sorte que la couleur de fond des cellules changent quand en "base " je la change??
ccm81 8247 Messages postés lundi 18 octobre 2010Date d'inscription 13 février 2018 Dernière intervention - 13 févr. 2018 à 18:28
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
JN68 4 Messages postés lundi 12 février 2018Date d'inscription 14 février 2018 Dernière intervention - 13 févr. 2018 à 18:39
Super merci

Ou avez vous appris tout ça ?
Je vais avoir besoin de plus en plus de vba et les connaissances sont quasi nulles

En tous cas MERCI
JN68 4 Messages postés lundi 12 février 2018Date d'inscription 14 février 2018 Dernière intervention - 14 févr. 2018 à 10:05
Bon, nouvelle question ...

J'ai dans une feuille de C5 à Q5 des noms
comment faire pour transferer automatiquement, police, couleur du texte et couleur de la cellule dans une autre feuille verticalement de B7 à B14 et de O7 à O14

Merci d'avance
Commenter la réponse de ccm81