Un même mot dans 2 colonnes...

[Luc Lucasse]

Bonsoir à tous,

Voila mon problême:

1er colonne
A5 - D5
A6 - D6
A7 - D7
A8 - D8
A9 - D9
A10 - D10
...

2iéme colonne
E29 - I29
E30 - I30
E31 - I31
E32 - I32
E33 - I33
E34 - I34
E35 - I35
E36 - I36
E37 - I37
...



En fait je veux que si un mot de la colonne A est égale à un mot de la colonne E alors la valeur correspondante dans la colonne I aille s'écrire dans la colonne D correspondante

Exemple:
Si E32=A9 alors la valeur de la case I32 ira s'écrire en D9.

Est ce que quelqu'un peut me donner un coup de main??

Merci pour votre aide

 

[Mytå]

Re : Un même mot dans 2 colonnes...

Salut Luc

Pas sur d'avoir saisi

en D5=RECHERCHEV(A5;$E$29:$I$37;5;FAUX)

à recopier vers le bas

Mytå

 

[Xtian_Québec]

Re : Un même mot dans 2 colonnes...

Salut Luc, Mytå, le forum,

Autre solution avec macro à adapter selon tes besoins.Voir pièce jointe.

Xtian_Québec

 

[Luc Lucasse]

Re : Un même mot dans 2 colonnes...

Bonjour à tous,

Merci pour votre aide, c'est bien ce que je veux mais à la place du bouton recherche je voudrai une recherche automatique.
Est ec que c'est possible??

Merci pour votre aide

 

[Xtian_Québec]

Re : Un même mot dans 2 colonnes...

Re Luc
Mais oui c'est possible. Voir en pièce jointe version 2.
Dès que tu effectues un changement dans le range A1 à A1000, le code est activé automatiquement. J'ai utilisé le code Worksheet_Change.

Voilà

Xtian_Québec

 

[ODVJ]

Re : Un même mot dans 2 colonnes...

Bonjour à tous,

Luc, pourquoi ne prends-tu pas la formule de Myta?
elle correspond à ce que tu souhaites me semble-t-il et la mise à jour est automatique.

A+

 

[Xtian_Québec]

Re : Un même mot dans 2 colonnes...

RE Tous,
ODVJ a raison. J'ai préparé le petit code afin de complémenter tes connaissances. C'est vrai qu'un formule fait souvent très bien le travail au lieu d'utiliser des codes.

À toi de choisir...

Merci

Xtian_Québec

 

[Luc Lucasse]

Re : Un même mot dans 2 colonnes...

Bonjour le forum,

Merci pour votre aide.

Est ce qu'il est possible de l'adapter de facon suivante:

Si le mot en colonne A de la feuille 1 est égale à un des mots situé dans la colonne C de toutes les feuilles du classeur alors le chiffre écrit dans la colonne T de cette feuille ira s'écrire dans la colonne E de la feuille 1 en face du mot

Exemple:
Le mot se trouve en A10 de la feuille1 et il est égale au mot en C8 de la feuille4 alors le chiffre 17 de la case T8 de la feuille 4 ira s'écrire dans la case E10 de la feuille1.

Merci pour votre aide

 

[Luc Lucasse]

Re : Un même mot dans 2 colonnes...

Bonsoir,

Un petit UP

 

[Mytå]

Re : Un même mot dans 2 colonnes...

Salut le Forum

A insérer dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Feuille As Object
Dim MaFeuille As String
Dim Cherche
 
MaFeuille = ActiveSheet.Name
 
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
For Each Feuille In Worksheets
If Feuille.Name <> MaFeuille Then
With Feuille.Range("C:C")
Set Cherche = .Find(Sheets(MaFeuille).Range(Target.Address), LookIn:=xlValues)
If Cherche Is Nothing Then
GoTo ExistePas
Else
Target.Offset(0, 4) = Cherche.Offset(0, 17)
Exit Sub
End If
End With
End If
 
ExistePas: Next Feuille
Target.Offset(0, 4) = ""
MsgBox ("Echec de la recherche")
End If
End Sub

Mytå

 

[Luc Lucasse]

Re : Un même mot dans 2 colonnes...

Merci pour ta réponse,

Est ce qu'il y a des expressions à remplacer pour que ca marche??

Surement "mafeuille" a changer en "Feuil1"

Merci

 

[Mytå]

Re : Un même mot dans 2 colonnes...

Re Luc Lucasse

Non rien à changer.

Le code va gérer lui-même ta feuille active

MaFeuille = ActiveSheet.Name

Mytå

 

[Luc Lucasse]

Re : Un même mot dans 2 colonnes...

Merci pour ton aide mais impossible de faire marcher ce programme!!!

Est ce que tu peux me dire comment tu fais?

Merci

 

[Mytå]

Re : Un même mot dans 2 colonnes...

Salut Luc,

Regarde le fichier en pièce jointe, le code de la macro est sur
le module de la feuille 1.

Mytå

 

[Luc Lucasse]

Re : Un même mot dans 2 colonnes...

Bonsoir le forum,

Merci pour ta réponse mais le problême c'est que dans ma feuille 1 j'ai déjà un "Worksheet_Change(ByVal Target As Range)" et vu qu'on ne peut pas en mettre 2, est ce qu'il est possible de remplacer cette phrase par autre chose?

Merci pour ton aide