[VBA-E] Appeler l'événement change

Version imprimable

30/01/2007, 14h30
marsupilami34

[VBA-E] Appeler l'événement change

Bonjour,

Comment peut on appeler l'événement change lorsqu'on fait glisser le contenu de cellules. Je m'explique.
J'ai ma celulle A1 qui contient "Travail". Je fais glisser pour que A2,A3....,A10 contienne "travail". Le problème c'est que l'événement change ne se réalise pas.

Y a t il un moyen de l'appeler ?

Merci d'avance pour votre aide.

Marsup.
30/01/2007, 15h08
SfJ5Rpw8

ben moi sur ma version d'excel 2002... la fonction événementielle Worksheet_change est bien appellée.. sur "glissade".... (une seule fois .. avec en paramétre target l'ensemble de la zone modifiée...) .. est tu sur qu'elle n'est pas appellée...
30/01/2007, 15h40
marsupilami34

Citation:

Envoyé par bbil

ben moi sur ma version d'excel 2002... la fonction événementielle Worksheet_change est bien appellée.. sur "glissade".... (une seule fois .. avec en paramétre target l'ensemble de la zone modifiée...) .. est tu sur qu'elle n'est pas appellée...

En effet, l'événement est bien appelé. Le seul truc c'est que quand je glisse, Target fais référence à la première cellulle et non pas au suivante
30/01/2007, 16h02
SfJ5Rpw8

pour moi target ... représente toute la plage modifiée .. et pas seulement la cellule A1...
30/01/2007, 16h09
marsupilami34

Et quel est la propriété pour récupérer la plage sélectionné ?
30/01/2007, 16h38
SfJ5Rpw8

ben la plage "modifié" c'est target... que ve tu en faire..?
30/01/2007, 16h44
marsupilami34

Citation:

Envoyé par bbil

ben la plage "modifié" c'est target... que ve tu en faire..?

Ben en fait, si j'ai par exemple modifier mes celulles A1 à A10, je voudrai récupérer cette plage pour modifier toutes les lignes correspondantes.

tu parcours les cellules modifiées (target) ... et pour celle appartenant à la zone surveillée (A1:A10) tu effectue ton action ... par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  For Each c In Target ' parcours la plage modifié
    If Not Intersect(c, Range("A1:A10")) Is Nothing Then 'Si on est dans la plage A1 à A10
       c.Interior.Color = vbRed 'on passe sur fond rouge
    End If
  Next
End Sub

30/01/2007, 17h39
marsupilami34

Petite question.

Dans c il marque la valeur de la cellule et non la position
30/01/2007, 17h43
marsupilami34

Et si ce ne sont pas les cellules A1 à A10 mais A3 à A8 ?
30/01/2007, 17h59
SfJ5Rpw8

Citation:

Envoyé par marsupilami34

Et si ce ne sont pas les cellules A1 à A10 mais A3 à A8 ?

ben tu la lu le code ..?
31/01/2007, 10h46
marsupilami34

OK. Désolé, j'avais pas fait attention. :oops:
En tout cas marci, ca marche maintenant :P