Microsoft 365 activer macro après collage

[pat66]

Bonjour le forum,

merci pour votre aide,

mon problème est le suivant :

Je souhaite que Feuil1.[D14] s'actualise selon que Feuil1.[D11] soit vide ou rempli grâce au bouton "reset" qui permet de couper ou coller alternativement la valeur initialement saisie dans Feuil1.[D11] , malheureusement je n'y arrive pas.

j'ai même essayé en ajoutant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$11" Then Feuil1.[D14] = Feuil2.[D17]
End Sub

un grand merci

Pat66

 

[vgendron]

bonjour

pourquoi utiliser du code alors qu'une formule suffit??
en D14

=SI(D11="";"";D11)

PS: je ne comprend pas bien le délire de ta macro reset..
avec la cellule D11, pour chaque cellule....

 

[vgendron]

voir PJ avec la macro "simplifiée"

 

[pat66]

Bonjour vgendron,,

sauf que tu oublies que si on colle "AF11" dans "D11" avec reset, D14 = "Feuil2 D17"

 

[vgendron]

ca veut dire quoi cette ligne de code dans l'évènement _change de la feuille ?

If Target.Address = "$C$11,$D$11" Then Feuil1.[D14] = Feuil2.[D17]


tu as sans doute remarqué que la condition n'est jamais remplie.. donc.. il n'y a jamais la copie..
question autrement posée: c'est censé faire quoi, à quel moment?

 

[vgendron]

en supprimant ton code dans l'èvènement _change

Sub Couper_Collerlot2()
Dim c As Range

    With Worksheets("Feuil1")
        If .Range("AF11").Value = "" And .Range("D11").Value = "" Then
            If MsgBox("Le deuxième lot n'a pas encore été renseigné ! " & vbLf & vbLf & "Souhaitez vous saisir les caractéristiques du deuxième lot ?", vbYesNo + vbInformation, "MB") = vbNo Then Exit Sub
                .Activate
                .Range("D11").Select
                Exit Sub
        End If
        If .Range("D11") <> "" Then
            .Range("D11").Copy Destination:=.Range("D11").Offset(, 28)
            .Range("D11").ClearContents
        Else
            .Range("AF11").Copy Destination:=.Range("AF11").Offset(, -28)
            .Range("AF11").ClearContents
        End If

        .Range("D14") = IIf(.Range("D11") <> "", Sheets("Feuil2").Range("D17"), "")

    End With
End Sub

bon.. après.. je comprend pas beaucoup mieux l'intérêt de la formule en D17 de ta feuille 2

 

[pat66]

Bonjour,

L'intérêt de la formule en D17 de la feuille 2, est que ce résultat vient d'un autre calcul plus complexe

Mais sinon ta solution solutionne mon problème

merci beaucoup