Erreur d'exécution "13"

Résolu

GL62 -

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

Afficher la suite

2 réponses

Réponse 1 / 2
GL62 Auteur
Bonjour
Jai eu la solution a mon problème

le code excel 2003 est : Range("A" & [param_no_ligne] + 1).Select

le code pour mac excel 2011 est: Range("A" & range (param_no_ligne).value + 1).Select
0
Réponse 2 / 2
f894009
Bonjour,

[param_no_ligne] est un nom donne a une cellule, qu'est-ce qu'il y a dans la dite cellule?????
0
1. GL62 Auteur
  
  Cette cellule correspond à un numéro d'enregistrement (valeur pour affecter à format de contrôle à une base de donnée)
  
  0
2. f894009
  
  Re,
  qu'avez vous comme resultat si vous inserez la ligne ci-dessous avant la ligne qui provoque l'erreur
  
  x = Range("param_no_ligne")
  
  0
3. GL62 Auteur
  
  Re
  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
  
  0
4. f894009
  
  Re,
  
  qu'avez vous comme resultat------->li faut regarder en debug quelle valeur a x
  
  0
5. GL62 Auteur
  
  Re
  
  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
  
  '
  
  0

Erreur d'exécution "13"

2 réponses

Discussions similaires

Newsletters