cerhu > microsoft.* > microsoft.vb

KASMINATOR (21/03/2019, 13h52)
Bonjour à toutes et tous,

Je sèche après plusieurs tentatives pour faire ma commande VBA. Dans la colonn
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èr
par femme. Si dans le commentaire il y a le terme homme alors je remplace l
phrase entière par homme. Je cherche à exécuter cette macro de la deuxième lign
à la dernière non vide.

Voici mes deux essais non concluant :

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
Jc (21/03/2019, 16h10)
KASMINATOR a émis l'idée suivante :
[..]
> 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


N'aurait-il pas mieux utiliser "microsoft.public.fr.excel" ?
Si je comprends bien, les termes ""Femme" ou "Homme" se situe dans la
colonne G soit la 7ème.
dans ce cas j'aurais tendance à boucler uniquement sur les cellules de
la colonne 7.
For y = 2 To DerniereLigne
If cells(y,7).Find("Femme") Is Nothing Then cells(y,7) =
"Homme" Else: cells(y,7) = "Femme"
Next

Eventuellement à la place de
cells(y,7).Find("Femme").Find("Femme") Is Nothing
mettre
instr(cells(y,7),"Femme")=0
et de même pour Homme

Pas essayé
Discussions similaires
Commande find

[VBA] Recherche d'une cellule dans une colonne avec Find

Fonction VBA .Find dans colonne cachée

Commande FIND


Fuseau horaire GMT +2. Il est actuellement 05h46. | Privacy Policy