XL 2013 Aide Excel trouvé sur Forum bug

  • Initiateur de la discussion Initiateur de la discussion Fitgy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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 ??????
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 ??????
 
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 😂
 
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 😀
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
1 K
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
622
Retour