XL pour MAC Code vba pour recherche sur une seule ligne

sylvanu à dit:

Bonjour Deudecos, Job,
Utilisez la balise </> pour le code c'est quand même plus lisible.

Un essai en ce sens en PJ avec :

VB:

Sub Essai()
Dim DC As Integer, C As Integer, L As Integer, i As Integer
L = 3                                                   ' Ligne à analyser
PC = 1                                                  ' Premiere colonne concernée
DC = Cells(L, Columns.Count).End(xlToLeft).Column       ' Dernière colonne non vide
For i = PC To DC
    If Sheets("Achats").Cells(L, i) = Sheets("Achats").Range("C6").Value Then
        Sheets("Achats").Select
        Cells(L, i).Select
        Selection.EntireColumn.Select                   ' Selection de la colonne
    End If
Next
End Sub

Cliquez pour agrandir...

job75 à dit:

Bonjour deudecos, le forum,

Je comprends que vous voulez rechercher la valeur de la cellule active sur la même ligne.

Le plus simple est d'utiliser la fonction Find :

VB:

Sub Rechercher()
ActiveCell.EntireRow.Find(ActiveCell, ActiveCell, xlValues, xlWhole).Select
End Sub

A+

Cliquez pour agrandir...