Toutes mes réponses sur les forums

3 sujets de 16 à 18 (sur un total de 18)
1 2
  • Auteur
    Messages
  • 1 août 2014 à 13 h 30 min en réponse à : Coller des valeurs automatiquement #8100
    monarc
    Participant

    Si je modifiais les codes comme ci-dessous, Est-ce que ça pourrait empêcher l’arrêt de l’exécution du IF?

    Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    On Error GoTo Erreur

    If Cells(Target.Row, Target.Column) > 0 And Cells(Target.Row, Target.Column) < 0.6 Then

    Cells(Target.Row, Target.Column + 3) = Cells(Target.Row, Target.Column)

    End If

    Erreur:

    Application.EnableEvents = True

    End Sub

    1 août 2014 à 9 h 43 min en réponse à : Coller des valeurs automatiquement #8093
    monarc
    Participant

    Merci Guillaume!

    Ce fichier est seulement un petit exemple, les données sont réparties un peu partout dans mon fichier original. Je garde quand même en mémoire ta solution qui pourra peut-être me servir dans un autre fichier semblable.

    Merci encore!

    31 juillet 2014 à 20 h 46 min en réponse à : Coller des valeurs automatiquement #8027
    monarc
    Participant

    Merci Marc pour la solution que vous me proposez. Ça fonctionne bien avec ces codes. C’est super!

    Par contre, il semble qu’à un moment donné, ça ne fonctionne plus et je dois fermer et rouvrir Excel pour que ça recommence à fonctionner. Peut-être parce que je fais des tests dans les codes et lorsque je fais une erreur de code, le débogueur m’affiche la fenêtre d’erreur et ça arrête de fonctionner???

    Je vais continuer à tester mon fichier original avant de le distribuer puisqu’il faut qu’il soit fonctionnel et sans erreur!!!

    J’ai joins le fichier que j’ai monté pour faire des tests. Ceci en réponse à Guillaume. Il est tout simple mais représente ce que je veux comme résultat.

    Merci encore!

    Attachments:
    You must be logged in to view attached files.
  • Auteur
    Messages
3 sujets de 16 à 18 (sur un total de 18)
1 2