Alors voila, je refais appel a vos talents de VBAiste pour m'aider a résoudre un problème....
Explication de ma macro :
La macro çi dessous permet d'enregistrer des valeurs qui sont sur la feuille source ( qui est propre aux utilisateurs, et qui possède le bouton pour activer ma macro ) vers une autre feuilles excel.
Selon les initiales rentrées dans la feuille source, la macro permettra d'enregistrer les données de la feuille source, dans différentes colonnes de la feuille de destination.
Je n'arrive pas a corriger le code pour qu'il fonctionne ( et qu'il fasse ce dont je demande accessoirement ) ...
Merci de prendre de votre temps a essayer de m'aider
Je vous joins avec, les 2 fichiers excels :
Edit : Il faut que les deux fichiers excel soient ouvert !!
Explication de ma macro :
La macro çi dessous permet d'enregistrer des valeurs qui sont sur la feuille source ( qui est propre aux utilisateurs, et qui possède le bouton pour activer ma macro ) vers une autre feuilles excel.
Selon les initiales rentrées dans la feuille source, la macro permettra d'enregistrer les données de la feuille source, dans différentes colonnes de la feuille de destination.
Code:
Private Sub Enregistrer_Click()
Dim myRange As Range
Workbooks("Formulaire heures modif 08.xls").Activate
With Sheets("Mensuel")
.Range("AK7:AK81").Copy
If Val(Cells(3, 25).Value) = "MLB" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("B7:B81")
ElseIf Val(Cells(3, 25).Value) = "IB" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("C7:C81")
ElseIf Val(Cells(3, 25).Value) = "MHR" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("D7:D81")
ElseIf Val(Cells(3, 25).Value) = "FF" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("E7:E81")
ElseIf Val(Cells(3, 25).Value) = "Gry" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("F7:F81")
ElseIf Val(Cells(3, 25).Value) = "CR" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("H7:H81")
ElseIf Val(Cells(3, 25).Value) = "GB" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("I7:I81")
ElseIf Val(Cells(3, 25).Value) = "OA" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("K7:K81")
ElseIf Val(Cells(3, 25).Value) = "HD" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("L7:L81")
ElseIf Val(Cells(3, 25).Value) = "PM" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("M7:M81")
ElseIf Val(Cells(3, 25).Value) = "SG" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("N7:N81")
ElseIf Val(Cells(3, 25).Value) = "KI" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("O7:O81")
ElseIf Val(Cells(3, 25).Value) = "CM" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("P7:P81")
ElseIf Val(Cells(3, 25).Value) = "AR" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("Q7:Q81")
ElseIf Val(Cells(3, 25).Value) = "FE" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("R7:R81")
ElseIf Val(Cells(3, 25).Value) = "PF" Then
Workbooks("Synthése Aôut, Sept Modif2 07BIS.xls").Activate
With Sheets("DEC")
Set myRange = Worksheets("DEC").Range("S7:S81")
Else
MsgBox ("Erreur dans le nom")
End If
End With
myRange.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
End Sub
Je n'arrive pas a corriger le code pour qu'il fonctionne ( et qu'il fasse ce dont je demande accessoirement ) ...
Merci de prendre de votre temps a essayer de m'aider
Je vous joins avec, les 2 fichiers excels :
Edit : Il faut que les deux fichiers excel soient ouvert !!
Pièces jointes
-
Formulaire heures modif 08.zip17.4 KB · Affichages: 16
-
Formulaire heures modif 08.zip17.4 KB · Affichages: 17
-
Formulaire heures modif 08.zip17.4 KB · Affichages: 17
-
Synthése Aôut, Sept Modif2 07BIS.zip28.1 KB · Affichages: 15
-
Synthése Aôut, Sept Modif2 07BIS.zip28.1 KB · Affichages: 14
-
Synthése Aôut, Sept Modif2 07BIS.zip28.1 KB · Affichages: 16
Dernière édition: