afficher le format d'origine avec la fonction recherche

[tipiwa]

bonjour,

J'utilise la fonction recherche à partir d'une liste. Le texte de la cellule s'affiche bien mais j'aimerais que s"affiche le même format que la cellule cherchée. Certaines cellules ont une police rouge, d'autres noires. La taille de la police n'est pas la même dans toutes les cellules.

Quand le résultat de la fonction recherche s'affiche, il n'en tient pas compte.
Je ne sais pas si c'est possible

Voir le fichier joint. Taper un numéro dans la case D4. Dans la case D5 s'affiche le résultat mais tous selon le format D5

Merci de votre aide

Tipiwa

 

[tipiwa]

Re : afficher le format d'origine avec la fonction recherche

voici le fichier

 

[BOISGONTIER]

Re : afficher le format d'origine avec la fonction recherche

Bonsoir,

Voir PJ

Récup présentation

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([d4:d4], Target) Is Nothing And Target.Count = 1 Then
     p = Application.Match(Target, Application.Index([data], , 1), 0)
     If Not IsError(p) Then Range("data").Cells(p, 2).Copy Target.Offset(, 1)
  End If
End Sub

JB
Formation Excel VBA JB

 

[Hulk]

Re : afficher le format d'origine avec la fonction recherche

Hello,

Ou peut-être comme ceci...

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i As Integer
    
    On Error Resume Next
    
    'For i = 1 To Range("A5").End(xlUp).Row 'De A1 à A5... plus rapide.
    
    For i = 1 To Range("A65536").End(xlUp).Row 'De A1 à dernière ligne pleine.
        If Cells(i, 1).Value = Cells(4, 4).Value Then
            Cells(i, 2).Copy Destination:=Cells(4, 5)
        End If
    Next i
    
End Sub