Changer la valeur de cellules

[Christophe]

Bonjour le forum,


Dans un fichier, j'ai le code ci-dessous qui me permet d'actualiser la valeur de la cellule B2 avec celle de la cellule B3.
Je souhaite ajouter la même chose avec les cellules C2 et C3 (actualiser C2 avec C3).
Je démarre, vous l'aurez compris avec ce type d'approche (et c'est dur !!!), et aucun de mes essais n'a été concluant.

QQun pourrait-il m'aider à franchir cette nouvelle étape ?

Par avance merci.

Christophe


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('H3')) Is Nothing Then

Range('B2') = Range('B3')

End If

End Sub

 

[Abel]

Bonjour Christophe,

Si la condition du changement est toujours un changement de valeur dans H3, ajoute la ligne suivante sous 'Range('B2') = Range('B3')' :

Range('c2') = Range('c3')

Bon courage pour l'apprentissage et en espérant que cela te dépanne.

Abel.

 

[Gérard DEZAMIS]

Bonjour Christophe

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('H3')) Is Nothing Then
Range('B2') = Range('B3')
If Not Intersect(Target, Range('H3')) Is Nothing Then
Range('C2') = Range('C3')
End If
End If
End Sub

devrait fonctionner
(il doit sûrement y avoir plus court ....)

@+ GD

 

[Christophe]

Merci Abel de tes encouragements : j'en ai bien besoin.

La solution de Géard me paraît plus adaptée. Je m'empresse de la tester.

Merci à tous les 2.

Christophe

 

[Gérard DEZAMIS]

Bonjour Abel
Re Christophe

je l'avais prévu !

Merci Abel
je m'étais bien battu , en vain avec le AND et le & ! hmy:

@+ GD

 

[Abel]

Re,

Hi hi Gérard. Ou alors :
Range('B2') = Range('B3'): Range('c2') = Range('c3')

Dans ce cas là, le double point peut nous faire un AND dans le sens 'fais ça et ça'.

A+

Abel

 

[Christophe]

Mon enthousiasme retombe car cela ne marche pas.

J'ai donc fait un exemple dans le fichier joint pour être plus clair.
Quand en E16, je choisis une région, seuls les pays de cette région me sont proposés en choix en E17. Et quand je choisis le pays en E17, seule les villes de ce pays m'est proposée en E18.

Le code fonctionne pour le pays, mais pas pour les villes.


SOS !

Merci.

Christophe [file name=TCD2.zip size=8339]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TCD2.zip[/file]

 

[Abel]

Re,

Essaie :

If Not Intersect(Target, Range('e16')) Is Nothing Then
Range('M2') = Range('E16')
End If

If Not Intersect(Target, Range('E18')) Is Nothing Then
Range('P2') = Range('E18')
End If

Attention à ce que les zones soient compatibles entre elles.

Abel.

Edition : Boah, Gérard, finalement, c'est toi qui était le plus près.

Message édité par: Abel, à: 09/05/2005 13:26

 

[Christophe]

Bingo, ça marche.
Merci Abel et Gérard pour votre aide.

Bonne journée.


Christophe

 

[Dan]

Bonjour,

Christophe, juste une petite rectification à l'attention des autres forumeurs qui seraient intéressés.

En effet, le code d'Abel tel que tu as donné ne fonctionne sur ton fichier que si tu le mets comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('E16')) Is Nothing Then
Range('M2') = Range('E16')
End If
If Not Intersect(Target, Range('E17')) Is Nothing Then
Range('P2') = Range('E17')
End If
End Sub

A placer en VBA (vai ALT+F11) dans la feuille (faire CTRL+R pour accéder au VBA project) comportant les TCD (ici 'Sheet1')

Bon ap.

 

[Abel]

Re,

Tel est pris qui croyait prendre ...

Merci de préciser Dan.

Effectivement, le code fonctionne dans le cadre de ce qu'avait transmis Gérard c'est à dire dans la feuille du Tableau Croisé Dynamique.


Abel.

 

[Dan]

Bonsoir,

Non Abel, car le 'End If' se trouve après chaque 'Range ... = Range ...' et à lz fin non comme précisé par GD.

Petite précision pour utilisateurs MAC : comme on fait appel aux résultats d'une liste déroulante, la macro événementielle ne fonctionnera pas.
Alternative : placer la macro dans un module et utiliser un raccourci ou un bouton placé sur la feuille afin de la commander.



Message édité par: Dan, à: 10/05/2005 22:50

 

[Abel]

Bonjour le fil, le forum,

Je n'ai jamais dit le contraire, Dan ...
Je voulais simplement rendre l'idée à Gérard. Même s'il avait un peu 'emmèlé' les End If.

A+

Abel.