Discussion :

[emjidé]

Bonjour,

Je souhaiterais copier de manière automatique toute une plage de données dès que celle ci est mise à jour

Dans mon fichier excel j'ai

- un onglet appelé Export qui recoit des données de manières régulières et automatiques provenant d'un logiciel externe qui vient écrire dans cet onglet
- un onglet appelé Recap où je souhaite remettre en forme ces données

Dans cet onglet Recap j'ai une formule en B1 qui compte le nombre de colonnes non vides dans mon onglet Export
Je souhaiterais que dès que sa valeur change les données présentes dans l'onglet Export soient copiées dans mon onglet Recap

J'ai crée une macro dans le workbook en public, appellée Copie_Valeurs qui copie les données d'un onglet à l'autre et elle marche.
Maintenant j'aimerais la lancer de manière automatique dès que la cellule B1 est incrémentée mais ce que j'ai écrit ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Address <> "$B$1" Then Exit Sub
  Call Copie_valeurs
End Sub

Merci d'avance de votre aide

[Marc-L]

Bonjour,

si, elle a marché la première fois mais elle ne pouvait la seconde fois vu l'erreur de conception du code
car les évènements n'y sont pas réactivés avant la fin de la procédure ‼ A corriger, enregistrer, fermer Excel et réouvrir …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[emjidé]

Bonjour,

J'ai suivi vos conseils j'ai modifié le code de la manière suivante pour réactiver l'évènement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address <> "$B$1" Then Exit Sub
    Call Copie_valeurs
    Application.EnableEvents = True
End Sub

Malheureusement ce n'est toujours pas bon. C'est sans doute une erreur et un problème futile pour vous mais je n'ai pas les bases et malgré mes recherches je ne trouve pas de formation s'adressant aux tout débutants

[halaster08]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address <> "$B$1" Then Exit Sub

Bonjour,

J'ai tronqué ton code pour bien te montrer l'erreur, si tu fait un changement ailleurs qu'en B1 alors tu quittes la sub sans réactiver les évènements. Du coup plus rien ne se déclenche.
Donc soit tu réactive les évènements avant le exit sub, soit tu déplace la désactivation.

[anasecu]

Bonjour,

J'ai suivi vos conseils j'ai modifié le code de la manière suivante pour réactiver l'évènement

Malheureusement ce n'est toujours pas bon
il ne faut pas enlever les événements systématiquement sinon cela ne fonctionne qu'une fois effectivement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
     Application.EnableEvents = False
     Call Copie_valeurs
    Application.EnableEvents = True
End Sub

[emjidé]

Merci Halaster08 j'ai suivi vos conseils j'ai modifié le code en conséquence

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$B$1" Then
    Call Copie_valeurs
    Application.EnableEvents = True
    End If
End Sub

J'ai vu ensuite également la réponse de Anasecu qui a l'air de fonctionner de la même façon.

Cependant peu importe le code si B1 se met automatiquement à jour de par ma formule => les valeurs ne sont pas copiées, elles sont copiées uniquement si je viens modifier manuellement la valeur de B1. Quelqu'un pourrait me guider sur la manière à adopter pour que si ma formule donne un résultat différent en B1 => la copie se lance ?

D'après les recherches que j'avais effectué on pouvait le faire avec Worksheet_change ?

[halaster08]

Tu as fait la même erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   Application.EnableEvents = False
    If Target.Address = "$B$1" Then
    Call Copie_valeurs
    Application.EnableEvents = True
    End If

La réactivation est dans le if alors que la désactivation ne l'ai pas, donc la désactivation a toujours lieu mais si la condition n'est pas vérifiée alors la réactivation n'aura pas lieu.

Dans le code d'anasecu, soit on désactive puis réactive soit on ne fait rien, donc ça marche.

Cependant peu importe le code si B1 se met automatiquement à jour de par ma formule => les valeurs ne sont pas copiées, elles sont copiées uniquement si je viens modifier manuellement la valeur de B1. Quelqu'un pourrait me guider sur la manière à adopter pour que si ma formule donne un résultat différent en B1 => la copie se lance ?

Je n'ai jamais fait, je crois avoir lu que c'est pas simple, ce qui est sur c'est que la question a déjà été posé, en cherchant bien tu devrais pouvoir trouver la réponse.

[anasecu]

Bonjour,

Cependant peu importe le code

J'ai bien l'impression que tu ne fais guère attention au code et tu vas vers de grosses désillusions mais c'est ton problème : si tu n'es pas précis VBA ne va faire la précision de lui-même.