Macro copier ligne dans autre onglet si condition [Fermé]

Signaler
-
 Viau -
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

Messages postés
8348
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
16 janvier 2021
1 565
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
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.
Messages postés
8348
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
16 janvier 2021
1 565
l'erreur 9 c'est qu'il n'y a pas de feuille nommée Order
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