Macro Excel

Macro Excel - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2007 à 09:35:30    

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!!

Reply

Marsh Posté le 23-03-2007 à 09:35:30   

Reply

Marsh Posté le 23-03-2007 à 09:42:35    

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:

Reply

Marsh Posté le 23-03-2007 à 11:48:23    

!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...

Reply

Marsh Posté le 23-03-2007 à 12:23:13    

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 ?

Reply

Marsh Posté le 23-03-2007 à 15:07:49    

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 ?

Reply

Sujets relatifs:

Leave a Replay

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