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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro Excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro Excel

n°1532511
acorsa
Posté le 23-03-2007 à 09:35:30  profilanswer
 

Bonjour,
Je dois créé une macro Excel qui doit: récupérer la valeur des cellules sélectionnées, les copier dans une autre feuille Excel et qui doit remplacer le contenu des cellules de la première feuille par un lien vers la deuxième feuille... :( J'espère que c'est assez clair...si vous avez des idées je les attends avec impatience pcq je ne sais pas du tout quoi faire!!

mood
Publicité
Posté le 23-03-2007 à 09:35:30  profilanswer
 

n°1532519
jpcheck
Pioupiou
Posté le 23-03-2007 à 09:42:35  profilanswer
 

tu as une fenetre recherche en haut à droite de ce texte, tu t'en sers, c'est un sujet maintes fois expliqué, merci pour nous  :jap:

n°1532669
acorsa
Posté le 23-03-2007 à 11:48:23  profilanswer
 

!bon j'ai fait un truc qui me paraissait bien ms il y a une erreur et je ne sias pas pourquoi...

Code :
  1. Dim Mycell As Range, Mysheet As Worksheet, MyName$
  2. Sheets("Foglio1" ).Select
  3. If (FeuilleExiste("Links" ) = False) Then
  4.     Sheets.Add After:=Sheets(Sheets.Count)
  5.     Sheets(Sheets.Count).name = "Links"
  6. End If
  7. For Each Mycell In Selection
  8.     MyName = Mycell.Value
  9.     'MsgBox MyName
  10.     Mycell.Copy
  11.     MsgBox Mycell
  12.         Sheets("Links" ).Select
  13.         Range("A1" ).Select
  14.         Selection.Range("A65536" ).End(xlUp).Offset(1, 0).Select
  15.         With Sheets("Links" ).Cells.Font
  16.             .name = "Arial"
  17.             .Size = 10
  18.         End With
  19. 'l'erreur est sur la ligne suivante:
  20.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
  21.         Sheets("Foglio1" ).Select
  22. Next Mycell


En fait je récupère les valeurs de chaque cellules sélectionées, je les copie et je me place sur la feuille "Link". Ensuite, je voudrais coller les valeurs copier dans cette feuille "Link" ds la première colonne...

n°1532729
jpcheck
Pioupiou
Posté le 23-03-2007 à 12:23:13  profilanswer
 

Il me semble que c'est foireux ton selection dans un selection, il faut faire autrement :whistle:  
crée toi une fonction du style
(non testé)
Private Function En_fin_de_colonne(dim col as String, dim valeur as Variant)
Range("Links!" & col & "65536" ).End(xlUp).Offset(1, 0).Select
With Sheets("Links" ).Cells.Font            .name = "Arial"            .Size = 10        End With
Selection.value = valeur      
end function
 
tu y fais appel dans ton bout de code djà donné,
 
ca t'aide ou pas ?

n°1532840
tegu
Posté le 23-03-2007 à 15:07:49  profilanswer
 

Je ne comprends pas pourquoi tu fais une boucle sur les cellules.
As-tu essayé de faire l'opération manuellement via l'interface Excel en enregistrant une macro ?


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

  Macro Excel

 

Sujets relatifs
[VBA] [résolu] Excel - bug sur macro toute simplemacro Excel VBA : Création automatique de 140 graphiques
[Macro Excel] Comment récupérer le nom du fichier?[VBA] piloter word depuis une macro excel -- Chercher remplacer
(VBA excel) lire les données d'une macro complementairePerdu le code de protection d'une macro VBA (Excel) ... Une solution ?
[Excel VBA] Macro qui se lance à chaque calcul[résolu] Prendre un nom de fichier + répertoire en macro pour excel
utilise les "nom" excel dans une macro VBA 
Plus de sujets relatifs à : Macro Excel


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