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
Bonjour,

Je connais très peu VBA.
J'ai une liste de pièce. Voici le lien http://www.cijoint.fr/cjlink.php?file=cj201106/cijO2FqtUW.xls

Dans les colonnes I, K, M et O. quand un nombre est mis, il est comparé à la colonne D. et se met en rouge si le nombre est insuffisant. J'aimerais que lorsque ce nombre est trop faible.La ligne de A à H se copie sur un autre fichier de demande de pièces, que voici (http://www.cijoint.fr/cjlink.php?file=cj201106/cijTjl6Ff2.xls), à la suite des précédentes pièces. Serait-il également possible de copier cette plage de cellules sur la feuille correspondant au numéro de la semaine dans laquelle nous sommes ?

Mais je ne sais pas comment faire.
Merci d'avance.

A+
olympikyon =)

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
bonjour

accès au 2° classeur refus& par cijoint....

Merci de grouper les 2 dans un .zip
0
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:29
http://www.cijoint.fr/cjlink.php?file=cj201106/cijdaGGH6Z.zip
0
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
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
0
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
J'ai également un possibilité de copier ces cellules en fonction des couleurs toujours sur l'autre fichier.
0