lancement macros

[stef51]

Bonsoir le forum,
Hum une question probablement fort simple
Avec votre aide je viens quasiment de finaliser un projet de traitement de données
Pour se faire je lance cinq macros les unes apres les autres
Comment faire pour lancer la premiere et que les autres s'enchainent automatiquely ?
J'ai essayé de les recopier les unes derriere les autres avec un trait d'espacement mais que nenie !
Ce diable de tableur me resiste encore !
Merci pour vos suggestions

 

[CBernardT]

Bonjour Stef51

Le mieux est de créer une macro qui les exécute l'une après l'autre :

Sub Enchaînement ()
macro1
macro2
macro3
macro4
macro5
End Sub


Cordialement

CBernardT

 

[didier]

salut
Une autre solution

a la fin de la macro un avant end sub
place
Call macro 2

puis dans la macro 2 a la fin
Call macro 3

etc

crdlmt
Ðidier

 

[stef51]

Bonsoir CBernardT ,Didier, le forum
cela fonctionne avec call par contre cela bloque au milieu juste avant "sub ranger" à cause de "private..."
Separemment cela marche
Avez vous une idee ?
Merci

Sub colonnes()
Range("E:E,F:F,h:h,i:i,j:j,n:n,r:r").Select
Range("r1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:B").Select
Selection.Insert Shift:=xlToRight
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Call ranger
End Sub

Private lig As Long, lig2 As Long
Sub ranger()

Dim cesure As Byte
Dim numero As String, client As String
'séparation numero et nom client
client = Cells(lig, 5)
cesure = Application.Search("-", client)
numero = Left(client, cesure - 1)
client = Right(client, Len(client) - cesure)

Range(Cells(lig + 5, 1), Cells(lig2 - 2, 1)) = numero
Range(Cells(lig + 5, 2), Cells(lig2 - 2, 2)) = client
Call affecter
End Sub
Sub affecter()