Sujet Précédent Sujet Suivant

Archivage simple excel

Fermé
alex-16 Messages postés 180 Date d'inscription jeudi 16 mai 2013 Statut Membre Dernière intervention 31 août 2016 - 16 juin 2016 à 15:33
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 17 juin 2016 à 11:37
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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
17 juin 2016 à 11:37
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