Bonjour,
Je suis totalement nouveau concernant les Macros et VBA.
En cherchant dans la partie téléchargement, j'ai trouver un super fichier de gestion de clients. Pas d'auteur donc difficile de le contacter.
Mon utilisation est différente car le but et de modifier ce fichier pour en faire une gestion de service après vente. Simple car ce fichier doit juste service d'interface pour la prise en charge et suivre l'évolution du matériel prit en charge en permettant d'imprimer un bon de prise en charge au client.
J'ai tenté, access, pas asser doué pour cela et excel me semble plus adapté à notre utilisation.
Donc, le VBA permettant me retourne une erreur sur la ligne en jaune :
Je suis totalement nouveau concernant les Macros et VBA.
En cherchant dans la partie téléchargement, j'ai trouver un super fichier de gestion de clients. Pas d'auteur donc difficile de le contacter.
Mon utilisation est différente car le but et de modifier ce fichier pour en faire une gestion de service après vente. Simple car ce fichier doit juste service d'interface pour la prise en charge et suivre l'évolution du matériel prit en charge en permettant d'imprimer un bon de prise en charge au client.
J'ai tenté, access, pas asser doué pour cela et excel me semble plus adapté à notre utilisation.
Donc, le VBA permettant me retourne une erreur sur la ligne en jaune :
Code:
Sheets("BDD").Select
Rows("2:2").Select
[COLOR="#FFFF00"]Selection.Insert Shift:=xlDown[/COLOR]
Sheets("Prise en Charge").Select
Rows("2:2").Select
Selection.Copy
Sheets("BDD").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:N").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Sheets("Prise en Charge").Select
Range("C6:C7,C9:C10,C12,C14:C16,C18:C19,C22,C26").Select
Range("C26").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("C5").Select