Bonjour à tous,
Je viens prendre conseil auprès de la communauté :
Je cherche à créer une fonction ou un module qui me permette de modifier automatiquement la valeur d'une cellule située entre A2:A3000.
L'idée est la suivante :
Si valeur cellule "A2" est égale à "F" ou " F " ou "F " ou " F" alors valeur cellule "A2" est égale à "Femme"
Si valeur cellule "A2" est égale à "H" ou " H " ou "H " ou " H" alors valeur cellule "A2" est égale à "Homme"
Si valeur cellule "A2" est égale à "M" ou " M " ou "M " ou " M" alors valeur cellule "A2" est égale à "Homme"
Si valeur cellule "A3" est égale à "F" ou " F " ou "F " ou " F" alors valeur cellule "A3" est égale à "Femme"
Si valeur cellule "A3" est égale à "H" ou " H " ou "H " ou " H" alors valeur cellule "A3" est égale à "Homme"
Si valeur cellule "A3" est égale à "M" ou " M " ou "M " ou " M" alors valeur cellule "A3" est égale à "Homme"
Et ainsi de suite jusqu'à la cellule "A3000".
J'avais pensé à ce type d'approche (malheureusement pas concluante):
Sub Worksheet_change(ByVal Target As Excel.Range)
On Error Resume Next
If Not Intersect(Target, [A2]) Is Nothing Then
If Target = "F" Then Range("A3").Value = "Femme"
If Target = " F" Then Range("A2").Value = "Femme"
If Target = " F " Then Range("A2").Value = "Femme"
If Target = "F " Then Range("A2").Value = "Femme"
If Target = "H" Then Range("A3").Value = "Femme"
If Target = " H" Then Range("A2").Value = "Femme"
If Target = " H " Then Range("A2").Value = "Femme"
If Target = "H " Then Range("A2").Value = "Femme"
If Target = "M" Then Range("A3").Value = "Femme"
If Target = " M" Then Range("A2").Value = "Femme"
If Target = " M " Then Range("A2").Value = "Femme"
If Target = "M " Then Range("A2").Value = "Femme"
End If
End Sub
Est-ce possible à réaliser ? Si oui, peut-on le faire pour l'ensenble de la colonne (excepté la cellule "A1") ?
La cellule "A1" sert de filtre pour créer après des TDCs.
Un grand merci pour vos idées !
La Ganache