Macro cpier/coller differents onglets

Macro cpier/coller differents onglets - VB/VBA/VBS - Programmation

Marsh Posté le 07-04-2014 à 16:44:41    

Bonjour,
 
J'ai un fichier Excel avec 30 onglets identiques (formulaire) allant de 3 à 32 , et aussi un onglet "Résultats"
 
J'ai fait une macro qui commence sur la Sheet 3 et y verifie une condition : que la celulle C8 soit égale à "At Port".
Si c'est le cas, j'aimerai qu'une macro copie une cellule qq lignes en dessous (E8) et la cole sur ma feuille resultat. Cela dans une nouvelle colonne a chaque fois que C8 = At port
 
Je vous joins mon code actuel si ca permet d'etre plus clair :

Code :
  1. Sub macro2()
  2.  ' Declare Current as a worksheet object variable.
  3.         Dim Current As Worksheet
  4. ' Loop through all of the worksheets in the active workbook.
  5.         For Each Current In Worksheets
  6.  
  7. ' condition Macro
  8. If Sheets("Sheet3" ).Range("C8" ) = "At port" Then
  9. Sheets("Resultats" ).Range("C2" ) = Sheets("Sheet3" ).Range("C8" ).Value
  10.  
  11. 'Copy valeur en dessous
  12.    Sheets("Sheet3" ).Select
  13.    Range("E8" ).Select
  14.    Selection.Copy
  15.    Sheets("Resultats" ).Select
  16.    Range("C4" ).Select
  17.    ActiveSheet.Paste
  18. End If
  19.      End Sub


 
Merci d'avance à vous !

Reply

Marsh Posté le 07-04-2014 à 16:44:41   

Reply

Marsh Posté le 07-04-2014 à 16:58:17    

For.. Next
 
 
Et pourquoi un copier/coller? Une valeur ou une formule ne suffit pas?

Reply

Sujets relatifs:

Leave a Replay

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