VBA [excel]
Résolu/Fermé
olympiklyon
Messages postés
63
Date d'inscription
dimanche 21 novembre 2010
Statut
Membre
Dernière intervention
8 octobre 2012
-
Modifié par olympiklyon le 7/06/2011 à 11:51
olympiklyon Messages postés 63 Date d'inscription dimanche 21 novembre 2010 Statut Membre Dernière intervention 8 octobre 2012 - 7 juin 2011 à 16:18
olympiklyon Messages postés 63 Date d'inscription dimanche 21 novembre 2010 Statut Membre Dernière intervention 8 octobre 2012 - 7 juin 2011 à 16:18
A voir également:
- VBA [excel]
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
7 juin 2011 à 14:22
7 juin 2011 à 14:22
bonjour
accès au 2° classeur refus& par cijoint....
Merci de grouper les 2 dans un .zip
accès au 2° classeur refus& par cijoint....
Merci de grouper les 2 dans un .zip
olympiklyon
Messages postés
63
Date d'inscription
dimanche 21 novembre 2010
Statut
Membre
Dernière intervention
8 octobre 2012
1
7 juin 2011 à 14:48
7 juin 2011 à 14:48
Re,
Voilà ce que j'ai essayé
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Cells("I12") < ("D12") Then Workbooks("BUFFET4P Mission").Worksheets(Suivi).Range("A12:H12").Copy
'Activation du classeur cible
Workbooks.Open(Filename:="F:\Stage\essai n1")
ClasseurCible.Worksheets("22").Activate
'Sélection de la cellule de debut de copie
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
'Collage de la plage de cellule
ActiveSheet.Paste
End Sub
Voilà ce que j'ai essayé
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Cells("I12") < ("D12") Then Workbooks("BUFFET4P Mission").Worksheets(Suivi).Range("A12:H12").Copy
'Activation du classeur cible
Workbooks.Open(Filename:="F:\Stage\essai n1")
ClasseurCible.Worksheets("22").Activate
'Sélection de la cellule de debut de copie
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
'Collage de la plage de cellule
ActiveSheet.Paste
End Sub
olympiklyon
Messages postés
63
Date d'inscription
dimanche 21 novembre 2010
Statut
Membre
Dernière intervention
8 octobre 2012
1
7 juin 2011 à 16:18
7 juin 2011 à 16:18
J'ai également un possibilité de copier ces cellules en fonction des couleurs toujours sur l'autre fichier.
7 juin 2011 à 14:29