XL pour MAC Sur Mac : changer une valeur dans une colonne A en fonction d'une table de correspondance (B et C)

[cloum1]

Bonjour la question a déjà été posée mais les solutions proposées en VBA ne fonctionnent pas peut être parce que je suis sur mac
Je joins mon fichier. La colonne A droite être modifiée e fonction de la table B C

Merci beaucoup si vous avez une idée !

 

[djidji59430]

La colonne A droite être modifiée e fonction de la table B C

Ça sert a quoi ? que doit on trouver ?
Tu ne peux pas faire un exemple a la main ?

Crdlmt

 

[mapomme]

Bonsoir, @cloum1, @djidji59430,

On ne peut pas utiliser la structure "dictionary" avec MAC.
Une version basé sur une structure "collection".
Si un élément de la colonne est absent de la colonne B alors on conserve la valeur de la colonne A.

Le code est dans le module de code de la feuille "Feuil1":

Sub test()
Dim t, c As New Collection, i&, x
   t = Range("a1").CurrentRegion.Resize(, 3)
   For i = 2 To UBound(t)
      If t(i, 2) <> "" Then c.Add Item:=t(i, 3), Key:=t(i, 2)
   Next i
   On Error Resume Next
   For i = 2 To UBound(t)
      x = Empty: x = c(t(i, 1))
      If Not IsEmpty(x) Then t(i, 1) = x
   Next
   Range("a1").CurrentRegion.Resize(, 3) = t
End Sub

 

[Staple1600]

Bonsoir le fil

[aparté à caractère informatif]
=>cloum1
je t'informe que mapomme a informé ma pomme qui avait répondu à ta pomme au sujet du code de mapomme.
C'est plus simple de créer ses propres discussions pour ses propres discussions, sinon bonjour les pépins

[/aparté à caractère informatif]