L'indice n'appartient pas à la selection

Résolu/Fermé
sabw - 17 févr. 2017 à 14:36
 sabw - 20 févr. 2017 à 16:34
Bonjour,

Voici la macro
Sub Macro124RDMTPE()

Dim mavar As Long
Dim mavard As Long
Dim mavard1 As Long
mavar = Sheets("Variable macro").Range("B1").Value
mavard = Sheets("Variable macro").Range("B3").Value
mavard1 = Sheets("Variable macro").Range("B4").Value
Sheets("124 Feuil").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(10, 1), Array(16, 9), Array(17, 1), _
Array(24, 1), Array(32, 9), Array(69, 1), Array(75, 1), Array(81, 1), Array(87, 9), Array( _
101, 1), Array(107, 1), Array(113, 1), Array(119, 9), Array(133, 1), Array(139, 1), Array( _
145, 1), Array(151, 9), Array(220, 1), Array(226, 1), Array(232, 1), Array(238, 9), Array( _
453, 9)), TrailingMinusNumbers:=True
Range("1:9").Select
Selection.Delete Shift:=xlUp
Sheets("2017 124 W" & CStr(mavard) & " to " & CStr(mavard1)).Select

et j'ai à la dernière ligne le message 'l'indice n'appartient pas à la selection', je ne sais pas ce que cela signifie de plus que ça ne bug pas à chaque fois.
Quelqu'un peut il m'aider svp ?

2 réponses

f894009
Messages postés
16493
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 mai 2022
1 633
17 févr. 2017 à 15:01
Bonjour,

Quand vous avez l'erreur, clic sur debugage, passez le curseur souris sur les variables de la ligne en erreur pour voir leur contenu et vous pourrez diagnostiquer d'ou vient l'erreur
1