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

Probleme avec :Target.Offset(, 1)

Magickf

XLDnaute Nouveau
Bonjour au Forum et salutation distingué à Tibo,

Voici mon simple proble:

Le code suivant est déréglé ( imparfait)

Je veux que lorsque en D Feuil1 est pareil à A en en Feuil2
Que H en feuil2 sois copié en K Feuil1

Pour l'instant tou fonction MAIS H est copié en K et malheureusement en E.

Quelqu'un pourrais me suprimer la portion du E et m'expliquer svp

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("D265536"))
If Target Is Nothing Then Exit Sub
Target.Offset(, 1).FormulaR1C1 = "=IF(COUNTIF(Feuil2!C1:C8,REPLACE(SUBSTITUTE(RC[-1],"" "",""""),2,,"" "")),VLOOKUP(REPLACE(SUBSTITUTE(RC[-1],"" "",""""),2,,"" ""),Feuil2!C1:C8,8,0),"""")"
Target.Offset(, 1) = Target.Offset(, 1).Value 'remplace la formule par la valeur
End Sub
 

Pièces jointes

  • doublons.xls
    35.5 KB · Affichages: 83
  • doublons.xls
    35.5 KB · Affichages: 103
  • doublons.xls
    35.5 KB · Affichages: 103

ROGER2327

XLDnaute Barbatruc
Re : Probleme avec :Target.Offset(, 1)

Bonsoir Magickf
Peut-être ceci ?
Code:
[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
   Set Target = Intersect(Target, Range("D2:D65536"))
   If Target Is Nothing Then Exit Sub
   Target.Offset(, 7).FormulaR1C1 = "=IF(COUNTIF(Feuil2!C1:C8,REPLACE(SUBSTITUTE(RC[-7],"" "",""""),2,,"" "")),VLOOKUP(REPLACE(SUBSTITUTE(RC[-7],"" "",""""),2,,"" ""),Feuil2!C1:C8,8,0),"""")"
   Target.Offset(, 7) = Target.Offset(, 7).Value 'remplace la formule par la valeur
End Sub[/B][/COLOR]
ROGER2327
#2657
 

ROGER2327

XLDnaute Barbatruc
Re : Probleme avec :Target.Offset(, 1)

Re...
(...)
Roger.....il y a t-il quelque chose que je ne comprend pas?
(...)
Faisons le point. Il se trouve que nous (Excel-lent, Jean-Marcel, job75, et moi) avons répondu à votre problème sous des formes diverses dans cette discussion :


Vous m'avez fait parvenir hier un message me disant que vous n'aviez pas vu la solution que je proposais suite à votre demande. Vous ne m'en voudrez pas d'en faire part à tous nos amis afin, je l'espère, de sortir d'un quiproquo fâcheux.
Vous m'écriviez ceci :


Ce message est tout à votre honneur et c'est pourquoi, bien qu'ayant déjà répondu à votre problème, je renouvelle l'envoi de la pièce jointe, modifiée pour tenir compte de votre nouvelle demande.

Cela dit, je comprends parfaitement l'agacement de job75, qui n'a pas eu connaissance de votre message, de voir sa contribution attribuée à Excel-lent.
Mais je sais aussi, pour avoir eu de nombreux et intéressants échanges avec lui, qu'il oubliera ce malheureux incident dès lors qu'il lira les éclaircissements que j'apporte ici.
Cordialement,
ROGER2327
#2659
 

Pièces jointes

  • Magickf_2659.zip
    11.5 KB · Affichages: 39
Dernière édition:

Magickf

XLDnaute Nouveau
Re : Probleme avec :Target.Offset(, 1)

Regardez.....je vais tout simplement dire désolé.

Merci de votre solution....je vais m'y atardé demain matin sans faute.....

Laissons le futur présager ......

Bonne soirée à tous et Merci pour l'aide apporté à mes projet.......
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Re : Probleme avec :Target.Offset(, 1)

Bonjour le fil

J'ai fait du ménage sur le fil et gardé que les réponses et le dernier message de Roger

Merci de respecter l'ambiance du forum, et même si des erreurs sont commises, sachons mettre les formes pour le dire sans être agressif

Merci à tous
 

Discussions similaires

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