Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 24/01/2012, 12h11   #1
Invité régulier
 
Inscription : novembre 2011
Messages : 28
Détails du profil
Informations forums :
Inscription : novembre 2011
Messages : 28
Points : 5
Points : 5
Par défaut Problemes de compatibilite entre excel 2010 et excel 2007

Bonjour a tous,

J'ai cree une base de donnes sur excel 2010 avec des formules macro et format conditionnel (Jeux d'icones)

Quand je suis sur excel 2010 tout fonctionne mais quand d'autres collegues qui ont le 2007 en utilisent le fichier rencontrent les problemes suivants:

Le format conditionnel disparait ( jeu d'icones)
certaines macro ne fonctionnet plus avec un message d'erruer disant hideen object dans mon cas il se nomme mdValidcolumn don le code est le suivant:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
 
 
'Fonction qui vérifie si la cellule selectionnée utilisera la selection de date
'Pour le moment, c'est uniquement par colonne en oubliant la première ligne. A adapter pour quelque chose
'de plus complexe (avec des range par exemple)
Public Function isForDate(ByVal rg As Range, ByVal validCols As String) As Boolean
    Dim listCol() As String
    Dim rgCol As Integer
    Dim i As Integer
    Dim dashPos As Integer
    Dim min, max As Integer
 
    rgCol = rg.Column
 
    listCol = Split(validCols, ",")
 
    If rg.Row < 6 Or rg.Row > 90 Then
        isForDate = False
        Exit Function
    End If
 
    For i = 0 To UBound(listCol)
        dashPos = InStr(listCol(i), "-")
        If dashPos = 0 Then
            If rgCol = CInt(listCol(i)) Then
                isForDate = True
                Exit Function
            End If
        Else
            min = CInt(Mid(listCol(i), 1, dashPos - 1))
            max = CInt(Mid(listCol(i), dashPos + 1, Len(listCol(i))))
            If rgCol >= min And rgCol <= max Then
                isForDate = True
                Exit Function
            End If
        End If
    Next i
 
    isForDate = False
End Function
J'ai essaye tous ce que je connaissais comme solution (Sauvgarde dans des formats compatibles et autres mais rien ne marche)

Si quelqu'un peut m'aider a y voir plus claire.

Merci d'avance
marama12 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h27.


 
 
 
 
Partenaires

Hébergement Web