Archivage simple excel

alex-16 Messages postés 197 Statut Membre -  
f894009 Messages postés 17414 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 :)
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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