erreur d'exec 1004...erreur definie par l'objet ou application

Sub selection1()


Dim i As Integer
Dim a As Integer
Dim numchambre As String
Dim numplanche As String
Dim typechambre As String
Dim lettre As String
Dim j As Integer
Dim s As Integer




typechambre = ActiveSheet.Shapes("Text Box 4").TextFrame.Characters.Text
MsgBox (typechambre)
typechambre = ActiveSheet.Shapes("Text Box 4").TextFrame.Characters.Text
MsgBox (typechambre)


a = Sheets(typechambre).Range("G65536").End(xlUp).Row
MsgBox (a)



For i = 0 To i = a

numchambre = ActiveSheet.Shapes("Text Box 2").TextFrame.Characters.Text
numplanche = ActiveSheet.Shapes("Text Box 3").TextFrame.Characters.Text
MsgBox (numchambre)
MsgBox (numplanche)

If ((Sheets(typechambre).Range("A" & i).Value = numchambre) And (Sheets(typechambre).Range("B" & i).Value = numplanche) And (Sheets(typechambre).Range("C" & i).Value = typechambre)) Then
s = 2
j = i
Do



Sheets("affichage").Range("A" & j).Value = Sheets(typechambre).Range("A" & s).Value
Sheets("affichage").Range("B" & j).Value = Sheets(typechambre).Range("B" & s).Value
Sheets("affichage").Range("C" & j).Value = Sheets(typechambre).Range("C" & s).Value
Sheets("affichage").Range("D" & j).Value = Sheets(typechambre).Range("D" & s).Value
Sheets("affichage").Range("E" & j).Value = Sheets(typechambre).Range("E" & s).Value
Sheets("affichage").Range("F" & j).Value = Sheets(typechambre).Range("F" & s).Value
Sheets("affichage").Range("G" & j).Value = Sheets(typechambre).Range("G" & s).Value
Sheets("affichage").Range("H" & j).Value = Sheets(typechambre).Range("H" & s).Value
Sheets("affichage").Range("I" & j).Value = Sheets(typechambre).Range("I" & s).Value

j = j + 1
s = s + 1

Loop While ((Sheets("lettre").Range("A" & j) <> numchambre) And (Sheets("lettre").Range("A" & j) <> ""))
Else: MsgBox ("on n'a rien pour l'instant")

Cliquez pour agrandir...