Copier-Coller à la suite en VBA

[Lone-wolf]

Bonjour à tous,

Voici le code donné pas James007 pour calculer dans une même celulle.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NouVal
If Target.Count > 1 Then Exit Sub
' Adapter aux besoins la Plage dans laquelle la règle s'applique ...A2:A10
If Intersect(Target, Me.Range("D5:D10")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    NouVal = Target
    Application.Undo
    If IsNumeric(Target) And IsNumeric(NouVal) Then Target = NouVal + Target
    Application.EnableEvents = True

Maintenant ça serait bien (il me semble) si on pourrait contrôler les chiffres entrés
(en cas d'erreur de frappe).

Exemple: D5 = 20 -- A1 = 20, D5 = 30 -- A2 = 30, D5 = 40 -- A3 = 40 etc.

 

[James007]

Re : Copier-Coller à la suite en VBA

Bonjour,

Le titre "Copier-Coller" ne correspond pas du tout au code dont tu parles qui sert à cumuler des nombres dans une même cellule ...

Pour ce qui est de ta question, les erreurs traitées, pour ce code sont de saisir du texte ...

Maintenant, cela peut toujours être affiné ... il faut très précisément définir pour toi le champ des erreurs ...

A +
🙂

 

[Lone-wolf]

Re : Copier-Coller à la suite en VBA

Bonjour James,

j'ai pris ton code comme exemple afin d'y rajouter (si possible) le copier-coller dont je parle.

Les erreurs de frappe sont les erreurs de saisie (ex.: au lieu de taper 20, je tape 21).


A+

 

[James007]

Re : Copier-Coller à la suite en VBA

Re,

A moins qu'existe une validation quelque part ... il n'y aura aucun moyen de déterminer que 20 est une bonne saisie et 21 une mauvaise ...

A +
🙂

 

[Lone-wolf]

Re : Copier-Coller à la suite en VBA

Bonsoir James,

j'ai adapter un autre code au tien, pour pouvoir copier le résultat à la suite dans une autre colonne.

Mais, et oui (il y a toujours un mais), j'ai rencontré un autre petit problème.

Si le résultat (cellule F8 par ex.) s'affiche en A8, il y a une erreur sur la ligne Application.Undo du code.
Ne sachant pas comment parer à cet incovénient, j'ai décalé celui-ci quelques celulles plus bas.

En ce qui concerne mon post précédent; est-ce qu'en liant les celulles on peut afficher le chiffre qu'on est entrain de taper?
Oubien faire en sorte qu'il réagisse au pavé numérique?

Fichier: Somme_VBA


A+

 

[James007]

Re : Copier-Coller à la suite en VBA

Re,

Je crois deviner que tu veux te construire un historique en Colonne A ...

Je ne sais pas si tu veux conserver les valeurs saisies ou les totaux ...?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NouVal
Dim ligne As Long

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("F14")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    NouVal = Target
    Application.Undo
    If IsNumeric(Target) And IsNumeric(NouVal) Then Target = NouVal + Target
    Application.EnableEvents = True

ligne = Sheets(1).Range("a65536").End(xlUp).Row + 1

Sheets(1).Cells(ligne, 1) = NouVal 'ou Target ????

End Sub

Dis moi si c'est bien cela ton objectif ...

A +
🙂

 

[Lone-wolf]

Re : Copier-Coller à la suite en VBA

Je viens de faire un test dans un nouveau classeur, pour conserver les valeurs saisies il faut inscrire ceci:

Sheets(1).Cells(ligne, 1) = NouVal

Merci beaucoup pour la correction James.

J'ai oublié une chose, comment déduire de la celulle F14 un chiffre qui serait faux en colonne A?




A+

 

[James007]

Re : Copier-Coller à la suite en VBA

Je viens de faire un test dans un nouveau classeur, pour conserver les valeurs saisies il faut inscrire ceci:

Sheets(1).Cells(ligne, 1) = NouVal

Merci beaucoup pour la correction James.

J'ai oublié une chose, comment déduire de la celulle F14 un chiffre qui serait faux en colonne A?

A+

Bonjour Loup Solitaire,

Deux pistes possibles ...

1. Manuellement, sans macro, puisque tu vois ton historique, saisir en F14
ta valeur erronée précédée du signe -

2. Ou alors, après avoir indiqué l'erreur, avec un petit code de Correction ... voir fichier test joint ...

A +
🙂

 

[Lone-wolf]

Re : Copier-Coller à la suite en VBA

Bonjour James,

je viens d'éffectuer un petit test, c'est super.

Merci encore


A +

 

[James007]

Re : Copier-Coller à la suite en VBA

Bonjour James,

je viens d'effectuer un petit test, c'est super.

Merci encore


A +

Re,

Content que cela fonctionne comme tu le souhaitais ...

A +
🙂