Compatibilité 2010
Résolu/Fermé
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
-
10 juin 2012 à 20:26
Raymond PENTIER Messages postés 57157 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 mars 2023 - 11 juin 2012 à 05:47
Raymond PENTIER Messages postés 57157 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 mars 2023 - 11 juin 2012 à 05:47
A voir également:
- Compatibilité 2010
- Compatibilite windows 11 - Guide
- Telecharger word 2010 - Télécharger - Traitement de texte
- Compatibilité carte mere processeur - Astuces et Solutions
- Télécharger microsoft office 2010 avec clé d'activation gratuit - Télécharger - Sécurité
- Macos big sur compatibilité - Guide
3 réponses
Raymond PENTIER
Messages postés
57157
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
28 mars 2023
17 156
10 juin 2012 à 23:47
10 juin 2012 à 23:47
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é ...
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
11 juin 2012 à 05:28
11 juin 2012 à 05:28
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
Raymond PENTIER
Messages postés
57157
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
28 mars 2023
17 156
11 juin 2012 à 05:47
11 juin 2012 à 05:47
Non, il n'y a pas d'outil.