fonction If like

**facteur** · 04/08/2010, 16h11

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 :

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

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

**Jean-Philippe André** · 04/08/2010, 16h18

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

**facteur** · 04/08/2010, 16h41

Bonjour jpcheck,
Justement , c'est le gros prblème..

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 ?

**babaothe** · 04/08/2010, 16h53

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 :

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

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

**facteur** · 05/08/2010, 17h16

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 ?

**babaothe** · 05/08/2010, 18h20

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.

**facteur** · 05/08/2010, 22h05

Bonsoir babaothe,
La je suis completement perdu

.
J'ai bien suivie la mise en place de la procedure evenementielle. Mais cela ne fonctionne pas.

Je resume brievement mon soucis

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

**babaothe** · 05/08/2010, 22h15

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)

**facteur** · 05/08/2010, 22h39

Re,
J'ai quelques notions en VBA..

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

**babaothe** · 05/08/2010, 22h47

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

Code :

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

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