Excel 2010 avec Macro vers Excel 2003 avec Macro

Question

C'est peut etre une question tres simple mais je trouve pas la solution. J'ai un fichier excel 2010 comprenant une Macro et je voudrais l'enregister en Excel 2003 pour qu'il fonctionne sur un autre pc au travail, mais je voudrais que ma macro fonctionne toujours. Voulais merci Cordialement...

Jean-Eric · Accepted Answer

Tu ouvres ton fichier sous Excel 2010. Tu l'enregistres sous le le type : Classeur Excel 97-2003 (*.xls). Tu ouvres ce nouveau fichier et tu vérifies le fonctionnement de ta macro. Sans ton fichier et le code utilisé sous Excel 2010, il est impossible de dire si, il y compatibilité Cdlt...

Jean-Eric · Answer

Re,

Tu convertis Tableau1 en plage.

Tu enregistres sous 2003

Apparemment ç'est Okay.

Par contre, je ne comprends pas cette partie de code. Çà sert à quoi?

De plus de mémoire, RGB a été introduit après 2003 (je dis un bêtise )

Private Sub CommandButton_Valider_Click()
    Sheets("Ordre de Travail").Activate
    Label_date.ForeColor = RGB(0, 0, 0)
    Label_type.ForeColor = RGB(0, 0, 0)
    Label_intitulé.ForeColor = RGB(0, 0, 0)
    Label_intervenant.ForeColor = RGB(0, 0, 0)
    Label_heur.ForeColor = RGB(0, 0, 0)
    Label_minute.ForeColor = RGB(0, 0, 0)
    Label_zone.ForeColor = RGB(0, 0, 0)
    Label_equipement.ForeColor = RGB(0, 0, 0)
    Label_commentaire.ForeColor = RGB(0, 0, 0)
    Label_element.ForeColor = RGB(0, 0, 0)

    If TextBox_date.Value = "" Then
        Label_date.ForeColor = RGB(255, 0, 0)
    ElseIf ComboBox_type.Value = "" Then
        Label_type.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_intitulé.Value = "" Then
        Label_intitulé.ForeColor = RGB(255, 0, 0)
    ElseIf ComboBox_intervenant.Value = "" Then
        Label_intervenant.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_heur.Value = "" Then
        Label_heur.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_minute.Value = "" Then
        Label_minute.ForeColor = RGB(255, 0, 0)
    ElseIf ComboBox_zone.Value = "" Then
        Label_zone.ForeColor = RGB(255, 0, 0)
    ElseIf ComboBox_equipement.Value = "" Then
        Label_equipement.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox_commentaire.Value = "" Then
        Label_commentaire.ForeColor = RGB(255, 0, 0)
    ElseIf ComboBox_element.Value = "" Then
        Label_element.ForeColor = RGB(255, 0, 0)
    ElseIf Not IsNumeric(TextBox_heur) Then
        Label_heur.ForeColor = RGB(255, 0, 0)
    ElseIf Not IsNumeric(TextBox_minute) Then
        Label_minute.ForeColor = RGB(255, 0, 0)
    Else

        Dim no_ligne As Integer

        no_ligne = Range("A65536").End(xlUp).Row + 1
        no_linge = Range("A65536").End(xlUp).Borders.Value = 1