Liste de recherche VBA

Bonjour,

Citation:

---

Serait il possible que la box qui s'affiche dans la fenêtre soit de la police (couleur) que la cellule magasin correspondante.
Ex si la cellule a une police en bleu, que box s'écrive en bleue. Si rouge, en rouge ?

---

Rien de plus simple.
La propriété ForeColor d'un TextBox gère la couleur de la police de celui-ci et la propriété Font.Color fait de même pour un objet Range

Petit exemple à adapter à votre situation.

Code:

---

1 2 3

Private Sub UserForm_Activate() Me.TextBox1.ForeColor = ActiveCell.Font.Color End Sub

---

Bonjour,

Merci. Je vais essayer de l'adapter a la situation.
J'espère que je vais y arriver car je suis nul en VBA...
Faudra sans doute que je l'appelle box.text

Private Sub UserForm_Activate()
Me.TextBox1.ForeColor = ActiveCell.Font.Color
End Sub

Bonjour,

Pourriez vous m'aider à placer ces lignes de code au bon endroit dans mon code svp.
J'ai essayé avec box.text mais ca ne fonctionne pas.
Merci d'avance,
Vincent

Salut,
J'ai pas trop suivi le post mais je pense que tu dois coller le code après avoir trouvé la cellule m

Code:

---

1 2 3 4 5 6 7 8 9 10

'... '... If Not m Is Nothing Then Box.Text = m.Cells.Offset(0,1).Value Box.ForeColor = m.Cells.Offset(0,1).ForeColor c.Cells.Offset(0,2).Value = m.Cells.Offset(0,1).Value Else Box.Forecolor = vbBlack ' // A adapter ... '... '...

---

PS. Tu as les balises # pour inclure du code dans ton post utilises-les à la place d'un document Word.

Si je remplace vbBlack par ActiveCell.Font.Color
Est ce que ça prendra en compte la police de la cellule trouvée ?

Bonjour,

Citation:

---

Si je remplace vbBlack par ActiveCell.Font.Color
Est ce que ça prendra en compte la police de la cellule trouvée ?

---

Effectuer des tests fait partie de la vie d'un programmeur. Si vous n'en faites pas, vous allez faire du sur place

vbBlack est une constante de couleur qui est la valeur d'une des couleurs noire comme vbYellow est le jaune, et ainsi de suite (il y en a 8). Je vous conseille un peu de lecture pour en savoir plus sur les constantes de couleur
ActiveCell.Font.Color renvoie le code couleur de la cellule active donc si l'on passe cette valeur à la propriété ForeColor d'un TextBox comme je l'ai publié dans l'une de mes réponses la couleur du texte de votre TextBox prendra effectivement la couleur de la cellule active

Attention une cellule active, n'est pas nécessairement une cellule "trouvée"

Bonjour,
Petit exemple simplifié aux maximum, si toutefois j'ai bien compris votre demande

Pour cet exemple

• un tableau structuré nommé t_Stock avec trois colonnes (voir illustration)
• un UserForm nommé "UserForm1" contenant
  un ComboBox nommé "cboRef"
  un TextBox nommé "txtLocalisation"

Lorsque l'on sélectionne une référence dans le ComboBox on effectue la recherche de la référence et on applique la même couleur de la police de la cellule (colonne Localisation) ) la police du TextBox nommé txtLocalisation (propriété ForeColor)

Code des procédures placées dans le UserForm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub cbo_Ref_Change() Dim c As Range With Me ' Recherche la valeur sélectionnée dans la liste déroulante Set c = SearchValue(.cbo_Ref.Value, Range("t_Stock[Ref]")) ' Alimente les deux propriétés du TextBox With .txtLocalisation .Value = c.Offset(ColumnOffset:=1).Value ' Valeur de la cellule de la colonne Localisation .ForeColor = c.Offset(ColumnOffset:=1).Font.Color ' Couleur de la police de la colonne Localisation End With End With Set c = Nothing End Sub   Function SearchValue(LookupValue As String, SearchRange As Range) As Range ' Renvoie un objet Range de la valeur cherchée Set SearchValue = SearchRange.Find(LookupValue, LookIn:=xlValues, Lookat:=xlWhole) End Function

---

Code de la procédure placée dans un module Standard et qui lance le UserForm

Code:

---

1 2 3 4 5 6 7 8 9

Sub Main() With UserForm1 With .cbo_Ref .List = Range("t_Stock").Value .ColumnWidths = "30" End With .Show End With End Sub

---

Illustration

Pièce jointe 638437