Faire une croix si la colonne contient du texte

En gros ce que je veux faire en français :

si la colonne "nom colonne" contient "texte"

alors faire une croix dans la colonne "nom colonne"

Il faudrait que ça passe en revue toutes les lignes d'une colonne précise

Bonjour,

A essayer en B1 pour la cellule A1 puis recopier vers le bas

=SI(ESTTEXTE(A1);"X";"")

Si c'est pour une colonne entière, par exemple A :

=SI(ESTTEXTE(A:A);"X";"")

Bonjour, personnellement pas trop compris :

"si la colonne "nom colonne" contient "texte" alors faire une croix dans la colonne "nom colonne"

si on trouve du texte alors faire une croix dans la même colonne ? du coup on efface le texte lol ?

Xmenpl a écrit :

Bonjour, personnellement pas trop compris :

"si la colonne "nom colonne" contient "texte" alors faire une croix dans la colonne "nom colonne"

si on trouve du texte alors faire une croix dans la même colonne ? du coup on efface le texte lol ?

Bonjour,

Merci pour vos réponses !

En gros voici mon problème simplifié : je souhaiterai faire des croix dans la colonne qui s'appelle fromage lorsqu'il y a le mot fromage dans la colonne qui s'appelle ingrédients (celle-ci pouvant bouger de place)
Il est nécessaire que mon code soit en VBA et pas seulement une formule excel :/

RE,

Pourquoi pas par formule ?

Si colonne Ingrédient en A1 et Fromage en B1 alors copie cette formule en B2 :

=SIERREUR(SI(CNUM(CHERCHE($B$1;A2));"X";"");"")

VBA je ne sais pas faire

Bonjour toutes et tous

merci à Jb_ j'ai essayé d'adapter en VB

voir Feuil2 du classeur ci-joint, pas très jolie comme code mais bon çà à l'air de tenir

' https://forum.excel-pratique.com/excel/faire-une-croix-si-la-colonne-contient-du-texte-166049
Option Explicit
Dim i As Integer
Dim Cible As String

Sub Bouton1_Cliquer()
On Error Resume Next

For i = 2 To 3
Cible = Sheets("Feuil2").Range("b2").Value
If Cells(i, 2) Like Cible Then Cells(i, 2) = "X"
      Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(IF(VALUE(SEARCH(R1C2,RC[-1])),""X"",""""),"""")"
            Selection.AutoFill Destination:=Range("B2:B8"), Type:=xlFillDefault
Next i
End Sub

crdlt,

André

Merci pour vos aides précieuses !!