Rassembler 2 macros en 1

[opopop]

Bonjour,

Grâce à vous, je sais désormais faire de (très petites) macros, et je vous en remercie. Néanmoins, en prenant un ancien exemple que je vous avais proposé il y a de ça quelques temps, je souhaiterai apporter des changements et rajouter les 2 macros qui suivent dans la même macro afin d'allèger le nombre total de macro que je dois traiter.


Sub Macro1()
Dim dest As Range 'déclare la variable dest
'définit la variable dest
With Sheets("Feuil2")
If .Range("C3").Value = "" Then 'si C3 est vide
Set dest = .Range("C3")
Else 'sinon la première cellule vide de la colonne C
Set dest = .Range("C14").End(xlUp).Offset(1, 0)
End If
End With
'copie et colle la cellule C3 dans la colonne C de l'onglet "Feuil2"
Sheets("Feuil1").Range("C3").Copy Destination:=dest

End Sub

Sub Macro2()
Dim dest As Range 'déclare la variable dest
'définit la variable dest
With Sheets("Feuil2")
If .Range("C3").Value = "" Then 'si C3 est vide
Set dest = .Range("C3")
Else 'sinon la première cellule vide de la colonne C
Set dest = .Range("C14").End(xlUp).Offset(1, 0)
End If
End With
'copie et colle la cellule C3 dans la colonne C de l'onglet "Feuil2"
Sheets("Feuil1").Range("C3").Copy Destination:=dest

End Sub


Les données ci-contre m'importent peu, je veux simplement savoir comment les rassembler dans une même macro.
Je vous remercie par avance de remédier à mes carences manifestes en VBA.

Opopop

 

[joss56]

Re : Rassembler 2 macros en 1

bonjour à tous,

Sub MaGrosseMacro()
call Macro1
call Macro2
end sub

Pas sûr de répondre à ta question mais l'important c'est de participer comme dirait l'autre...
A+
Jocelyn

 

[camarchepas]

Re : Rassembler 2 macros en 1

Bonjour à tous ,

Et oui , surtout que macro 1 et macro 2 sont identiques

 

[opopop]

Re : Rassembler 2 macros en 1

En fait le contenu ici n'est pas important, ce que je souhaite c'est prendre ces 2 macros indépendantes et les rassembler en 1 seule macro (et non en créant un 3eme macro). Je veux que SubMacro1 et SubMacro2 fusionnent et ne fasse qu'un macro les rassemblant
C'est l'ecriture du code qui m'intersse ici! (Sub,Een Sub, End if,...)

Je vous remercie!

 

[camarchepas]

Re : Rassembler 2 macros en 1

Bonsoir ,

La solution de Jocelyn est certainement la plus simple et marchera à tous les coups.

Maintenant l'on peut vraiment regrouper les 2 macros en 1 seule,

Mais tous dépends du contenu car les déclarations de variable peuvent être optimisé, ainsi qu'eventuellement les boucles, etc etc