VBA [excel]
Résolu
olympiklyon
Messages postés
63
Date d'inscription
Statut
Membre
Dernière intervention
-
olympiklyon Messages postés 63 Date d'inscription Statut Membre Dernière intervention -
olympiklyon Messages postés 63 Date d'inscription Statut Membre Dernière intervention -
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 =)
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 =)
A voir également:
- VBA [excel]
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
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
Statut
Membre
Dernière intervention
1
http://www.cijoint.fr/cjlink.php?file=cj201106/cijdaGGH6Z.zip
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