Bonjour,
Je viens de faire ma première macro!
Voici son code :
Cette macro me copie certaines données de 2 colonnes d'une feuille 1 pour les mettre dans 2 colonnes d'une feuille 2 "synthèse"
A chaque fois que je l'active, elle va coller les résultats voulus dans la colonne située juste à droite de la dernière colonne qu'il a remplie.
Sauf que :
-On voudrait limiter le nombre de colonnes disponibles en feuille 2
-On voudrait pouvoir effacer manuellement le contenu d'une colonne en feuille 2. A ce moment, la macro doit voir qu'une nouvelle colonne s'est liberée et qu'elle peut donc y coller de nouvelles données.
J'ai dans l'idée que pour tout çà, on peut définir un tableau de n colonnes en feuille 2
Lorsque la macro veut coller des données dedans, elle va dans la première colonne.
Si celle-ci est pleine, elle tente la seconde.
Et ainsi de suite...
Si arrivée à la dernière colonne n c'est encore plein, elle ne colle rien mais met le message : "tableau de synthèse complet".
L'opérateur devra alors effacer le contenu d'au moins 1 colonne dans feuille 2 pour y libérer une place
Donc ce doit être une boucle, mais comme je vous le disais, je débute total!
Merci d'avance pour vos lumières.
Je viens de faire ma première macro!
Voici son code :
Sub Synthese()
Application.ScreenUpdating = False
Dim I As Long
Dim Var As String
Sheets("Synthese").Visible = True
Range("AL9:AM37").Select
'Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
I = Range("IV4").End(xlToLeft).Column
I = I + 1
Sheets("Synthese").Cells(1, I).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
'ActiveWindow.SelectedSheets.Visible = False
Worksheets(Worksheets.Count).Activate
Application.CutCopyMode = False
Application.ScreenUpdating = False
' message de synthèse réussie
Var = "Synthèse réussie"
MsgBox "Les données ont été" & vbLf & "ajoutées à la synthèse", vbOKOnly + vbInformation, "Validation Synthèse"
Application.GoTo Range("A1"), Scroll:=True
End Sub
Cette macro me copie certaines données de 2 colonnes d'une feuille 1 pour les mettre dans 2 colonnes d'une feuille 2 "synthèse"
A chaque fois que je l'active, elle va coller les résultats voulus dans la colonne située juste à droite de la dernière colonne qu'il a remplie.
Sauf que :
-On voudrait limiter le nombre de colonnes disponibles en feuille 2
-On voudrait pouvoir effacer manuellement le contenu d'une colonne en feuille 2. A ce moment, la macro doit voir qu'une nouvelle colonne s'est liberée et qu'elle peut donc y coller de nouvelles données.
J'ai dans l'idée que pour tout çà, on peut définir un tableau de n colonnes en feuille 2
Lorsque la macro veut coller des données dedans, elle va dans la première colonne.
Si celle-ci est pleine, elle tente la seconde.
Et ainsi de suite...
Si arrivée à la dernière colonne n c'est encore plein, elle ne colle rien mais met le message : "tableau de synthèse complet".
L'opérateur devra alors effacer le contenu d'au moins 1 colonne dans feuille 2 pour y libérer une place
Donc ce doit être une boucle, mais comme je vous le disais, je débute total!
Merci d'avance pour vos lumières.