Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu

[dacunha]

Bonjour,
Pourriez-vous m'aider avec ce code.
Ce que je souhaite faire, c'est copier la cellule i34, faire apparaitre le message mentionnant que les données ont bien été copiées puis décocher toutes les cases de la feuil1 et effacer le contenu de certaines cellules mais tout ceci en conservant la possibilité de coller sur un autre logiciel ce que j'avais initialement copié.

Sub Copier()
Sheets("feuil1").Range("i34").Copy
MsgBox ("Les données ont été copiées")
Dim ws As Worksheet, c As Range
Set ws = Worksheets("feuil1")
For Each c In ws.UsedRange
    If Not c.CellControl Is Nothing Then
        If c.CellControl.Type = xlTypeCheckbox Then
            c.Value = False
        ws.Range("J1:M33").ClearContents
        ws.Range("E37").ClearContents
        End If
        End If
Next c
End Sub

Avec mon code, je peux coller ce que j'ai copié tant que je n'ai pas cliqué sur ok.
Avez-vous une idée pour que le coller fonctionne même après avoir cliqué sur ok?
Merci et bonne journée

 

[dacunha]

Je ne sais pas, vous n'avez pas dit à quoi vous sert le classeur :
est-ce que c'est un Formulaire individuel que chacun doit remplir et en ce cas c'est la solution

Oui c'est un formulaire permettant la gestion de dossier clients. Chacun de nous devons traiter un nombre de dossier et il se peut qu'on les traite sur les mêmes créneaux horaires et ce, en utilisant le fichier excel partageait sur Teams et ouvert via l'application bureau. Et c'est à ce moment là, que le problème apparaît si l'un d'entre nous clique sur RAZ ou COPIER (qui fait aussi RAZ) car il a terminé son dossier, cela efface le formulaire sur le poste des autres collègues qui eux n'ont pas terminé.

 

[fanch55]

Oui c'est un formulaire permettant la gestion de dossier clients. Chacun de nous devons traiter un nombre de dossier et il se peut qu'on les traite sur les mêmes créneaux horaires et ce, en utilisant le fichier excel partageait sur Teams et ouvert via l'application bureau. Et c'est à ce moment là, que le problème apparaît si l'un d'entre nous clique sur RAZ ou COPIER (qui fait aussi RAZ) car il a terminé son dossier, cela efface le formulaire sur le poste des autres collègues qui eux n'ont pas terminé.

Vous ouvrez votre classeur, videz les zones qui doivent être saisis et faites "enregistrer sous" .
Choisissez le Modèle Excel .

Ensuite ce sera ce Classeur avec l'extension .xltm que chacun devra ouvrir pour saisir ses données( le raz des zones devrait être non nécessaire ) .
En fin de saisie, Excel demandera sous quel nom ( *.xlsm ) il doit sauvegarder le classeur saisi .
En cas de modification, c'est ce dernier qui devra être ouvert et modifié ( généralement par celui qui l'a fait ou son superviseur ) .

 

[dacunha]

Vous ouvrez votre classeur, videz les zones qui doivent être saisis et faites "enregistrer sous" .
Choisissez le Modèle Excel .
Regarde la pièce jointe 1217397Ensuite ce sera ce Classeur avec l'extension .xltm que chacun devra ouvrir pour saisir ses données( le raz des zones devrait être non nécessaire ) .
En fin de saisie, Excel demandera sous quel nom ( *.xlsm ) il doit sauvegarder le classeur saisi .
En cas de modification, c'est ce dernier qui devra être ouvert et modifié ( généralement par celui qui l'a fait ou son superviseur ) .

Bonjour,
Ca ne va pas convenir car effectivement, après chaque utilisation, cela demande d'enregistrer le document. Du coup, nous allons chacun d'entre nous, enregistrer ce ficher sur nos postes respectifs.
Merci

 

[fanch55]

Bonjour,
Ca ne va pas convenir car effectivement, après chaque utilisation, cela demande d'enregistrer le document. Du coup, nous allons chacun d'entre nous, enregistrer ce ficher sur nos postes respectifs.
Merci

L'enregistrement peut se faire sous Teams