SI cellule contiens une texte spécifique insérer une ligne

Bonjour,

Dans une cellule, le A68 s'il contiens un texte spécifique "Solde avant décision" je veux insérer une ligne, puis continuer avec une macro que j'ai mis en place, pour le moment je dois vérifier manuellement avant lancer le macro.

Pour le moment j'ai que ça comme code en macro pour insérer la ligne

Rows("68:68").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Bonjour,

Quelque chose comme ça ?

If InStr(1, Range("A68").Value2, "Solde avant décision") > 0 Then
   Rows("68:68").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If

bonjou philcashman, salut saboh12617,

@saboh12617, n'est ce pas

If InStr(1, Range("A68").Value2, "Solde avant décision",1) = 0 Then

Salut BsAlv,

J’ai compris “si la cellule contient X, alors insérer ligne”. Et pour moi InStr(1,Y, X) renvoie un nombre > 0 si elle trouve le texte X dans le texte Y, 0 sinon.

Donc le test me semble correcte non ? Ou j’ai mal compris. (et oui pour le 1 à la fin je ne l'ai pas mis mais il serait probablement utile)

InStr function (Visual Basic for Applications) | Microsoft Learn

Je confirme que la réponse est correcte, merci beaucoup pour cette solution Saboh12617

et merci pour toutes réponses

If InStr(1, Range("A68").Value2, "Solde avant décision") > 0 Then
Rows("68:68").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If

@Saboh12617,

mes excuses, j'ai réagi trop vite pour ce qui concerne le ">"

Ce "1" entre les parenthèses est pour les majuscules/miniscules