fonction If like

Bonjour,
je souhaiterais améliorer un programme en inserant la fonction "If..like....".

Lorsque la macro est lancée, le programme fonctionne :
si A2 contient 69 alors B2= ain-rhone etc..

Le soucis est :
Aprés que la macro soit lancée, si je desire changer le contenu de la cellule A2, qui contient non plus "69" mais "26", la cellule B2 reste toujours avec le terme "ain-rhone" alors que je voudrais que que le contenu de la cellule B2 change également et contient alors le nom "drome-ardeche" comme le stipule la macro ci dessous.

Pourriez vous m'aider ?
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub test() Dim ligFin As Long Dim Macell As Range   ligFin = Range("A2").End(xlDown).Row   For Each Macell In Range("A2:A" & ligFin) If Macell Like "*69*" Then Macell.Offset(0, 1).Value = "ain-rhone" If Macell Like "*1*" Then Macell.Offset(0, 1).Value = "ain-rhone" If Macell Like "*26*" Then Macell.Offset(0, 1).Value = "drome -ardeche" If Macell Like "*38*" Then Macell.Offset(0, 1).Value = "isere" If Macell Like "*42*" Then Macell.Offset(0, 1).Value = "loire" If Macell Like "*39*" Then Macell.Offset(0, 1).Value = "jura" If Macell Like "*71 ctc*" Then Macell.Offset(0, 1).Value = "saone et loire 71" If Macell Like "*73 ctc*" Then Macell.Offset(0, 1).Value = "svoie 73" If Macell Like "*74 ctc*" Then Macell.Offset(0, 1).Value = "haute savoie 74" If Macell Like "*national*" Then Macell.Offset(0, 1).Value = "national" If Macell Like "*nyk*" Then Macell.Offset(0, 1).Value = "nyk"   Next Macell   End Sub

---

salut,
attention, la fonction
Macell.Offset(0, 1)
va se deplacer de la colonne A a la colonne B, donc normal que si tu passes de A2 a A3, tu pointeras sur B3 a la place de B2...

Dis moi si j'ai mal compris ta problematique :koi:

Bonjour jpcheck,
Justement , c'est le gros prblème..:cry:
Le programme ne sais pas modifier ce genre de chose. Je souhaiterais rajouter une ligne qui permettrait, apres que la macro soit lancée,
que le contenu de la cellule B2 soit toujours en correlation avec le contenu de la cellule A2 et que le contenu de la cellule B3 soit également en correlation avec le contenu de la cellule A3 ..etc
Est ce difficile ?:oops:

salut

je ne suis pas certain de t'avoir bien compris.
Ce qu'il me semble, c'est que tu cherches à faire ceci, à adapter et compléter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then traduire Target End Sub   Private Sub traduire(ByVal quoi As Range) donnees = Array("69", "1", "26", "38", "42", "39", "71 ctc", "73 ctc", "74 ctc", "national", "nyk") trads = Array("ain-rhone", "ain-rhone", "drome-ardeche", "isere", "loire", "jura", "saone et loire 71", "savoie 73", "haute savoie 74", "national", "nyk") For i = 0 To UBound(donnees) If quoi.Value Like "*" & donnees(i) & "*" Then quoi.Offset(0, 1) = trads(i) Exit Sub End If Next End Sub

---

Si tel est d'ailleurs bien le cas, il sera encore plus adroit de faire une fonction personnalisée

Salut babaothe,

J'ai saisie cette procédure evenementielle. mais comme je ne suis pas un as de VBA , comment enclencher cette procédure : dois je créer un bouton userform ?:roll:

re

euh...
il s'agit là d'une procédure évènementielle qui intervient à chaque modification des données de ta feuille .
Va donc dans VBA et clique sur le module de ta feuille dans ton projet VBA. dans la colonne gauche : choisis WorkSheet, puis choiisis, dans la colonne de droite : "Change". Le reste est évident.

Bonsoir babaothe,
La je suis completement perdu 8O.
J'ai bien suivie la mise en place de la procedure evenementielle. Mais cela ne fonctionne pas.

Je resume brievement mon soucis :roll:
J'ai un tableau avec deux colonnes A et B.
Je desire mettre en place une procedure evenementielle qui me permetterait d'une part,
1) d'afficher dans la cellule B2 un nom en fonction d'un terme contenu dans cellule A2 et d'autre part,
2) que cette procedure modifie automatiquement le contenu de la cellule B2 si je change ulterieurement le contenu de la cellule A2.
Meme chose pour la cellule B3 en fonction de B3..etc

Merci :roll:

désolé, mais je ne vois vraiment pas quoi te dire de plus que les précisions que je t'ai déjà données !
J'ajoute que (déjà dit plus haut) le choix de la création d'une fonction personnalisée serait encore plus adroit.
Elle te permettrait de l'utiliser comme "formule" dans tes cellules de "traduction".
Si tu la veux, je te la fais. Encore te faudra-t-il comprendre comment l'écrire dans un module bas (donc posséder un minimum de connaissances en VBA)

Re,
J'ai quelques notions en VBA..:D
Et si la création d'une fonction personnalisée est plus judicieuse car comme tu le dis elle me permetrait alors de l'utiliser comme "formule" dans mes cellules de "traductuin" alors je suis preneur

voilà donc ta fonction personnalisée, à écrire dans u_n module.

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Function traduire(ByVal quoi As String) As String donnees = Array("69", "1", "26", "38", "42", "39", "71 ctc", "73 ctc", "74 ctc", "national", "nyk") trads = Array("ain-rhone", "ain-rhone", "drome-ardeche", "isere", "loire", "jura", "saone et loire 71", "savoie 73", "haute savoie 74", "national", "nyk") For i = 0 To UBound(donnees) If quoi Like "*" & donnees(i) & "*" Then traduire = trads(i) Exit Function End If Next End Function

---

dans la première ligne (disons la 2, par exemple) de ta colonne B, la formule est donc :

Code:

---

= traduire(A2)

---

puis la copier et la coller sur chaque ligne concernée de la colonne B
Voilà !

re babaothe
Ta fomule personnalisee fonctionne a merveille :ccool:.
Je te remercie de ce coup de main.

encore une petite question babaothe:roll:
Si la colonne B devient la colonne AA...la formule ne fonctionne plus

C'est Ok babaothe.
J'ai fait une erreur de frappe.:mrgreen:
Bonne nuit a toi et merci encore