XL pour MAC Code vba pour recherche sur une seule ligne

[deudecos]

Bonjour à toutes et tous,
Je suis totalement incapable de retrouver le code vba qui me permet une recherche sur une ligne unique...
En gros, l’équivalent de :
Dim L As Integer, i As Integer
L = Sheets("Achats").Range("B65000").End(xlUp).Row
For i = 11 To L
If Sheets("Achats").Range("C" & i) = Sheets("Achats").Range("C6").Value Then
Sheets("Achats").Select
Range("C" & i).Select
Selection.EntireRow.Select
End If
Next
Mais pour rechercher sur la ligne plutôt que la colonne...
J'espère être assez clair.
Merci.

 

[job75]

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 :

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

A+

 

[sylvanu]

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

Un essai en ce sens en PJ avec :

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

 

[deudecos]

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

Un essai en ce sens en PJ avec :

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

Désolé, ça fait longtemps et j'ai complètement zappé les règles de base...
Merci en tout cas pour ta réponse, elle me convient parfaitement.
Bon dimanche.

 

[deudecos]

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 :

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

A+

Merci pour ta réponse, mais je ne suis pas assez "calé" pour l'adapter à mes besoins.
Bon dimanche.