Fichier basique pour inventaire avec douchette

calyburo a écrit :

Je ne suis pas douée, mais avec le fichier précédent tel quel, j'ai cliqué sur "lancer le traitement" et ça a fonctionné tout de suite.

Si je fais la même chose avec celui ci cela ne fonctionne pas

je n'ai pas fait de modif dessus

pourriez vous me l'envoyer celui que vous copiez coller.

Merci

Erreur de ma part.

J'ai oublié de retirer un contrôle

Celui ci va aller bcp mieux

Merci, merci

En définitive, il fonctionne parfaitement, mais pas sur mon excel 2000.

Je trouverai l'astuce pour traiter sur un autre ordinateur et basculer.

Dernière question (je pense, mais ce n'est pas sûr ) : sur le fichier inventaire, puis-je changer le format de la cellule de scan sans risque ? Ou comment faire pour que lorsque je saisis un code comme celui ci : 006545 les 2 zéros soient bien pris en compte dans mon code produit ?

Merci encore, bonne soirée et bon week-end.

J'espère que vous faites autre chose qu'aider les autres

calyburo a écrit :

Merci, merci

En définitive, il fonctionne parfaitement, mais pas sur mon excel 2000.

Je trouverai l'astuce pour traiter sur un autre ordinateur et basculer.

Dernière question (je pense, mais ce n'est pas sûr ) : sur le fichier inventaire, puis-je changer le format de la cellule de scan sans risque ? Ou comment faire pour que lorsque je saisis un code comme celui ci : 006545 les 2 zéros soient bien pris en compte dans mon code produit ?

Merci encore, bonne soirée et bon week-end.

J'espère que vous faites autre chose qu'aider les autres

Bonjour passer en format texte. Pas de soucis au traitement.

Tenez moi informe

Bonjour

vraiment il ne fonctionne pas bien

'Finalisation ### Creation tableau / copier coller valeur plus de formule ###
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("A1:B" & dlg_cad).Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$B$" & dlg_cad), , xlYes).Name = _
        "Tableau3"
    Range("Tableau3[#All]").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Sheets("Inventaire").Select
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft

    'Traitement EAN / Produit
    Sheets("Resultat Inventaire").Activate
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Resultat Inventaire").Range("B1").FormulaR1C1 = "Produit"

    'Si EAN >= 9 digits on passe dans la deuxieme colonne
    For Each c In Sheets("Resultat Inventaire").Range("A2:A" & dlg_cad)
    If Len(c) >= 9 Then
    Else
    c.Offset(0, 1) = c
    c.Value = ""
    End If
    Next

Bonjour,

Pour terminer avec ce post, je vous remercie infiniment pour votre travail.

Les fichiers fonctionnent parfaitement pour ce que je veux en faire.

Je vous souhaite de bonnes fêtes de fin d'année ainsi qu'une excellente année 2015.

Laurence

calyburo a écrit :

Bonjour,

Pour terminer avec ce post, je vous remercie infiniment pour votre travail.

Les fichiers fonctionnent parfaitement pour ce que je veux en faire.

Je vous souhaite de bonnes fêtes de fin d'année ainsi qu'une excellente année 2015.

Laurence

Bonsoir

Merci beaucoup.

Tout pareillement.

Cela a été un plaisir de vous accompagner dans "ce projet".

Ravi que cela vous plaise.

Cdt,