Discussion :

[KASMINATOR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ARTURO83]

Bonjour,

ligne corrigée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cdlt

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour,

J'ajouterais l'instruction possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Iif

[KASMINATOR]

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