Code VBA pour parcourir un ligne Excel et trouvé un paramètre.

[cyrille]

Bonjour,

Mon problème est assez simple je pense mais je débute en VBA.

J'ai une feuille. Je voudrais pourvoir parcourir une ligne précise afin de trouvé une chaine de caractères précise et unique sur la ligne mais pouvant être dansn'importe qu'elle colonne. Puis il faut que j'arrive ensuite à sélectionner la colonne ou je me trouve.

Après je mets ce code dérrière :

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=1
End If


Mon code pour l'instant et celui ci mais je sais que ca peut pas fonctionner :

Sub Macro6()

Dim X As Range

For Each X In Sheets("Feuil2").Range("A2:Z2")
If X.Value = ddd Then
Columns("'X':'X'").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=1
End If
Next X

End Sub

 

[Alain]

Bonjour,



Tu peux essayre avec çà :

Sub Macro6()

Dim X As Range
Sheets("Feuil2").Select
ActiveSheet.UsedRange.Select
For Each X In Selection
If X.Value = "ddd" Then
X.EntireColumn.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=1
End If
Next X
End Sub


@+

 

[cyrille]

Juste je vois pas où mettre la ligne que je veux sélectionné?

Comme faire et ou le mettre?

 

[Alain]

Rebonjour,



Je ne comprends pas ta question.

Il suffit simplement de remplacer ton code par celui que je t'ai mis précédemment.


@+

 

[cyrille]

Euh... en faite j'ai rien dit ca semble bien marché.

Merci