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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Coller une valeur en mémoire en provenance d'excel dans une macro

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Coller une valeur en mémoire en provenance d'excel dans une macro

n°1414371
hellfire_l​z
Posté le 27-07-2006 à 11:44:56  profilanswer
 

Bonjour, j'ai un problème et je ne trouve pas la réponse, je souhaiterais écrire une macro qui fasse ceci :
 
- Copier une cellule donnée dans une feuille 1
- Aller sur une feuille 2 et lancer une recherche de la valeur copiée dans la feuille 1
 
Seulement ce que je ne veux pas c'est que dans le code de la macro soit écris la dite valeur, en effet cette valeur change régulierement et donc si la valeur est écrite telle qu'elle dans le code il faudra que j'écrive autant de macro que de valeurs...
 
Actuellement j'ai ça :
 

Code :
  1. Sub Macro9()
  2. '
  3. ' Macro9 Macro
  4. ' Macro enregistrée le 27/07/2006 par
  5. '
  7. '
  8.     Range("B7" ).Select
  9.     Selection.Copy
  10.     Windows("rapport_f02_facturation.csv" ).Activate
  11.     Range("E1" ).Select
  12.     Cells.Find(What:="12854", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  13.         :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  14.         False, SearchFormat:=False).Activate
  15.     ActiveCell.Offset(0, 4).Range("A1" ).Select
  16.     Application.CutCopyMode = False
  17.     Selection.Copy
  18.     Windows("modèle facture verte excel 2.xls" ).Activate
  19.     ActiveCell.Offset(10, 0).Range("A1" ).Select
  20.     ActiveSheet.Paste
  21.     Windows("rapport_f02_facturation.csv" ).Activate
  22.     ActiveCell.Offset(0, 10).Range("A1" ).Select
  23.     Application.CutCopyMode = False
  24.     Selection.Copy
  25.     Windows("modèle facture verte excel 2.xls" ).Activate
  26.     ActiveCell.Offset(1, 0).Range("A1" ).Select
  27.     ActiveSheet.Paste
  28. End Sub


 
En gros je souhaite savoir quoi écrire à la place du truc en bleu pour qu'il me colle la valeur en mémoire. J'ai déjà essayé Paste mais ça marche pas :/
 
Merci d'avance.


Message édité par hellfire_lz le 27-07-2006 à 11:50:18
mood
Publicité
Posté le 27-07-2006 à 11:44:56  profilanswer
 

n°1414377
jpcheck
Pioupiou
Posté le 27-07-2006 à 11:48:16  profilanswer
 

t'autorises-tu à stocker la valeur dans une cellule de ton tableau ? Auquel cas, tu peux remplacer par
a = cells(i,j).value
... What:=a

n°1414379
hellfire_l​z
Posté le 27-07-2006 à 11:50:48  profilanswer
 

mmh oui ça serait une possibilité, je vais essayer :)


Message édité par hellfire_lz le 27-07-2006 à 11:50:57
n°1414402
hellfire_l​z
Posté le 27-07-2006 à 12:02:42  profilanswer
 

Hum, étant donné que le vb remonte à quelques années pour moi, il faut que je la déclare où et comment ma variable a?

n°1414407
jpcheck
Pioupiou
Posté le 27-07-2006 à 12:05:18  profilanswer
 


Code :
  1. Sub Macro9()
  2. '
  3. ' Macro9 Macro
  4. ' Macro enregistrée le 27/07/2006 par
  5. '
  6. dim a as String
  7. '
  8.     Range("B7" ).Select
  9.     Selection.Copy
  10.     Windows("rapport_f02_facturation.csv" ).Activate
  11.     Range("E1" ).Select
  12. a= cells(1,1).value
  13.     Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  14.         :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  15.         False, SearchFormat:=False).Activate
  16.     ActiveCell.Offset(0, 4).Range("A1" ).Select
  17.     Application.CutCopyMode = False
  18.     Selection.Copy
  19.     Windows("modèle facture verte excel 2.xls" ).Activate
  20.     ActiveCell.Offset(10, 0).Range("A1" ).Select
  21.     ActiveSheet.Paste
  22.     Windows("rapport_f02_facturation.csv" ).Activate
  23.     ActiveCell.Offset(0, 10).Range("A1" ).Select
  24.     Application.CutCopyMode = False
  25.     Selection.Copy
  26.     Windows("modèle facture verte excel 2.xls" ).Activate
  27.     ActiveCell.Offset(1, 0).Range("A1" ).Select
  28.     ActiveSheet.Paste
  29. End Sub


 
En gros je souhaite savoir quoi écrire à la place du truc en bleu pour qu'il me colle la valeur en mémoire. J'ai déjà essayé Paste mais ça marche pas :/
 
Merci d'avance.[/quotemsg]

n°1414463
hellfire_l​z
Posté le 27-07-2006 à 13:14:49  profilanswer
 

yipee ca marche :)
 
merci beaucoup :)


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

  Coller une valeur en mémoire en provenance d'excel dans une macro

 

Sujets relatifs
[flash/AS] Fuite de memoire[RESOLU] insérer par valeur
Macro Solver sur VBA[.NET] Objet Graphics, DrawImage et occupation mémoire
Valeur par défaut qui se charge dans le champ textevba Excel : enregistrement de valeures
Champs texte qui s'active selon valeur d'une case à cocherSimulation loi normale sur Excel
[ Problème] Récuperer une valeur[Résolu]Simulation de date sur excel
Plus de sujets relatifs à : Coller une valeur en mémoire en provenance d'excel dans une macro

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.055 secondes

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