XL 2013 Aide Excel trouvé sur Forum bug

Fitgy · 21 Avril 2021

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

herve62 · 21 Avril 2021

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 ??????

Nairolf · 21 Avril 2021

Salut,

Je pense que c'est le fil que tu recherchais : aide à la saisie dans une cellule EXCEL

Fitgy · 21 Avril 2021

Nairolf à dit:
Salut,

Je pense que c'est le fil que tu recherchais : aide à la saisie dans une cellule EXCEL

Ah merci bien !! Mais je ne vois plus de réponse depuis 2009 je vais tenter d'écrire quand même pour voir

herve62 · 21 Avril 2021

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 · 21 Avril 2021

herve62 à dit:
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 · 22 Avril 2021

herve62 à dit:
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

XL 2013 Aide Excel trouvé sur Forum bug

Fitgy

XLDnaute Junior

Pièces jointes

herve62

Nairolf

XLDnaute Accro

Fitgy

XLDnaute Junior

herve62

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Fitgy

XLDnaute Junior

Discussions similaires