Copier-Coller à la suite en VBA

James007

XLDnaute Barbatruc

• 27 Janvier 2011

• #2

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 +
🙂

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Janvier 2011

• #3

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+

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 27 Janvier 2011

• #4

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 +
🙂

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Janvier 2011

• #5

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+

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 27 Janvier 2011

• #6

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 ...?

VB:

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 +
🙂

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Janvier 2011

• #7

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:

Code:

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+

 

Dernière édition: 27 Janvier 2011

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 28 Janvier 2011

• #8

Re : Copier-Coller à la suite en VBA

Lone-wolf à dit:

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

Code:

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+

Cliquez pour agrandir...

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 +
🙂

 

Pièces jointes

• TestLoneWolf2.xls

  45.5 KB · Affichages: 86

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 28 Janvier 2011

• #9

Re : Copier-Coller à la suite en VBA

Bonjour James,

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

Merci encore


A +

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 28 Janvier 2011

• #10

Re : Copier-Coller à la suite en VBA

Lone-wolf à dit:

Bonjour James,

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

Merci encore


A +

Cliquez pour agrandir...

Re,

Content que cela fonctionne comme tu le souhaitais ...

A +
🙂

 

Vote positif 0 Vote négatif