OVH Cloud OVH Cloud

Macro auto

1 réponse
Avatar
Alain B
Bonjour, merci à ceux qui mon aidé pour créer ma 1ere macro,

Sub copie()
Dim i As Long, j As Integer, derL As Long
Application.ScreenUpdating = False
derL = Workbooks("Planification FAB.xls").Sheets("Planif
générale").[EU65536].End(xlUp).Row
j = 1
For i = 518 To derL Step 7
Workbooks("Capacite mensuelle soudeurs.xls").Sheets("Master
hebdomadaire").Cells(10, j + 4) = Workbooks("Planification
FAB.xls").Sheets("Planif générale").Cells(i, 151)
j = 1 + j
Next i
End Sub

Maintenant, j'aimerais que la macro s'execute, aussitot que des informations
sont entrées dans le classeur "Planification FAB.xls" dans la feuille "Planif
générale" pour qu'elle apparaisse dans le classeur "Capacite mensuelle
soudeurs.xls" dans la feuille "Master hebdomadaire". Merci de votre aide

Alain B

1 réponse

Avatar
anonymousA
bonjour,

mettre dans le module de la feuille "Planif générale" un Private sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

copie

end sub

lors de n'importe quel changement ( de valeur ou d'écriture de quelque chose
dans n'importe quelle cellule de la feuille "Planif générale" du classeur
"Planification FAB.xls"), la macro s'exécutera.

A+


Bonjour, merci à ceux qui mon aidé pour créer ma 1ere macro,

Sub copie()
Dim i As Long, j As Integer, derL As Long
Application.ScreenUpdating = False
derL = Workbooks("Planification FAB.xls").Sheets("Planif
générale").[EU65536].End(xlUp).Row
j = 1
For i = 518 To derL Step 7
Workbooks("Capacite mensuelle soudeurs.xls").Sheets("Master
hebdomadaire").Cells(10, j + 4) = Workbooks("Planification
FAB.xls").Sheets("Planif générale").Cells(i, 151)
j = 1 + j
Next i
End Sub

Maintenant, j'aimerais que la macro s'execute, aussitot que des informations
sont entrées dans le classeur "Planification FAB.xls" dans la feuille "Planif
générale" pour qu'elle apparaisse dans le classeur "Capacite mensuelle
soudeurs.xls" dans la feuille "Master hebdomadaire". Merci de votre aide

Alain B