aide pour recu sur cell

aide pour recu sur cell - VB/VBA/VBS - Programmation

Marsh Posté le 31-05-2007 à 17:51:07    

j'ai une macro sur la feuille temps qui m archive automatiment le resultat dans ma feuille histo  
dans le but de recupere dans cette feuille le resultat de la cell a3 pour la remettre dans cell C27
de la feuille de temps le probleme c'est que ca marche pas si je ne valide pas dans le feuill histo
le resultat reçu  
 
de l'aide svp  
 
macro dans histo

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  3. If Target.Address = "$A$3" Then
  4. Sheets("FEUILLE DE TEMPS" ).Range("C27" ) = Target
  5. End If
  6. End Sub

Reply

Marsh Posté le 31-05-2007 à 17:51:07   

Reply

Marsh Posté le 01-06-2007 à 08:25:06    

Si c'est une macro qui fait la mise à jour dans la cellule A3 de la feuille histo, pourquoi tu ne lui fait pa mettre aussi dans la cellule C27 de la feuille temps ?

Reply

Marsh Posté le 01-06-2007 à 17:28:29    

parce que je doit recupere l'avant derniere resultat de ma feuille histo
dans la feuille histo le derniere resultat et en A2 et moi il me faut le A3 pour le mettre dans la cell C27 de ma feuille de temps
 

Message cité 1 fois
Reply

Marsh Posté le 02-06-2007 à 13:27:21    

fpouzou a écrit :

parce que je doit recupere l'avant derniere resultat de ma feuille histo
dans la feuille histo le derniere resultat et en A2 et moi il me faut le A3 pour le mettre dans la cell C27 de ma feuille de temps


 
et tous simplement une formule =...C27, dans ta cellule A3 ce n'est pas suffisant ..?


---------------
Satanas09 ..... Sapristi, saprista, souris grise et face de rat
Reply

Marsh Posté le 02-06-2007 à 22:12:26    

et non parce que je formule descend en a4 etc.... et ne reste pas bloque sur la A3

Message cité 1 fois
Reply

Marsh Posté le 02-06-2007 à 22:36:09    

fpouzou a écrit :

et non parce que je formule descend en a4 etc.... et ne reste pas bloque sur la A3


 
et bien alors je comprends pas comment marche ton code avec $A$3 écrit en dur ...!
 
soit un peu plus clair ... sur ce que tu veux faire SVP.


---------------
Satanas09 ..... Sapristi, saprista, souris grise et face de rat
Reply

Marsh Posté le 03-06-2007 à 09:32:28    

voila ce que je veux faire
 
c'est la feuille histoval qui recupere automatiquement mes valeur de ma feuille de temps
http://www.casimages.com/img/jpg/mini_0706030925218580646665.jpg
 
et la c'est ma feuille de temps qui envois le valeur C30 a ma feuille histoval
http://www.casimages.com/img/jpg/mini_0706030928098580646670.jpg
 
mais le probleme c'est que je n'arrive pas a recupere automatiquement le valeur A3 de ma feuille histoval pour la remettre en feuille de temps en cell C27et pourquoi la valeur A3 parcrque c'est le solde precedent


Message édité par fpouzou le 03-06-2007 à 09:32:54
Reply

Marsh Posté le 03-06-2007 à 10:17:24    

Bonjour,
dans C27 de temps tu mets: =histoval!A3
 
et dans histoval  là où tu veux récupérer tu mets: =temps!C30
Ai-je bien compris?
Cordialement
 

Reply

Marsh Posté le 03-06-2007 à 15:53:09    

non pour c30 j'ai une macro qui envoie la valeur en histoval
mon probleme et de recupere la valeur de la cell A3 de la feuille histoval  
pour la mettre en C27 de la feuille de temps histoval
 
merci pour tout votre aide
 

Code :
  1. If Me.Range("C30" ).Value <> Sheets("HistoVal" ).Cells(2, 1).Value Then
  2. Sheets("HistoVal" ).Cells(2, 1).Insert (xlShiftDown)
  3. Sheets("HistoVal" ).Cells(2, 1).Value = Me.Range("C30" ).Value
  4. End If
  5. End Sub

Reply

Marsh Posté le 03-06-2007 à 16:53:47    

J'ai trouve si ca peu aider d'autre
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Me.Range("A3" ).Value <> Sheets("FEUILLE DE TEMPS" ).Cells(27, 3).Value Then
  3. Sheets("FEUILLE DE TEMPS" ).Cells(27, 3).Copy
  4. Sheets("FEUILLE DE TEMPS" ).Cells(27, 3).Value = Me.Range("A3" ).Value
  5. Application.SendKeys "{ESC}"
  6. End If
  7. End Sub


 
merci a vous :)

Message cité 1 fois
Reply

Marsh Posté le 03-06-2007 à 16:53:47   

Reply

Marsh Posté le 03-06-2007 à 18:16:20    

fpouzou a écrit :

J'ai trouve si ca peu aider d'autre
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Me.Range("A3" ).Value <> Sheets("FEUILLE DE TEMPS" ).Cells(27, 3).Value Then
  3. Sheets("FEUILLE DE TEMPS" ).Cells(27, 3).Copy
  4. Sheets("FEUILLE DE TEMPS" ).Cells(27, 3).Value = Me.Range("A3" ).Value
  5. Application.SendKeys "{ESC}"
  6. End If
  7. End Sub


 
merci a vous :)


 
 
la ton copy et on Esc ... ne servent pas à grand chose ... tu peu enlever les 2 lignes  :pt1cable:


---------------
Satanas09 ..... Sapristi, saprista, souris grise et face de rat
Reply

Marsh Posté le 03-06-2007 à 18:30:05    

ok merci :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed