Problème de conservation de données

[ezrielle]

Bonjour à tous,

J'aimerai créer une bibliothèque d'article car pour le moment je rentre mes articles par projet mais quand je ferai une remise à zero pour un nouveau projet je vais perdre mes articles et des données importantes dans ma base de données egalement.

Je vous ai joint mon fichier excel avec plus d'explication sur la feuille article.

Je vous remercie par avance de votre aide qui me sera précieuse pour avancer dans mon projet.

LA Novice

Ezrielle

 

[ezrielle]

Re : Problème de conservation de données

Bonjour à tous, vraiment besoin d'aide n'auriez vous pas une idée qui pourrait m'aider pour résoudre ce problème.

Merci beaucoup d'avance

Ezrielle

 

[PascalXLD]

Re : Problème de conservation de données

Bonjour

Si tu regardes en bas à droite de ton ecran tu verras que nous sommes dimanche.
Donc il faut être un peu patiente; merci d'avance

 

[PascalXLD]

Re : Problème de conservation de données

Re

Tu vas ouvrir combien de fil ??

Maintenant je supprime au fur et à mesure 😡

 

[Paritec]

Re : Problème de conservation de données

Bonjour Pascal, tu es un bon modérateur, mais attention a ton petit coeur cool
amitiés
Papou

PS: il ou elle n'as pas compris en bas à droite du PC !!!!!!!!

 

[Cousinhub]

Re : Problème de conservation de données

Bonsoir,

Bonsoir, Pascal et Papou

ezrielle, essaie ce code, dans l'évènement de feuille (clic droit sur le nom de l'onglet, et "Visualiser le code", copier ce code et le coller)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 2 And Not (Target.Offset(0, 1).HasFormula) Then
        Application.EnableEvents = False
        ancien = Target
        Range(Cells(Target.Row - 1, 1), Cells(Target.Row - 1, 11)).Copy Target.Offset(0, -1)
        Target = ancien
        Application.EnableEvents = True
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 2 And Target = "" And Target.Offset(-1, 1).HasFormula Then
        With Target
            .Validation.Delete
            .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=FoCodeFourn"
            .Interior.ColorIndex = 37
        End With
    End If
End If
End Sub

 

[ezrielle]

Re : Problème de conservation de données

Bonjour merci de m'avoir répondu désolé pour les différents fils!!

Par contre je n'ai pas tout compris à ton code VBA.
Et quand je le colle, normalement comme il faut, cela ne marche pas!

Pourrais tu m'éclairer stp?

MErci encore pour ton aide et de t'intéresser à mon problème.

Bonne soirée

Ezrielle