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

Microsoft 365 activer macro après collage

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pat66

XLDnaute Impliqué
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
 

Pièces jointes

Dernière édition:
Solution
en supprimant ton code dans l'èvènement _change

VB: 
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)...
Trier par date Trier par votes
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?
 
Vote positif 0 Vote négatif
en supprimant ton code dans l'èvènement _change

VB: 
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
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
XL 2019 Améliorer voire accélérer une Macro
Réponses
6
Affichages
609
patricktoulon
I
  • Question Question
XL 2010 Transfert d'une variable d'un userform à une macro
Réponses
2
Affichages
1 K
Dudu2
  • Résolu(e)
Microsoft 365 au clic ou à la sélection la liste s'ouvre sans avoir à cliquer sur la flèche en bas
Réponses
6
Affichages
1 K
Usine à gaz
H
  • Question Question
XL 2010 rendre code vba rapide
2
Réponses
17
Affichages
2 K
Dranreb
  • Question Question
XL 2010 macro et mise a jour cellule
2
Réponses
16
Affichages
2 K
sylvanu
  • Résolu(e)
Microsoft 365 Remplacer une valeur saisie après recherche dans une liste sur un autre onglet
Réponses
4
Affichages
2 K
benoitoleron
Y
  • Question Question
XL 2010 Problème de MACRO VBA
Réponses
5
Affichages
836
Younnssssss
Y
Y
  • Question Question
XL 2016 masquer des colonnes en fonctions 2 dates
Réponses
4
Affichages
1 K
Younnssssss
Y
E
  • Question Question
VB Case
Réponses
4
Affichages
2 K
enzo_s
E
D
  • Question Question
problème itération/macro
Réponses
3
Affichages
1 K
didousama
D
Z
  • Question Question
Macro VBA, Actualisation d'un TCD
Réponses
1
Affichages
2 K
Regueiro
R
  • Question Question
Interdire dans la saisie dans une cellule non vide d'une colonne (clé primaire)
Réponses
3
Affichages
2 K
rcan7412
R
G
  • Question Question
Boucle If qui bugge [RESOLU]
Réponses
13
Affichages
1 K
Guy_L
G
A
  • Question Question
Supprimer des "0" s'il ni a pas d'infos
Réponses
8
Affichages
2 K
apdf1
A
S
  • Question Question
Appliquer la macro d'une selection multiple sur une colonne
Réponses
1
Affichages
1 K
spadou86
S
B
  • Question Question
Lier des plages de cellules de 2 feuilles différentes dans les 2 sens
Réponses
2
Affichages
3 K
BUX07
B
O
  • Question Question
Problème depuis l'ajout d'un workshhet pour exécuter une macro
Réponses
4
Affichages
784
orion2000
O
A
  • Question Question
VBA - Erreur variable envoi mail automatique
Réponses
1
Affichages
2 K
Paritec
O
  • Question Question
Private sub saisie restreinte dans un tableur.
Réponses
3
Affichages
1 K
Pierrot93
I
  • Question Question
Modifs sur plusieurs onglet - Type Groupe de travail
Réponses
2
Affichages
1 K
INFRA
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…