Erreur Incompatibilité de Type

Bonjour à tous,

Dans ma feuille édition, j'ai créé un bouton Impression Total afin d'imprimer l'ensemble de mes feuilles de tournée pour les valeurs dans la liste déroulantes. Cela marchait très bien hier mais aujourd'hui j'ai une erreur qui me marque : " Incompatibilité de Type".

Quelqu'un a-t-il déjà rencontré ce genre d'erreur ?

Merci par avance.

Bonjour TomR35,

Après débogage, votre problème se situe sur cette ligne

Lorsqu'on clique sur le bouton, voici ce que l'on a

Il faut modifier la boucle dans la sub "ImpressionTotal" et commencer à 2 et non 1 = Entête

Sub ImpressionTotal()
  NuméroTournée = Sheets("Edition").Range("NumTournée")

  Set myRange = Worksheets("Personnel").Range("F2:F65000")
  response = Application.WorksheetFunction.Max(myRange)

  For i = 2 To response
    Range("indice_nom").Value = Sheets("Personnel").Cells(i, 6)
    Call Formulaire
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
      IgnorePrintAreas:=False
  Next i

End Sub

@+