graphique a partir d'une cellule

J

jclf

Guest

• 10 Décembre 2006

• #2

Re : graphique a partir d'une cellule

merci tatiak
mais comment je crée un historique a partir de ma cellule???

 

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 10 Décembre 2006

• #3

Re : graphique a partir d'une cellule

Bonsoir,


T'as rien perdu Tatiak==> toujours excellent!!

tu mérites tes cinq étoiles......... sur ton coeur!!😀

 

Vote positif 0 Vote négatif

J

jclf

Guest

• 10 Décembre 2006

• #4

Re : graphique a partir d'une cellule

merci tatiak l'info me sera utile
jclf

 

Vote positif 0 Vote négatif

J

jclf

Guest

• 10 Décembre 2006

• #5

Re : graphique a partir d'une cellule

re bonjour

enfin de compte je ni suis pas arriver a créer mon historique
je met en fichier joint un fichier excel qui explique mon probleme
si quelqu'un peut m'aider je l'en remerci par avance
jclf

 

Pièces jointes

• graphique ratio jour valeur.xls

  15.5 KB · Affichages: 55

Vote positif 0 Vote négatif

J

jclf

Guest

• 10 Décembre 2006

• #6

Re : graphique a partir d'une cellule

la colonne a est mise par fonction "aujourdhui"
la colonne b mise a jour par la somme d'une autre colonne (qui nest pas represnter sur ce graphique)

 

Dernière modification par un modérateur: 10 Décembre 2006

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 10 Décembre 2006

• #7

Re : graphique a partir d'une cellule

Bonsoir à tous
Une petite adaptation du fichier de Tatiak

 

Pièces jointes

• graphique_ratio_jour.zip

  9.7 KB · Affichages: 64

Vote positif 0 Vote négatif

J

jclf

Guest

• 11 Décembre 2006

• #8

Re : graphique a partir d'une cellule

merci a vous deux titiak et cb60

est'il possible que l"historique se mette a jour automatiquement??
la cellule E2 se met a jour automatiquement
merci
jclf

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 11 Décembre 2006

• #9

Re : graphique a partir d'une cellule

Bonsoir
remplace ta macro par celle ci:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
If Not Intersect(Target, Range("e2")) Is Nothing Then
ligne = Range("H65536").End(xlUp).Row
'cells(ligne + 1, 8) = Now()
cells(ligne + 1, 8) = Range("E4").Value
cells(ligne + 1, 9) = Range("E2").Value
End If

End Sub

Des que tu valide ta valeur par entrée en "E2" ta macro fonctionne comme ci tu avais cliqué sur le bouton.
Bruno

ps: change la ligne
If Not Intersect(Target, Range("e2")) Is Nothing Then
par celle ci
If Not Intersect(Target, Range("b:b")) Is Nothing Then
cela permet que des que tu a saisie tes infos en colonne a et b tes cellules h et i change en automatique

 

Dernière édition: 11 Décembre 2006

Vote positif 0 Vote négatif