Archivage simple excel

alex-16 Messages postés 197 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un souci récurent sur excel,

Le code VBA et fais pou que je puisse archivée des donner sur une autre feuille.

Si pouvez confirmer si mon code est bon j'en serai ravie. 

Sub Macroarchivage()

dateAuj = Sheets("Commande du jour").Range("A1").Value

If Sheets("Archivage").Range("A2:A").Find(what:=dateAuj) Is Nothing Then

Fin = Sheets("Archivage").Range("A2" & 65535).End(xlUp).Row + 1

Sheets("Archivage").Range("A" & Fin).Value = Sheets("Commande du jour").Range("A1").Value
Sheets("Archivage").Range("B" & Fin).Value = Sheets("Commande du jour").Range("F5").Value

Else

MsgBox ("Vous avez deja archivé aujourd'hui")

End If

End Sub
Sub Aide1()

'
' Aide1
'

'
    Range("D12").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("D15").Select
    Selection.End(xlUp).Select

End Sub
Sub Aide2()
'
' Aide2
'

'
     Range("D8").Select
    Cells.Find(what:="A1", After:=ActiveCell, LookIn:=xFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub


Merci d'avance :)
--
N'oubliez pas de mettre sujet résolut si votre problème est réglez.
Que ferrais un ordinateur sans l'Homme

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

    Sub Macroarchivage()
    Dim c As Range
    
    dateAuj = Sheets("Commande du jour").Range("A1").Value
    With Sheets("Archivage")
        Fin = .Range("A2" & 65535).End(xlUp).Row + 1
        Set c = .Range("A2:A" & Fin).Find(what:=dateAuj, LookIn:=xlValues)
        If c Is Nothing Then
            .Range("A" & Fin).Value = Sheets("Commande du jour").Range("A1").Value
            .Range("B" & Fin).Value = Sheets("Commande du jour").Range("F5").Value
        Else
            MsgBox ("Vous avez deja archivé aujourd'hui")
        End If
    End With
End Sub
    0