Discussion :

[jcwarot]

Bonjour,
J'ai un bug sur ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Windows("BIBLE.XLS").Activate
    Dim RefCode As Range
    Set RefCode = Columns("A").Find(code)
    If RefCode Is Nothing Then
        MsgBox "Non trouvé"
        Windows(CLASSINIT).Activate
    Else
        RefCode.Activate
        TRANSFERT2
    End If

Quelqu'un peut-il m'aider ?
Merci

[joe.levrai]

Bonjour,

quel bug, quel message, sur quelle ligne, que vaut CLASSINIT ? Quelle est la procédure se rapportant à TRANSFERT2 ?

En bref, un peu d'éléments si tu souhaites de l'aide

[jcwarot]

Bonjour et merci de vous plonger sur mon problème.
C'est une feuille excel que j'avais développé sur Excel 2003(avec une bible article en fichier séparé) pour faire des études dans le milieu du BTP.
Aujourd'hui sur Office 365 cela ne me renvoie que des bugs et je n'ai plus acces à la bible des articles.
Envoyez-moi une adresse mail et je vous envoie tous les documents afin que vous voyez l'ampleur du problème.

Cordialement
JC WAROT

[Menhir]

Aujourd'hui sur Office 365 cela ne me renvoie que des bugs et je n'ai plus acces à la bible des articles.

VBA ne peut pas renvoyer "des" bug vu qu'au premier bug l'exécution s'arrête.

On fait un second essai : Quel description de bug ? Sur quelle ligne (au singulier) de code ?

Envoyez-moi une adresse mail et je vous envoie tous les documents afin que vous voyez l'ampleur du problème.

Je ne crois pas qu'il y aura beaucoup de participants assez inconscients pour accepter une telle démarche.

[jcwarot]

Bonjour,

Ca commence sur la deuxième ligne de cette commande :

Set MyBarMenu = CommandBars.ActiveMenuBar
Set HelpBarMenu = CommandBars.ActiveMenuBar.Controls.Item(10)
Set HelpCommand = HelpBarMenu.Controls.Item(1)
ElimMenu (MyBarMenu)
'HelpCommand.Control.ShortcutText = ""
'CommandBars.ActiveMenuBar.Controls.Item(10).Controls.Item(1).Control.ShortcutText = ""
On Error GoTo NeRienFaire

Merci

[jcwarot]

Et le message est :
Erreur d'execution '9'
L'indice n'appartient pas à la sélection

C'est une macro qui a été écrite au départ avec Excel 2003 et j'utilise maintenant soit 2010 ou office 365.