pb application codeVBA

[michel]

bonjour
comment appliquer ce code:
Private Sub Worksheet_SelectionChange(ByVal target As Excel.range)
range("a2").Offset(0, 3).Value = range("a2").Offset(0, 3).Value + range("a2").Value - range("b2").Value
range("a2").ClearContents
range("b2").ClearContents
End Sub
valable pour la ligne 2,aux lignes suivantes d'une feuille excel
merçi

Michel

 

[wilfried]

Salut michel,

tu peu essayer avec une boucle :

Private Sub Worksheet_SelectionChange(ByVal target As Excel.range)
'déclaration des variables
dim i as integer
dim nb_ligne as integer
dim m_cellule as range

range("A2").select
activecell.end(xldown).select
range("A2",activecell).select
for each m_cellule in selection
m_cellule.offset(0,3).formula=m_cellule.offset(0,3).value + m_cellule.value- m_cellule.offset(0,1).value
m_cellule.clearcontents
m_cellule.offset(0,1).clearcontents
next
END SUB

Voila

Wilfried

 

[michel]

bonsoir Wilfried
j'ai essaye ta macro
resultat:quand je clique sur A2,les lignes defilent a toute vitesse,la colonne D se remplit de "0" et excel se bloque.
est-ce une erreur de macro?
A+

Michel

 

[wilfried]

Salut Michel,

Si tu mais un point d'arret dans la macro au niveau de :
activecell.end(xldown).select

Que tu execute cette ligne (F8),

Est ce qu'il va jusqu'a A65536? si oui c'est que toutes tes cellules sont soit remplit soit que A2 et toutes les autres sont vide.

Pour résoudre ce problème remplace la ligne

range("A2",activecell).select

par

range("A2:A10").select

par exemple


A+
Wilfried