Erreur d'exécution "13"
Résolu/Fermé
GL62
Messages postés
12
Date d'inscription
mardi 25 septembre 2012
Statut
Membre
Dernière intervention
9 février 2013
-
25 sept. 2012 à 18:02
GL62 Messages postés 12 Date d'inscription mardi 25 septembre 2012 Statut Membre Dernière intervention 9 février 2013 - 29 sept. 2012 à 15:05
GL62 Messages postés 12 Date d'inscription mardi 25 septembre 2012 Statut Membre Dernière intervention 9 février 2013 - 29 sept. 2012 à 15:05
A voir également:
- Erreur d'exécution "13"
- Erreur 0x80070643 - Guide
- Erreur 38 free ✓ - Forum Mobile
- Erreur d'execution 1004 - Forum Programmation
- Iptv erreur de lecture - Forum TV & Vidéo
- Fifa 13 apk - Télécharger - Jeux vidéo
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
25 sept. 2012 à 18:28
25 sept. 2012 à 18:28
Bonjour,
[param_no_ligne] est un nom donne a une cellule, qu'est-ce qu'il y a dans la dite cellule?????
[param_no_ligne] est un nom donne a une cellule, qu'est-ce qu'il y a dans la dite cellule?????
GL62
Messages postés
12
Date d'inscription
mardi 25 septembre 2012
Statut
Membre
Dernière intervention
9 février 2013
29 sept. 2012 à 15:05
29 sept. 2012 à 15:05
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
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
25 sept. 2012 à 19:00
25 sept. 2012 à 20:08
qu'avez vous comme resultat si vous inserez la ligne ci-dessous avant la ligne qui provoque l'erreur
x = Range("param_no_ligne")
25 sept. 2012 à 20:45
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
25 sept. 2012 à 20:48
qu'avez vous comme resultat------->li faut regarder en debug quelle valeur a x
Modifié par GL62 le 25/09/2012 à 21:15
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
'