Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1125 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide pour recu sur cell

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

aide pour recu sur cell

n°1568215
fpouzou
Posté le 31-05-2007 à 17:51:07  profilanswer
 

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)
  2. If Target.Address = "$A$3" Then
  3. Sheets("FEUILLE DE TEMPS" ).Range("C27" ) = Target
  4. End If
  5. End Sub

mood
Publicité
Posté le 31-05-2007 à 17:51:07  profilanswer
 

n°1568365
Paul Hood
Posté le 01-06-2007 à 08:25:06  profilanswer
 

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 ?

n°1568744
fpouzou
Posté le 01-06-2007 à 17:28:29  profilanswer
 

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
 

n°1568961
satanas09
Posté le 02-06-2007 à 13:27:21  profilanswer
 

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
n°1569142
fpouzou
Posté le 02-06-2007 à 22:12:26  profilanswer
 

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

n°1569148
satanas09
Posté le 02-06-2007 à 22:36:09  profilanswer
 

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
n°1569232
fpouzou
Posté le 03-06-2007 à 09:32:28  profilanswer
 

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
n°1569238
seniorpapo​u
Posté le 03-06-2007 à 10:17:24  profilanswer
 

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
 

n°1569305
fpouzou
Posté le 03-06-2007 à 15:53:09  profilanswer
 

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

n°1569316
fpouzou
Posté le 03-06-2007 à 16:53:47  profilanswer
 

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 :)

mood
Publicité
Posté le 03-06-2007 à 16:53:47  profilanswer
 

n°1569325
satanas09
Posté le 03-06-2007 à 18:16:20  profilanswer
 

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
n°1569329
fpouzou
Posté le 03-06-2007 à 18:30:05  profilanswer
 

ok merci :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide pour recu sur cell

 

Sujets relatifs
aide add_filter jewl svpBesoin d'aide afin d'orienter mon développement
Demande d'aide pour utilisation gawkaide remetre a zero une cellule
[WORD, ACCESS]Lié des requêtes SQL à l'aide d'une macro sous wordAide pour une expression régulière
De l'aide svpAIDE
besoin d'aide pour creation textbox et label en dynamiqueAide pour la creation d'un fichier .bat
Plus de sujets relatifs à : aide pour recu sur cell


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR