Macros de Excel 2016 a version 2013 ne fonctionnent Pas

BONSOIR A TOUS

je viens de passer de excell 2016 a 2013 et mes macros ne fonctionnent plus

probleme avec le mot Ligne

qui peut m'aider ?

Bonsoir,

Dans le menu VBA, Outils > Références... tu devrais peut être déjà décocher les références manquantes.

Ensuite si ça ne suffit pas indiquer quelle macro (Quel module) pose problème...

A+

Bonjour,

et puis

probleme avec le mot Ligne

eric

Bonjour,

rominay a écrit :

BONSOIR A TOUS

je viens de passer de excell 2016 a 2013 et mes macros ne fonctionnent plus

probleme avec le mot Ligne

qui peut m'aider ?

Le mot ligne : ton code dit .... goto Line1 ou encore goto Line2 ... cela présume que tu as une étiquette en quelque part, dans cette même macro, du genre ...

Line1:

Cela veut dire que si la condition est vrai, saute le reste du code et rends-toi directement à l'étiquette ... exemple :

Private Sub ANNULE_Click() 'annule derniere ligne

Range("A184").Select
Selection.End(xlUp).Select
Ligne = ActiveCell.Row

If ActiveCell.Value = "ARTICLES" Then GoTo Line1
Cells(Ligne, 1).Value = ""
Cells(Ligne, 2).Value = ""
Cells(Ligne, 3).Value = ""
Cells(Ligne, 20).Value = ""

Line1:

End Sub

Je te suggère, dans Vbe, menu Debogage > Compiler VBAProjet > le compileur va se promener et arrêter sur toutes les erreurs ... qu'il te restera à corriger.

Repasse le compileur et corrige jusqu'à ce que le compileur ne trouve plus rien ... Cela ne garantira pas que le code va faire exactement ce que tu désires ... mais, au mois, il n'aura plus d'erreur de syntaxe.

Patience, ça avance

Gelinotte

merci pour vos reponses

ce qui m'embete c'est que ces codes fonctionnaient très bien puisque j'utilise ma caisse depuis 2 mois avec une version d'excell 2016 et hier soir un ami m'a installé une version excell 2013 donc a désinstallé la 2016 et là les problèmes ont commencés avec en plus un message "les bibliothèques ont disparus" est ce un problème de desinstallation.Ma version 2016 etait une version gratuite mais bridée achetée avec le pc .

Bonjour,

Selon les erreurs que j'ai relevé, ça n'a rien à voir avec la version de Excel.

J'ai relevé des "sub" sans "end sub"

Des "end sub" sans "sub"

2 sub de suite

Des étiquiquettes ( Line1: ) manquantes

Etc.

Voici quelques exemples (ici deux "End Sub" de suite) :

Private Sub CommandButton2_Click()

Range("B184").Select
Selection.End(xlUp).Select
Ligne = ActiveCell.Row + 1

Cells(Ligne, 2).Value = Sheets("DONNEES").Cells(1, 1).Value
Cells(Ligne, 3).Value = Sheets("DONNEES").Cells(2, 1).Value
Cells(Ligne, 4).Value = Sheets("DONNEES").Cells(3, 1).Value

End Sub    ' deux End Sub de suite

End Sub

Ici 2 lignes ramenées en une seul d'où l'erreur

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("B6").Select
    ActiveSheet.Buttons.Add(84.75, 198.75, 72.75, 44.25).Select
    Selection.OnAction = "Macro2"    ActiveSheet.Shapes("Button 82").IncrementLeft 99.1304724409  '  ICI deux lignes mises en une

    ActiveSheet.Shapes("Button 82").IncrementTop 29.3477952756
    ActiveSheet.Shapes("Button 82").ScaleWidth 0.5702152061, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("Button 82").ScaleHeight 0.5391368553, msoFalse, _
        msoScaleFromBottomRight
    Selection.Characters.Text = "<<<<<"
    With Selection.Characters(Start:=1, Length:=5).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("B12").Select
    ActiveSheet.Shapes.Range(Array("Button 82")).Select
    Selection.OnAction = "macro3"
End Sub

Devrait être :

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("B6").Select
    ActiveSheet.Buttons.Add(84.75, 198.75, 72.75, 44.25).Select
    Selection.OnAction = "Macro2"                          ' ici
     ActiveSheet.Shapes("Button 82").IncrementLeft 99.1304724409  ' et ici
    ActiveSheet.Shapes("Button 82").IncrementTop 29.3477952756
    ActiveSheet.Shapes("Button 82").ScaleWidth 0.5702152061, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("Button 82").ScaleHeight 0.5391368553, msoFalse, _
        msoScaleFromBottomRight
    Selection.Characters.Text = "<<<<<"
    With Selection.Characters(Start:=1, Length:=5).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("B12").Select
    ActiveSheet.Shapes.Range(Array("Button 82")).Select
    Selection.OnAction = "macro3"
End Sub

Un dernier exemple ( 2 "Sub .." de suite ) :

Sub Rectangle106_Cliquer()    '<< sub 
Sub Rectangle110_Cliquer()    '  <<< et un 2e sub
Range("B184").Select
Selection.End(xlUp).Select
Ligne = ActiveCell.Row + 1

Cells(Ligne, 2).Value = Sheets("DONNEES").Cells(1, 38).Value
Cells(Ligne, 3).Value = Sheets("DONNEES").Cells(2, 38).Value
Cells(Ligne, 4).Value = Sheets("DONNEES").Cells(3, 38).Value
Cells(Ligne, 6).Value = Sheets("DONNEES").Cells(4, 38).Value
Cells(Ligne, 7).Value = Sheets("DONNEES").Cells(5, 38).Value
End Sub

Selon le fichier que tu nous a proposé, c'est impossible que ce code fonctionnait sans une tonne d'erreurs.

Tout le monde sur ce forum te le confirmera.

Si ça fonctionnait avant, quelqu'un a foutu le bordel dans le code. N'aurais-tu pas une copie de sauvegarde en quelque part ??

Gelinotte

Bonjour,

et quand tu auras retrouvé une version correcte (c'est vrai qu'on dirait qu'un enfant de 5 ans a été faire un tour dans l'éditeur) tu auras cette référence à décocher :

eric