Macro copier ligne dans autre onglet si condition
Viau
-
Viau -
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
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
A voir également:
- Vba excel copier ligne vers autre feuille sous condition
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Partager photos en ligne - Guide
2 réponses
Bonjour,
Avec le VBA, il faut absolument éviter d'utiliser .Select
Ton code ci-dessus s'écrit :
Voici un excellent cours VBA gratuit pour débutants :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
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
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.