Fonction pour Doublons ET Saisie Auto

[jere]

Bonjour à tous,

Voici mon petit casse-tête :

J’ai deux colonnes
A
1 Bonjour
2 Au revoir
3 Ciao
4 Tchau
5 Arigato
6 Sayonara
7 Ciao
8 Ciao
9 Bonjour

Je vais devoir remplir la colonne B avec les traductions en anglais des mots qui sont dans la colonne A.

J’aimerai savoir s’il était possible de le faire automatiquement : Lorsque je rempli la case B1, la case B9 devrait se remplir aussi car le contenu dans la case A est identique. Pareil pour A3 avec A7 et A8.

Il faudrait donc une formule qui :
1) Repère les cases identiques
2) Si case identique, la case d’à coté se rempli avec le même contenu.

Pas forcement en une seule formule, si je dois jouer avec des copier/coller de valeurs c’est Ok.

Merci beaucoup pour votre aide,

Attention au verglas 😀

Jere

 

[fhoest]

Re : Fonction pour Doublons ET Saisie Auto

Bonjour jere et bienvenu,

regarde le site de notre ami boisgontier jacques superbe code
merci a lui ...
http://boisgontierj.free.fr/
A+

 

[Gorfael]

Re : Fonction pour Doublons ET Saisie Auto

Salut jere et le forum
Par macro :
Clic-droit sur nom de l'onglet => menu contextuel>>visualiser le code
Tu colles :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Plage As Range, Cel_1 As Range
Set Plage = Intersect(Target, Columns(1))
If Plage Is Nothing Then Exit Sub
For Each Cel In Plage
    If Cel <> "" Then
        Set Cel_1 = Columns(1).Find(Cel, after:=Cel, lookat:=xlWhole)
        If Not (Cel_1 Is Nothing) Then
            If Cel_1.Address <> Cel.Address And Cel_1.Offset(0, 1) <> "" Then Cel.Offset(0, 1) = Cel_1.Offset(0, 1)
        End If
    End If
Next Cel
End Sub

Et tu testes.
Attention : ça n'a pas un effet rétroactif, et je suis parti du principe que ça fonctionnait de haut en bas
A+