macro copier ligne dans autre onglet si condition

Question

Bonjour, 

je suis trés débutante en création de macro, je n'arrive pas même pas à ajouter une condition à la copie d'un ligne :-(
Le but est de copier les cellules de A à D d'un onglet 1 dans les cellules de A à D d'un onglet 2 à condition que la cellule E (onglet 1) = x ou X et l'idéale serait de proposer l'impression de l'onglet 2 
Je me suis inspirée de ce forum mais j'ai besoin d'aide.
Si une bonne âme peut m'aider :-)
 

Sub Macro6()
'
' Macro6 Macro
'

'
    Range("A1:B5").Select
    Selection.Copy
    Sheets("Interresse").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Order").Select
    Range("A8:D8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Interresse").Select
    Range("A8").Select
    ActiveSheet.Paste
End Sub

Patrice33740 · Answer

Bonjour,

Avec le VBA, il faut absolument éviter d'utiliser .Select

Ton code ci-dessus s'écrit :
Sub Macro6()

Sheets("Order").Range("A1:B5").Copy Sheets("Interresse").Range("A1")
  Sheets("Order").Range("A8:D8").Copy Sheets("Interresse").Range("A8")

End Sub

Voici un excellent cours VBA gratuit pour débutants :
 ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf

Viau · Answer

Bonjour Patrice,
Changement de programme, vu l'allure à laquelle j'avance pour cette macro et sachant qu'Il vient de m'en tomber une deuxième ressemblante à la première pour lundi :-).
Soit vous avez le temps et la gentillesse de la faire soit je vais voir avec un de mes collegues s'il y en a un capable de les faire.
Merci bcp pour votre aide dans ts le cas. Je garde de coté votre cours. j'ai déjà appris des bases mais ce n'est pas encore ces Macros que je réussirai à faire seule :-)
Excellente journée

Macro copier ligne dans autre onglet si condition

2 réponses

Votre réponse

Discussions similaires