XL 2013 probleme sur Worksheet_Change

[FifiSt]

bonjour,

je suis venue vous demander de l'aide après des heures de recherches ….rien
impossible de faire fonctionner mon Worksheet_Change
je souhaite lorsque l'on complete ou modifie les onglets projets A ou B.;;;
que cela modifie mon onglet LISTE DES REF

Je vous joint mon fichier
Merci beaucoup pour toute l'aide

 

[FifiSt]

une petite precision si on peut mettre la procédure en sub classique je préfèrerais …. pour l'affecter à un bouton

 

[sylvanu]

Bonjour Fifist,
J'ai l'impression que vous traitez les Worksheet_Change à l'envers.

Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim xFound As Boolean
'Seule la zone est concernée
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub

Ici vous faites le traitement si un changement a eu lieu n'importe où sauf en colonne D.
Je pense que c'est le contraire que vous vouliez faire.

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
    MsgBox "Vous avez cliqué sur la cellule " & Target.Address
End If
End Sub

Ici la MsgBox s'ouvre uniquement si on clique dans la colonne D.D ( voir PJ )

 

[jmfmarques]

Bonjour
Je n'ai pas (je ne le fais jamais) ouvert le classeur joint, mais :
- quitter si pas d'intersection ou continuer si intersection est la même chose
- je vois par contre (copie de code montrée par silvanu) un "on error resume next" qui est très probablement la cause de maux du fait de lignes de code plus bas ...

 

[job75]

Bonjour FifiSt, sylvanu, jmfmarques,

La feuille source étant la feuille active, exécutez cette macro :

Sub Transfert()
Dim F As Worksheet, i As Long, j As Variant
Set F = Sheets("LISTE DES REF")
With ActiveSheet.UsedRange
    For i = 8 To .Rows.Count
        If .Cells(i, 1) <> "" And Not .Cells(i, 1).HasFormula Then
            j = Application.Match(.Cells(i, 1), F.Columns(1), 0)
            If IsNumeric(j) Then
                F.Cells(j, 20) = .Cells(i, 4)
                F.Cells(j, 24) = .Cells(i, 5)
                F.Cells(j, 25) = .Cells(i, 6)
            End If
        End If
    Next
End With
End Sub

A+