Un même mot dans 2 colonnes...

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

Salut Luc

Donne moi le code de ton Worksheet_Change

Je vais regarder

Mytå

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

ouah ca c'est de la réponse rapide!!! 😎


Private Sub CommandButton1_Click()

Dim wshFeuille As Worksheet

' parcourir toutes les feuilles du classeur
For Each wshFeuille In Sheets
With wshFeuille
' si ce n'est pas Feuil1
If .Name <> "Feuil1" Then
' effacer contenu et formattage des plages spécifiées
Application.Union(.Range("C:R"), .Range("V:Z"), .Range("S4:U4")).Clear
End If
End With
Next

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Workbooks("Pronos Daily Donkey1bis.xls").Activate
Sheets("Feuil1").Select

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:=" ~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:=" † ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Range("A1").Select
Application.ScreenUpdating = True

End Sub

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

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

Re Luc

A tester si cela convient


Mytå

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

Ben...... je cherche un truc à critiquer mais je vois pas!!!! 😀

Franchement c'est exactement ce que je veux!!! 😎

Merci beaucoup pour ton aide 😉

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

Re Luc et les autres,

Il te suffit de copier la partie du code dans Worksheet_Change à la suite de ton code actuel.
Exemple:
Si ton Worksheet_Change est comme ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
If (bla bla bla ...) then
else
end if
End sub

tu copies la partie du nouveau code comme suit:
Private Sub Worksheet_Change(ByVal Target As Range)
If (bla bla bla ...) then
else
end if
'Nouvelle partie du code
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
Workbooks("Pronos Daily Donkey1bis.xls").Activate
Sheets("Feuil1").Select
Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:=" ~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=" † ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True
End sub

Ça devrait fonctionner.

PS: Merci à tous pour avoir fait le suivi sur ce fil, excuse moi Luc, j'étais à l'extérieur dons impossible de suivre le fil.

Tout est bien qui fini bien

Ciao

@+++
Xtian_Québec

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

OUPPS !!!🙁

Je n'avais pas remarqué qu'il y avait plus d'une page à ce fil...L'important c'est que le problème soit résolu😉 ...Bravo Mytå!!!🙂

Xtian_Québec

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

je suis d'accord vous avez bien assuré!!! 😉