Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction pour Doublons ET Saisie Auto

  • Initiateur de la discussion Initiateur de la discussion jere
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jere

Guest
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
 
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 :
Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…