Bug de macro Excel

Bonjour à tous !

Je viens vers vous suite à un bug survenu ce matin sur un de mes fichiers.

J'ai d'un coup la console de debug qui m'eclate à la figure, sans que je n'ai touché à des macros ou à la structure même de mon fichier.

L'erreur se produit lors d'une saisie en appuyant sur le bouton "Nouvelle impression de FIS" de la feuille "Accueil", mais je ne comprends pas ce qui cloche. Un coup c'est une ligne qui est mise en surbrillance, puis une autre...

Si des âmes charitables avaient des pistes, ce serait top

D'avance, merci.

Salut,

Tu peux mettre ton code en copier/collé ou un fichier exemple s'il te plait ?

Sinon, essaie de mettre l'attribution de ta variable "Ligne" avant le With.

Cdlt,

Hi,

Tente de rajouter un .value après tes .range

Exemple :

.range("B" & Ligne).value = d2

Je pensais avoir joins le fichier, mais en fait, le fichier est trop gros pour passer ici xD

Voici donc le code, même avec le .value, j'ai la même erreur :

Sub Accueil()
    Dim Ligne As Long
    Dim d1, d2, d3, d4

      d1 = InputBox("Numéro de FIS imprimée :")
      d2 = InputBox("Votre trigramme :")
      'd3 = InputBox("Heures et minutes (HH:MM) :")
      d4 = InputBox("Typologie ticket :")
      d5 = InputBox("Commentaire :")

      With Sheets("Liste FIS")
        Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & Ligne).Value = d1
        .Range("B" & Ligne).Value = d2
        .Range("D" & Ligne).Value = d4
        .Range("E" & Ligne).Value = d5
        .Range("C" & Ligne).Value = Now

      End With

ActiveWorkbook.RefreshAll

    End Sub

Re, ta macro fonctionne très bien chez moi ^^.

Essaie quand même de mettre ta variable avant ! Et sinon je vois pas.

Cdlt,

VH_AE a écrit :

Re, ta macro fonctionne très bien chez moi ^^.

Essaie quand même de mettre ta variable avant ! Et sinon je vois pas.

Cdlt,

Effectivement, après avoir testé sur un autre PC, ca marchait parfaitement bien.

J'ai été contraint de faire une "réparation" d'Excel pour que ca refonctionne...

Merci à tous !