Bonjour,

J'ai un code qui doit m'informer si la valeur n'est pas en dur ( elle contient une formule ).
Il est fonctionnel sauf parfois il affiche qu'une seule alerte alors qu'il y'en a plusieurs.
donc des fois tout va bien, d'autres fois non !

ce bout de code est à l’intérieur d'une boucle.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If f2.Cells(id.Row, .Cells(1, j)).HasFormula = False Then
                            .Cells(i, j).Copy Destination:=f2.Cells(id.Row, .Cells(1, j))
                            f2.Cells(id.Row, .Cells(1, j)).AddComment vbCrLf & "Valeur : " & tmp & " source : " & f1.Name & Now & Chr(10) & tmp_comment
                            Else
                            reponse = MsgBox("Cellule " & id & " Colonne " & f2.Cells(id.Row, .Cells(1, j)).Colonne & " " & "a une formule!!  " & "voulez vous continuer ?", vbYesNo + vbCritical)
 
                             If reponse = vbYes Then
                             If f2.Cells(id.Row, .Cells(1, j)).HasFormula = False Then
                             .Cells(i, j).Copy Destination:=f2.Cells(id.Row, .Cells(1, j))
                             f2.Cells(id.Row, .Cells(1, j)).AddComment vbCrLf & "Valeur : " & tmp & " source : " & f1.Name & Now & Chr(10) & tmp_comment
                             End If
                             Else
                             Exit Sub
                             End If
 
                            End If
merci pour votre aide