Range("B1") =Range("A1") =Range("B1")...prob

[Temjeh]

Bonsoir à tous

J'aimerais savoir si il y a un code pour ceci:

Ex: j'entre mes donné en A1 elle s'additionne dans B1 et quand je clic sur une autre cell A1 se delete du genre

j'ai essayé ceci dans feuil(Worksheet selectionchange)
If Range("A1") > 0 then
Range("B1") =Range("A1") =Range("B1")
Range("A1") .delete
End if

Merci

A++

Temjeh

 

[@+Thierry]

Re bonsoir Temjeh

Sous réserve d'avoir compris ta demande...
Dans le Private Module de la Feuille en question :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

&nbsp;&nbsp;&nbsp;If Me.Range("A1").Value <> "" Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Me.Range("B1") = Me.Range("A1").Value
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Me.Range("A1").Value = ""
&nbsp;&nbsp;&nbsp;End If

End Sub

Bonne soirée
@+Thierry

 

[@+Thierry]

Oups sorry

Je viens de relire s'additionne dans B1

Essaies plutôt ceci alors :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

&nbsp;&nbsp;&nbsp;If Me.Range("A1").Value <> "" Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If IsNumeric(Me.Range("A1").Value) Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If IsNumeric(Me.Range("B1").Value) Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Me.Range("B1") = Me.Range("B1").Value + Me.Range("A1").Value
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Me.Range("A1").Value = ""
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;End If

End Sub


Bonne nuit, dodo là pour moi
@+Thierry

 

[Temjeh]

Tu doit dormir ....je profite quand même de ce moment pour te remercier
ca fonctionne très bien

A++

Temjeh

 

[Temjeh]

Test:

{img}http://www.coolarchive.com/gifanimations/hands/hand1.gif{/img}

 

[Temjeh]

Test2

 

[Temjeh]

test

 

[Temjeh]

Test encore

http://www.google.ca/?subject=liens vers appli