XL 2013 Aide Excel trouvé sur Forum bug

Fitgy

XLDnaute Junior
Bonjour le forum,

J'espère que vous vous portez bien.

J'ai un problème avec un excel que j'ai trouvais sur ce forum mais impossible de retrouver le lien de celui-ci.
Je vous met cet excel en copie (copie de liste clients) ainsi que l'excel que j'ai modifié (liste fournisseur) si vous arrivez à m'aider à retrouver la personne qui l'a fait sinon je vous expose mon problème.
Tel que vous ouvrirez l'excel que j'ai modifié c'est exactement ce que je veux j'ai plus ou moins réussis à modifier tout ce que je voulais néanmoins il y a deux points ou je bug :
- Dans mon onglet modifier le fournisseur je suis sensé rentrer dans les case jaune la modification que je veux effectuer et cliquer sur modifier mais la macro bug et je ne comprend pas le bug (TOP = -6)
- Et dans un deuxième temps j'ai réussis à m'adapter en fonction du premier excel dans mes formules mais je ne comprends pas pourquoi quand je change les titres dans la base de données ce sont tous de même les anciens titres qu'ils faut utiliser dans les formules ? 🤨 Où va-t-elle les chercher ces titres si ce n'est pas de la BD ?

Je suis désolé je débute j'essaye de vouloir tout comprendre mais certaines choses m'échappent vraiment...
Merci d'avance pour votre aide 🙂
 

Pièces jointes

  • Liste fournisseur.xls
    154.5 KB · Affichages: 7
  • Copie de LISTE_CLIENTS_LAUVIZH.xls
    132 KB · Affichages: 6
Solution
Bonsoir
Vite fait j'ai regardé le début , une modif à faire > Activeworkbook ........
ensuite ça plante à nouveau à sheets(Modifier le client)
Je ne vois pas cette feuille ??
VB:
 Range("A2:X2").Select
    Selection.Copy
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled   '  AJOUTER ICI
    With ActiveWindow
        .Top = -6
        .Left = -3
    End With
    Sheets("BD").Select
    Range("A" & [PARAM_NO_LIGNE] + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    With ActiveWindow
        .Top = -1
        .Left = 0
    End With
    Sheets("Modifier le client").Select C'est OU ??????

herve62

XLDnaute Barbatruc
Supporter XLD
Bonsoir
Vite fait j'ai regardé le début , une modif à faire > Activeworkbook ........
ensuite ça plante à nouveau à sheets(Modifier le client)
Je ne vois pas cette feuille ??
VB:
 Range("A2:X2").Select
    Selection.Copy
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled   '  AJOUTER ICI
    With ActiveWindow
        .Top = -6
        .Left = -3
    End With
    Sheets("BD").Select
    Range("A" & [PARAM_NO_LIGNE] + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    With ActiveWindow
        .Top = -1
        .Left = 0
    End With
    Sheets("Modifier le client").Select C'est OU ??????
 

Fitgy

XLDnaute Junior
Bonsoir
Vite fait j'ai regardé le début , une modif à faire > Activeworkbook ........
ensuite ça plante à nouveau à sheets(Modifier le client)
Je ne vois pas cette feuille ??
VB:
 Range("A2:X2").Select
    Selection.Copy
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled   '  AJOUTER ICI
    With ActiveWindow
        .Top = -6
        .Left = -3
    End With
    Sheets("BD").Select
    Range("A" & [PARAM_NO_LIGNE] + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    With ActiveWindow
        .Top = -1
        .Left = 0
    End With
    Sheets("Modifier le client").Select C'est OU ??????
Bonjour herve,

Ah j'esserais ça demain aux aurores je te remercie !
Ah oui effectivement bêtise ridicule de ma part en faite j'ai modifié le nom des onglets et j'ai oublié de le faire dans les macros 🙊 je vous jure il ne faut pas être blonde 😂
 

Fitgy

XLDnaute Junior
Bonsoir
Vite fait j'ai regardé le début , une modif à faire > Activeworkbook ........
ensuite ça plante à nouveau à sheets(Modifier le client)
Je ne vois pas cette feuille ??
VB:
 Range("A2:X2").Select
    Selection.Copy
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled   '  AJOUTER ICI
    With ActiveWindow
        .Top = -6
        .Left = -3
    End With
    Sheets("BD").Select
    Range("A" & [PARAM_NO_LIGNE] + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    With ActiveWindow
        .Top = -1
        .Left = 0
    End With
    Sheets("Modifier le client").Select C'est OU ??????
Bonjour Herve,

je te remercie ça marche parfaitement je vais essayer de comprendre le code maintenant :D
 

Discussions similaires

Réponses
11
Affichages
460
Réponses
5
Affichages
290

Statistiques des forums

Discussions
311 711
Messages
2 081 782
Membres
101 817
dernier inscrit
carvajal