Re bonjour les gars
Je vais devenir chauve à force de me tirer les cheveux
Je me trouve confronté à des problèmes d'erreurs suite au partage de mon fichier .
Je ne sais pas si c'est mon code qui n'est pas bon ou autre chose.
1er problème : Le code n'écrit plus le nombre de personne dans la feuille "stattunnel". En faite la valeur 0 ou rien me décale une colonne dans le fichier "stattunnel" et donc me fausse le reste des données qui viennent s'ajouter...
Problème 1 réglé = If Range("AN47").Value>= 0
2ème problèmes : il me signale une erreur sur la ligne
If Range("I49").Value Then Sheets("stattunnel").Cells(c.Row + 1, Columns.Count - 1).End(xlToLeft).Offset(0, 1).Value = Sheets("Tunnel").Range("I49").Value
3eme problèmes : lors du partage du fichier, i me sort une erreur à chaque changement de valeur dans les cellules de la feuille"Tunnel" ("U56:V85")
4eme problèmes : Un problème de run - time '1004' sur mon Unprotect
Exemple du message : "Erreur de méthode Unprotect pour la classe worksheet"
Voici le morceau de code situé dans le fichier "Tunnel"
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("stattunnel").Visible = False
Worksheets("stattunnel").Unprotect "12345"
Dim c As Object
If Not Application.Intersect(Target, Range("U56:V85")) Is Nothing Then
Set c = Worksheets("stattunnel").Range("A:A").Find(Int(Range("B49").Value))
If c Is Nothing Then
MsgBox "non trouvé / no trovato !"
Else
If Range("AN47").Value>= 0 Then Sheets("stattunnel").Cells(c.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Tunnel").Range("BG48").Value 'si valeur égale à 0 mettre <>0 après "If Range("BG48").Value"
End If
If Range("I49").Value Then Sheets("stattunnel").Cells(c.Row + 1, Columns.Count - 1).End(xlToLeft).Offset(0, 1).Value = Sheets("Tunnel").Range("I49").Value
End If
ThisWorkbook.Save
Worksheets("stattunnel").Protect "12345"
End Sub
Merci pour ceux qui auront le temps de me donner un coup de main