comment selectionner

[Hugues]

Bonjour le forum,

J'ai un souci dans une boucle et je ne trouve pas la syntaxe afin de selectionner les cellules qui contiennent 'Total du compte'.
J'ai commencé mais je n'arrive pas à finir.

Sub mise_en_forme()
Dim i as integer
For i = 3 To 1500
If Range('a' & i) ' contient 'Total du compte' Then
Rows('i:i').Select
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If
Next i
End Sub

Merci d'avance pour le coup de main
Hugues

 

[jacques]

bonsoir,

je ne comprends pas la ligne :
If Range('a' & i) ' contient 'Total du compte' Then
Recherches tu 'Total du Compte' ou un nombre dans A&I ?
s'il s'agit de l'expression 'Total du compte' remplace contient par .Value =

Jacques

 

[Hugues]

Bonsoir Jacques
Ce que je recherche ce sont toutes les cellules qui commencent par le texte 'total du compte ....' entre la ligne 3 jusqu'à la ligne 1500.
En effet total du compte est suivi par le N° de compte EX 'Total du compte 110 000'; Total du compte 115 000' ...

Merci par avance

 

[Jacques]

ceci devrait de convenir, à condition que tu ais bien respecté l'écriture du début des cellules dans lesquelles tu fais la recherche, c'est à dire 'Total du compte'

Sub mise_en_forme()
Dim i as integer
Dim cherche As String
For i = 3 To 1500
cherche = left(Range('A' & I).Value,15)
If Cherche = 'Total du compte' Then
Rows('i:i').Select
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If
Next i
End Sub

en espérant te donner satisfaction

Bonne soirée
Jacques

 

[rachel52]

Bonjour,

Essaie ce nouveau code et ça devrait fonctionner !

Sub mise_en_forme()
Dim i As Integer
For i = 3 To 20
If Cells(i, 1).Value = 'Total du compte' Then
Rows(i).Select
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If
Next i
End Sub

 

[porcinet82]

Bonsoir a tous,

J'arrive apres la bataille, donc c'est beaucoup plus facile d'apporter quelques sujections de plus.
moi, je modifierai la macro de Jacques (j'espere qu'il ne m'en voudra pas!!!) d ela manière suivante:

Sub mise_en_forme()
Dim i As Integer

For i = 3 To 1500
    If LCase(Cells(i, 1).Value) = 'total du compte' Then
        Rows(i).Select
        Selection.Font.ColorIndex = 3
        Selection.Font.Bold = True
    End If
Next i
End Sub

En fait le code Lcase permet de mettre la chaine de caractère d'une cellule en minuscule, ce qui permet de ne pas tenir compte de la case. Si par exemple, dans une de tes cellules tu as 'TOTAL du compte' avec Lcase, la macro te surlignera quand meme ta ligne.

Voili voilou,

@+

 

[Hugues]

Merci Jacques pour ta réponse.
Bonne soirée

Hugues