Selection de cellules

Bonjour,

Ci-joint un fichier T56 avec une feuille contenant1 tableau.

Est-il possible de sélectionner toutes les cellules contenant la lettre « K » uniquement.

Merci de votre aide.

Bonjour,

Vous pouvez utiliser ce Sub :

C'est l'équivalent de faire un CTRL+F et sélectionner tous les résultats.

Sub TrouverTout()

  Dim tbl As Range
  Set tbl = ThisWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").DataBodyRange

  Dim listCells As Range, foundC As Range, firstAdr As String

  Set foundC = tbl.Find(What:="K")
  If Not foundC Is Nothing Then
    Set listCells = foundC
    firstAdr = foundC.Address
    Do
      Set listCells = Union(listCells, foundC)
      Set foundC = tbl.FindNext(foundC)
    Loop Until (foundC Is Nothing) Or (firstAdr = foundC.Address)
  End If

  listCells.Select
End Sub

Merci bien!!!!

Merci pour votre retour, heureux de pouvoir aider. Bonne journée.