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
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
Dernière édition: