Compatibilité 2010
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
Raymond PENTIER Messages postés 58993 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58993 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
mon classeur excel 2007 beugue avec 2010 quelles sont les solutions? reprendre une a une les macros et calculs ? ou existe il un outil qui permet de corriger ?
merci
a bientôt
mon classeur excel 2007 beugue avec 2010 quelles sont les solutions? reprendre une a une les macros et calculs ? ou existe il un outil qui permet de corriger ?
merci
a bientôt
A voir également:
- Compatibilité 2010
- Compatibilite windows 11 - Guide
- Clé activation office 2010 gratuit - Télécharger - Sécurité
- Word 2010 - Télécharger - Traitement de texte
- Waptrick java football 2010 - Télécharger - Jeux vidéo
- Visual basic 2010 express - Télécharger - Langages
3 réponses
Sois plus précis : quel genre de bugs ?
Car normalement il n'y a pas de problème de compatibilité ...
Car normalement il n'y a pas de problème de compatibilité ...
bonjour
ce sont surtout 2 macros qui bloquent
Private Sub Workbook_Open()
For Each Sh In Sheets
Sh.Protect "toto"
Next Sh
Feuil19.CommandButton2.Visible = False
Feuil19.CommandButton1.Visible = True
End Sub
il bloque sur celle la des l'ouverture c'est un bouton de protection des feuilles du classeur il me souligne Sh en 2eme ligne
puis après celle ci
Private Sub Calendar1_Click()
ActiveCell = Calendar1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim OK As Boolean
' si la sélection sur la feuille change (target est la référence de la sélection)
OK = Not Intersect(Target, Union([A9:B27], [E9:F27], [I9:J27], [M9:N27], [Q9:R27], [U9:V27], [Y9:Z27], [AC9:AD27], [AG9:AH27], [AK9:AL27], [AO9:AP27], [AS9:AT29], [AW9:AX27], [BA9:BB27], [BE9:BF27], [BI6:BJ27], [BM9:BN27], [BQ9:BR27], [BU9:BV27], [BY9:BZ27], [CC9:CD27], [CG9:CH27], [CK9:CL27], [CO9:CP27], [CS9:CT27], [CW9:CX27], [DA9:DB27], [DE9:DF27], [DI9:DJ27], [DM9:DN27])) Is Nothing
' si plus de 30 plages
OK = OK Or Not Intersect(Target, Union([DQ9:DR27], [DU9:DV27], [DY9:DZ27], [EC9:ED27], [EG9:EH27], [EK9:EL27])) Is Nothing
OK = OK And Target.Cells.Count = 1
'
If Not OK Then
'alors on cache le calendrier
Calendar1.Visible = False
Exit Sub
Else
'sinon
Calendar1.Top = Target.Offset(1, 0).Top + 20
' aligner le calendrier avec le haut de la cellule en dessous
Calendar1.Left = Target.Left + 1
' l'aligner à gauche de la cellule
'Calendar1.LinkedCell = Target.Address
' mettre la cellule liée au contrôle sur la cellule sélectionnée
If IsDate(Target.Value) Then
'si la cellule sélectionnée contient une date
Calendar1.Value = Target.Value
' la récupérer
Else
' sinon mettre la date du jour
Calendar1.Value = Date
End If
Calendar1.Visible = True
'afficher le calendrier
End If
End Sub
il bloque et me souligne [A9:B27] et marque en alerte d'erreur
"erreur de compilation projet ou bibliothèque introuvable"
cet ordinateur ou ça marche bien est sous Xp 32bits excel2007
le 2EME est windows7 64bits Excel 2010
merci
a bientot
ce sont surtout 2 macros qui bloquent
Private Sub Workbook_Open()
For Each Sh In Sheets
Sh.Protect "toto"
Next Sh
Feuil19.CommandButton2.Visible = False
Feuil19.CommandButton1.Visible = True
End Sub
il bloque sur celle la des l'ouverture c'est un bouton de protection des feuilles du classeur il me souligne Sh en 2eme ligne
puis après celle ci
Private Sub Calendar1_Click()
ActiveCell = Calendar1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim OK As Boolean
' si la sélection sur la feuille change (target est la référence de la sélection)
OK = Not Intersect(Target, Union([A9:B27], [E9:F27], [I9:J27], [M9:N27], [Q9:R27], [U9:V27], [Y9:Z27], [AC9:AD27], [AG9:AH27], [AK9:AL27], [AO9:AP27], [AS9:AT29], [AW9:AX27], [BA9:BB27], [BE9:BF27], [BI6:BJ27], [BM9:BN27], [BQ9:BR27], [BU9:BV27], [BY9:BZ27], [CC9:CD27], [CG9:CH27], [CK9:CL27], [CO9:CP27], [CS9:CT27], [CW9:CX27], [DA9:DB27], [DE9:DF27], [DI9:DJ27], [DM9:DN27])) Is Nothing
' si plus de 30 plages
OK = OK Or Not Intersect(Target, Union([DQ9:DR27], [DU9:DV27], [DY9:DZ27], [EC9:ED27], [EG9:EH27], [EK9:EL27])) Is Nothing
OK = OK And Target.Cells.Count = 1
'
If Not OK Then
'alors on cache le calendrier
Calendar1.Visible = False
Exit Sub
Else
'sinon
Calendar1.Top = Target.Offset(1, 0).Top + 20
' aligner le calendrier avec le haut de la cellule en dessous
Calendar1.Left = Target.Left + 1
' l'aligner à gauche de la cellule
'Calendar1.LinkedCell = Target.Address
' mettre la cellule liée au contrôle sur la cellule sélectionnée
If IsDate(Target.Value) Then
'si la cellule sélectionnée contient une date
Calendar1.Value = Target.Value
' la récupérer
Else
' sinon mettre la date du jour
Calendar1.Value = Date
End If
Calendar1.Visible = True
'afficher le calendrier
End If
End Sub
il bloque et me souligne [A9:B27] et marque en alerte d'erreur
"erreur de compilation projet ou bibliothèque introuvable"
cet ordinateur ou ça marche bien est sous Xp 32bits excel2007
le 2EME est windows7 64bits Excel 2010
merci
a bientot