Dim OD As Worksheet 'Onglet de Destination
Dim lign As Variant
Select Case Range("e3") 'on teste la cellule E3
Case "": MsgBox "Merci de completer la cellule E3": Exit Sub 'si vide, message +sortie de procédure
Case "SIE": Set OD = Sheets("tableau de suivi SIE") 'si SIE, on initialise la variable objet od avec la feuille correpondante
Case "CAR": Set OD = Sheets("tableau de suivi CAR") 'idem pour CAR
End Select
lign = OD.Range("A65000").End(xlUp).Row 'on recherche la derniere ligne non vide
Private Sub BtnCopier_Click()
Dim OD As Worksheet 'Onglet de Destination
Dim lign As Variant
Select Case Range("e3") 'on teste la cellule E3
Case "": MsgBox "Merci de completer la cellule E3": Exit Sub 'si vide, message +sortie de procédure
Case "SIE": Set OD = Sheets("tableau de suivi SIE") 'si SIE, on initialise la variable objet od avec la feuille correpondante
Case "CAR": Set OD = Sheets("tableau de suivi CAR") 'idem pour CAR
End Select
lign = OD.Range("A65000").End(xlUp).Row 'on recherche la derniere ligne non vide
If Sheets("Demande de travaux").Range("T2").Value <> Sheets("tableau de suivi SIE").Range("A" & lign).Value And Sheets("tableau de suivi SIE").Range("A" & lign).Value <> "" Then
Sheets("tableau de suivi SIE").Range("A" & lign + 1).Value = Sheets("Demande de travaux").Range("T2").Value
Sheets("tableau de suivi SIE").Range("B" & lign + 1).Value = Sheets("Demande de travaux").Range("K4").Value
Sheets("tableau de suivi SIE").Range("C" & lign + 1).Value = Sheets("Demande de travaux").Range("K43").Value
Sheets("tableau de suivi SIE").Range("D" & lign + 1).Value = Sheets("Demande de travaux").Range("E3").Value
Sheets("tableau de suivi SIE").Range("E" & lign + 1).Value = Sheets("Demande de travaux").Range("K3").Value
Sheets("tableau de suivi SIE").Range("F" & lign + 1).Value = Sheets("Demande de travaux").Range("R3").Value
Sheets("tableau de suivi SIE").Range("G" & lign + 1).Value = Sheets("Demande de travaux").Range("E4").Value
Sheets("tableau de suivi SIE").Range("H" & lign + 1).Value = Sheets("Demande de travaux").Range("R4").Value
Sheets("tableau de suivi SIE").Range("I" & lign + 1).Value = Sheets("Demande de travaux").Range("A21").Value
Sheets("tableau de suivi SIE").Range("J" & lign + 1).Value = Sheets("Demande de travaux").Range("A35").Value
Sheets("tableau de suivi SIE").Range("K" & lign + 1).Value = Sheets("Demande de travaux").Range("M19").Value
Sheets("tableau de suivi SIE").Range("L" & lign + 1).Value = Sheets("Demande de travaux").Range("S19").Value
Else: MsgBox "Le N° de Fiche deja utilisé-creer nouvelle fiche avant !"
End If
End Sub
Private Sub BtnCopier_Click()
Dim OD As Worksheet 'Onglet de Destination
Dim lign As Variant
Select Case Range("e3") 'on teste la cellule E3
Case "": MsgBox "Merci de completer la cellule E3": Exit Sub 'si vide, message +sortie de procédure
Case "SIE": Set OD = Sheets("tableau de suivi SIE") 'si SIE, on initialise la variable objet od avec la feuille correpondante
Case "CAR": Set OD = Sheets("tableau de suivi CAR") 'idem pour CAR
End Select
lign = OD.Range("A65000").End(xlUp).Row 'on recherche la derniere ligne non vide
With Sheets("Demande de travaux")
If .Range("T2").Value <> OD.Range("A" & lign).Value And OD.Range("A" & lign).Value <> "" Then
OD.Range("A" & lign + 1).Value = .Range("T2").Value
OD.Range("B" & lign + 1).Value = .Range("K4").Value
OD.Range("C" & lign + 1).Value = .Range("K43").Value
OD.Range("D" & lign + 1).Value = .Range("E3").Value
OD.Range("E" & lign + 1).Value = .Range("K3").Value
OD.Range("F" & lign + 1).Value = .Range("R3").Value
OD.Range("G" & lign + 1).Value = .Range("E4").Value
OD.Range("H" & lign + 1).Value = .Range("R4").Value
OD.Range("I" & lign + 1).Value = .Range("A21").Value
OD.Range("J" & lign + 1).Value = .Range("A35").Value
OD.Range("K" & lign + 1).Value = .Range("M19").Value
OD.Range("L" & lign + 1).Value = .Range("S19").Value
Else: MsgBox "Le N° de Fiche deja utilisé-creer nouvelle fiche avant !"
End If
End With
End Sub
With Sheets("Demande de travaux")
[COLOR=#ff0000]If .Range("T2").Value <> .Range("V2").Value Then[/COLOR]
OD.Range("A" & lign + 1).Value = .Range("T2").Value
OD.Range("B" & lign + 1).Value = .Range("K4").Value
OD.Range("C" & lign + 1).Value = .Range("K43").Value
OD.Range("D" & lign + 1).Value = .Range("E3").Value
OD.Range("E" & lign + 1).Value = .Range("K3").Value
OD.Range("F" & lign + 1).Value = .Range("R3").Value
OD.Range("G" & lign + 1).Value = .Range("E4").Value
OD.Range("H" & lign + 1).Value = .Range("R4").Value
OD.Range("I" & lign + 1).Value = .Range("A21").Value
OD.Range("J" & lign + 1).Value = .Range("A35").Value
OD.Range("K" & lign + 1).Value = .Range("M19").Value
OD.Range("L" & lign + 1).Value = .Range("S19").Value
[COLOR=#ff0000].Range("V2").Value = .Range("T2").Value[/COLOR]
Else: MsgBox "Le N° de Fiche deja utilisé-creer nouvelle fiche avant !"