change() a une cellule

CB60

XLDnaute Barbatruc

• 1 Juin 2009

• #2

Re : change() a une cellule

Bonsoir
voici un exemple,

HTML:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
   With ActiveSheet.ChartObjects(1).Chart
        .Axes(xlCategory).MaximumScale = Range("E1").Value
        .Axes(xlValue).MaximumScale = Range("E2").Value
  End With
End If
End Sub

sur cette macro lorsque la cellule C1 change cela met à jour les axes d'un graphique, cette macro et à mettre directement dans le code de la feuille

Edit
Bonsoir le geant vert

 

Dernière édition: 1 Juin 2009

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 1 Juin 2009

• #3

Re : change() a une cellule

Hello Alucard,

Peut-être comme ceci..

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target, [C1]) Is Nothing Then
        MsgBox "Coucou"
    End If
    
End Sub

Chaque fois que tu cliques sur cette cellule (toujours C1 alors ), un message apparaît !

Cdt, Hulk.

Oups slt CB

 

Dernière édition: 1 Juin 2009

Vote positif 0 Vote négatif

A

Alucard

XLDnaute Nouveau

• 1 Juin 2009

• #4

Re : change() a une cellule

Salut CB60,

Je vais pouvoir partir de ce code pour l'adapter a mon classeur.

Merci

 

Vote positif 0 Vote négatif

A

Alucard

XLDnaute Nouveau

• 1 Juin 2009

• #5

Re : change() a une cellule

Salut Hulk,

C'est vrai que je n'ai pas ete tres precis.
Dans mon cas, J'ai une liste en A7 et je voudrais qu'un certains nombre de cellule se mette a jour en fonction de la valeur de cette cellule.

Donc pour moi ca donne :

Code:

Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Target, [A7]) Is Nothing Then
.
.
.
End If
End sub

Encore merci a vous deux

 

Dernière édition: 1 Juin 2009

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 1 Juin 2009

• #6

Re : change() a une cellule

Re,

Alors là, et je pense que CB ne dira pas le contraire, va falloir plus de précision de ta part et même que tu déposes un fichier exemple avec tes souhaits.

Cdt, Hulk.

 

Vote positif 0 Vote négatif

A

Alucard

XLDnaute Nouveau

• 1 Juin 2009

• #7

Re : change() a une cellule

Hulk,

Pour le moment la seule chose qui me bloqué été ce change() mais en fait le change() est correcte c'est juste la fonction If que je ne connaissais pas.
Pour le reste j'ai pas spécialement de soucis mais merci encore.

Si un probleme arrive dans ce cas je ne manquerai pas de meiux détailler et de fournir un fichier exemple.

Ce n'est pas que je refuse votre aide mais j'estime que mon apprentissage dans le VBA passe par les essai et les echecs je préféré donc essayer seul avant de crier ausecours!!!!!!

Merci a vous
Al.

 

Vote positif 0 Vote négatif