Sélectionner ligne

Bonjour, je n'arrive pas à sélectionner la ligne entière ou je me situe. J'arrive à me position sur le bonne cellule mais après j'aimerais sélectionner la ligne entière.

Merci

ActiveCell.Offset(i2, 0).Select
Rows.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Bon,jour,

Rows(Selection.Row).Select

Mais évite de faire trop de sélection, cela ralenti le programme..

Je te conseille de faire l'insertion en une ligne

Rows(Selection.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

RemBabar

RemBabar a écrit :

Bon,jour,

Rows(Selection.Row).Select

Mais évite de faire trop de sélection, cela ralenti le programme..

Je te conseille de faire l'insertion en une ligne

Rows(Selection.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

RemBabar

Merci beaucoup, ça fonctionne parfaitement.

J'ai également une autre question, en fait j'ai un mot "bienvenue" dans plusieurs cellule mais je n'ai jamais le mot bienvenue seul, il est toujours accompagné. Par exemple en A2 j'ai "bienvenue à bord" or quand j'applique ma boucle, il ne trouveras jamais le mot bienvenue puisque il interprète la phrase entière.

Cela est-il possible de faire la recherche uniquement sur les premiers caractère de ma phrase donc sur les 9 premières lettres qui correspond au mot bienvenue ? J'ai cru voir qu'il y avait l'opérateur like mais je ne sais pas si cela est la bonne solution.

Merci

ActiveCell.Offset(i2) <> "bienvenue"

Re,

je vois 2 possibilitées :

If not ActiveCell.Offset(i2).value like "bienvenue*" Then

ou

If left(ActiveCell.Offset(i2), 9).value <> "bienvenue" then

Bonne soirée

RemBabar

RemBabar a écrit :

Re,

je vois 2 possibilitées :

If not ActiveCell.Offset(i2).value like "bienvenue*" Then

ou

If left(ActiveCell.Offset(i2), 9).value <> "bienvenue" then

Bonne soirée

RemBabar

Merci beaucoup

Avec plaisir !

RemBabar