vba commande Find dans une colonne sur 2 conditions

Bonjour à toutes et tous,

Je sèche après plusieurs tentatives pour faire ma commande VBA. Dans la colonne G j'ai des commentaires textes pour lesquels je cherche le mot Femme ou Homme. Si dans le commentaire il y a le terme femme alors je remplace la phrase entière par femme. Si dans le commentaire il y a le terme homme alors je remplace la phrase entière par homme. Je cherche à exécuter cette macro de la deuxième ligne à la dernière non vide.

Voici mes deux essais non concluant :

Code:

---

1 2 3 4 5 6 7 8 9

Dim av, y With Sheets("Feuil1") Dim DerniereLigne As Long DerniereLigne = Range("G" & Rows.Count).End(xlUp).Row For y = 2 To DerniereLigne If Range("G" & y).Find("Femme") Is Nothing Then Range(("G" & y), 7) = "Homme" Else: Range(("G" & y), 7) = "Femme" Next End With

---

Merci de votre aide.

KASMINATOR Genesis:ptdr:

Bonjour,

ligne corrigée

Code:

---

If Not Range("G" & y).Find("Femme") Is Nothing Then Range("G" & y) = "Homme" Else: Range("G" & y) = "Femme"

---

Cdlt

Petit détail : je ne vois pas trop ce que peut représenter Range(("G" & y), 7) ???
Je vais supposé que le ",7" est en trop.

Le ":" après le "Else" est en trop.


Pour ce qui est de ton problème :
Find sert à chercher une cellule dans une plage.

Pour chercher une chaine de caractère à l'intérieur d'une autre chaine, on utilise la fonction InStr().

Code:

---

If InStr(Cells(y, "G"),"Femme") = 0 Then Cells(y, "G") = "Homme" Else Cells(y, "G") = "Femme"

---

Bonjour,

J'ajouterais l'instruction possible

Code:

---

Iif

---

Que dois-je dire de plus que Merci et merci beaucoup !

Vous avez réussi à bien m'aider pour le coup.

Je vous souhaite à tous un très bon week-end ensoleillée :)

:P:P:P