Erreur d'exécution "13"
Résolu
GL62
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
GL62 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
GL62 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une base de données que j'ai fais moi même sur excel 2003 sous windows 7 qui fonctionne parfaitement ; par contre je l'installe sur mon mac avec excel 2011,j'ai un débogage avec erreur d'exécution "13" Incompatibilité de type
La phrase en défaut est:
Range("A" & [param_no_ligne] + 1).Select
Je ne sais pas comment résoudre ce problème
J'ai une base de données que j'ai fais moi même sur excel 2003 sous windows 7 qui fonctionne parfaitement ; par contre je l'installe sur mon mac avec excel 2011,j'ai un débogage avec erreur d'exécution "13" Incompatibilité de type
La phrase en défaut est:
Range("A" & [param_no_ligne] + 1).Select
Je ne sais pas comment résoudre ce problème
A voir également:
- Erreur d'exécution "13"
- Fifa 13 - Télécharger - Jeux vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
qu'avez vous comme resultat si vous inserez la ligne ci-dessous avant la ligne qui provoque l'erreur
x = Range("param_no_ligne")
j'ai toujours le même résultat ; je peu vous envoyez mon montage complet pour mieux comprendre
Le problème c'est l'incompatibilité entre excel 2003 sous windows et excel 2011 sur mac
qu'avez vous comme resultat------->li faut regarder en debug quelle valeur a x
j'ai toujours le même message d'erreur (13) et je ne sais pas comment voir la valeur de x
Sub Modification()
'
' Modification Macro
' Macro enregistrée le 22/09/2012 par admin
'
Sub Modification()
'
' Modification Macro
' Macro enregistrée le 22/09/2012 par admin
'
'
Range("A2:EH2").Select
Selection.Copy
Sheets("BD").Select
x = Range("param_no_ligne")
Range("A" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("CONSULTATION").Select
Range("M11:N11").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.ClearContents
Range("Q11:R12").Select
Selection.ClearContents
Range("L15:O15").Select
Selection.ClearContents
Range("L16:O16").Select
Selection.ClearContents
Range("L17").Select
Selection.ClearContents
Range("L18:M18").Select
Selection.ClearContents
Range("L19:M19").Select
Selection.ClearContents
Range("N17:O17").Select
Selection.ClearContents
Range("L19:M19").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("Q11:R12").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=9
Range("K22:Q52").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=9
Range("R54").Select
Selection.ClearContents
Range("R56").Select
Selection.ClearContents
Range("R57").Select
Selection.ClearContents
Range("R58").Select
ActiveWindow.SmallScroll Down:=-21
End Sub
'