Problème d'enregistrement par VBA

[kzoo]

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 :

    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

 

[Paf]

Re : Problème d'enregistrement par VBA

Bonjour

à essayer:

Sheets("BDD").Rows("2:2").Insert Shift:=xlDown


A+

 

[kzoo]

Re : Problème d'enregistrement par VBA

Bonjour,

Merci de votre retour, cependant, l'erreur persiste.
J'ai peut être fait une erreur de synthaxe.

Sheets("BDD").Rows("2:2").Insert Shift:=xlDown
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

 

[kzoo]

Re : Problème d'enregistrement par VBA

En effet, j'avais fait une erreur de synthaxe.
Après modification, le problème se déplace

Sheets("BDD").Rows("2:2").Insert Shift:=xlDown
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

 

[Paf]

Re : Problème d'enregistrement par VBA

re bonjour

Le message d'erreur aurait été le bien venu, ainsi qu'un classeur avec quelques données représentatives !

a priori, remplacer:

Sheets("Prise en Charge").Select
Rows("2:2").Select
Selection.Copy
Sheets("BDD").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

par

Sheets("Prise en Charge").Rows("2").Copy
Sheets("BDD").Rows("14").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

il faut préciser l'emplacement où copier ; j'ai mis Rows("14") comme exemple , on pourrait mettre Range("A14") avec le même résultat.

Par ailleurs éviter cette succession de select qui alourdit le code et la vitesse d'exécution .

A+

 

[kzoo]

Re : Problème d'enregistrement par VBA

Bonjour,

Merci de votre retour, je n'ai pas eu le temps de controler depuis à cause de mon travail.

Je joints le document.

Il semble qu'une erreur provienne des cellules fusionnées.