Champ de recherche VBA Résolu

Question

Bonjour tout le monde,

Voilà je viens vers vous, car je rencontre un problème avec ma zone de recherche VBA je vais essayer d'être claire au maximum afin que vous puissiez m'aider.
En A2 j'ai concaténé B2 et C2 afin d'avoir le nom et prénom dans une même cellule. En D3 j'ai une formule : =SI(ESTVIDE(D2);"";D2+1) afin d'obtenir un nouveau numéro de dossier à chaque saisie d'un salarié. En E2 j'ai une créer une formule afin que tous les 15 dossiers un nouveau numéro soit calculé. Ci-dessous ma VBA. Elle fonctionne très bien et j'ai bien le nom et prénom des salariés qui s'affichent dans ma ListBox sauf que je souhaiterais qu'en plus de l'affichage du nom et prénom apparaissent le numéro du dossier (D3) et le numéro de la boite à archive (E2). Je souhaiterais avoir aussi les cellules des colonnes D et E en fond vert comme pour ma première colonne. Je suis novice en VBA mais je pense que ce n'est pas grand-chose, mais quand on ne sait pas, on ne sait pas ^^. J'espère que mes explications ne sont pas trop farfelues. J'attends vos retours avec impatience merci par avance pour celui ou ceux qui voudront bien m'accorder quelques minutes.

Option Compare Text

Private Sub TextBox21_Change()

Application.ScreenUpdating = False

Range("A2:A1000").Interior.ColorIndex = 2
    ListBox1.Clear
        
    If TextBox21 <> "" Then
    
        For ligne = 2 To 1000
            If Cells(ligne, 1) Like "*" & TextBox21 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
            End If
            
            Next
    End If
    
End Sub

Thorak83 · Answer

Bonjour
Essayez donc cela :

Private Sub test()
  Application.ScreenUpdating = False
  Range("A2").Select ' on se positionne en A2
  ListBox1.Clear

  If TextBox21 <> "" Then
    Do While ActiveCell.Value <> "" ' tant que la cellule active n'est pas vide on entre dans la boucle
      If ActiveCell.Value Like "*" & TextBox21 & "*" Then
        ActiveCell.Interior.ColorIndex = 43               ' cellule active en vert
        ActiveCell.Offset(0, 3).Interior.ColorIndex = 43  ' cellule active décallé de 3 colonnes en vert
        ActiveCell.Offset(0, 4).Interior.ColorIndex = 43  ' cellule active décallé de 4 colonnes en vert
      End If
      ActiveCell.Offset(1, 0).Select ' on descend d'une ligne
    Loop
  End If
End Sub

Cordialement

pijaku · Answer

Bonjour,

Essayez ceci :
Option Compare Text

Private Sub TextBox21_Change()

Application.ScreenUpdating = False

Range("A2:A1000").Interior.ColorIndex = 2
    ListBox1.Clear
    'ListBox multicolonnes :
    ListBox1.ColumnCount = 3
        
    If TextBox21 <> "" Then
    
        For ligne = 2 To 1000
            If Cells(ligne, 1) Like "*" & TextBox21 & "*" Then
                'colore toute la plage de A à E
                Range("A" & ligne & ":E" & ligne).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
                'Ajout des données des colonnes D et E
                ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 4)
                ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(ligne, 5)
            End If
            
            Next
    End If
    
End Sub

Champ de recherche VBA

2 réponses

Discussions similaires

Newsletters