Macro copier ligne dans autre onglet si condition

Fermé
Viau - 14 juin 2018 à 15:27
 Viau - 15 juin 2018 à 08:35
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

2 réponses

Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 751
14 juin 2018 à 16:09
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
0
Merci bcp Patrice,
Je vais regarder le cours mais comme déjà dit je suis très débutante et évidemment j'aurai besoin de cette macro pour lundi...
J'ai dû faire une bétise, ton code ne semble pas marcher, une erreur d'exécution '9' apparait.
Et je ne suis même pas arriver à mettre ma condition... pas facile de débuter :-)

Je pensais que j'y arriverai plus facilement... encore grand merci pour ton aide.
0
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 751
14 juin 2018 à 23:13
l'erreur 9 c'est qu'il n'y a pas de feuille nommée Order
0