Bonjour à tous,
Je souhaiterais réalisé un macro pour archiver mes données sur la même feuille, j'avais déjà un code qui marche actuellement pour 2 autres archivages.
Voici le code ;
Sub Archiver_chargecapa()
Dim i As Long
With Sheets("INDICATEUR CHARGE-CAPACITE CUMU")
i = .Range("M" & Rows.Count).End(xlUp).Row + 1
If .Range("I11").Value = "" Or .Range("F5").Value = "" Or .Range("F7").Value = "" Or .Range("K2").Value = "" Or .Range("K3").Value = "" Then
MsgBox ("Pour archiver la semaine merci de remplir tous les champs")
Exit Sub
Else
If MsgBox("Etes-vous certain de vouloir archiver la semaine !!?", vbYesNo, "Demande de confirmation") = vbYes Then
.Range("I11,F5,F7,K2:K3").Copy
.Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
MsgBox ("Semaine archivée")
End If
End If
End With
End Sub
Mon soucis se situe sur cette ligne ; erreur 1004 cette action ne fonctionne pas sur plusieur sélection....
.Range("I11,F5,F7,K2:K3").Copy
J'ai essayer de tordre la problème dans tous les sens " avec mes capacités"... mais d'autre message d'erreurs...
j'ai essayer avec Union, Cells....
De plus pour mon info , est-il possible dans cette macro de faire l'archivage en fonction d'un choix de segment et de d'archiver les valeur après ? ( ex ; segment :tout sauf client => j'archive / remise a 0 du segment / puis segment que les clients => puis on archive et on dé filtre..)
J'espère avoir été assez clair pour votre compréhension, sinon n'hésite pas a me poser des questions
Merci beacoup pour votre aide