recopie sur autre feuille en incremation

Bonsoir Nicolas,

Tu peux essayer ceci :

Tout le code est à copier dans le module Feuille où l'action se déroule (là où tu entres manuellement tes données.

Pour les besoins de l'exemple, la procédure fait ceci :

A ) le code a été copié en feuil1
B ) à chaque fois que tu modifies la cellules A1 de la feuil1 , la cellule A1 de la feuil2 dénotes le nombre de fois que la
valeur va changer. Pour qu'il y ait incrémentation, la valeur saisie en feuil1 cellule A1 doit différer de sa valeur
précédente.

C ) évidemment, tu peux modifier le nom des feuilles et l'adresse des cellules selon ton application....

'Cette ligne doit apparaître comme première ligne dans le module où tu copieras le code.
Dim Cell As Variant
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("A1").Address Then
If Target <> Cell Then
With Worksheets("Feuil2")
.Range("A1") = .Range("A1") + 1
Cell = .Range("A1")
End With
End If
End If


End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Range("A1").Address Then
Cell = Range("A1").Value
End If

End Sub
'--------------------------


Salutations!



"nicolas Pr" <nprats@wanadoo.fr> a écrit dans le message de news:24b101c3bfff$5f56b6f0$7d02280a@phx.gbl...
boujour atous
j'aimerai savoir comment faire pour incrementer les
données de ma feuille2 a chaque
fois que je renseigne ma cellule dans ma feuille1
jai fais une macro mais apparament elle bloque au bout de
2 envoie de ligne

merci pour toute aide possible