100% dans code VBA

Bonjour

Dans ce code je n'arrive pas a faire accepter 100% au lieu de 100 comme sur la ligne ci-dessous

If Target.Value = 100 Then

Comment procéder

Merci pour votre aide

Crdlt

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A:AAZ")) Is Nothing Then

If Target.Value = 100 Then

Target.Offset(0, 1) = Date

End If

End If

End Sub

Bonjour,

Peut-être que 100% = 1 ?

oxydum a écrit :

Bonjour,

Peut-être que 100% = 1 ?

Bonjour

Avec =1 cela ne fonctionne pas normalement il faut dire que dans les colonnes ou sont les % ,ses résultats proviennent d'une autre feuille .

Quand le 100% apparait dans la feuille ou doit s'inscrire la date je suis obligé de cliquer sur la cellule ou est le 100% pour

que la date se fige.

Je ne vois pas comment résoudre ce problème pour que la date se mette automatiquement quand 100% apparait

Si vous avez des solutions je suis preneur

Cordialement

Bonjour,

Peux tu transmettre ton fichier ?

Bastien62 a écrit :

Bonjour,

Peux tu transmettre ton fichier ?

Bonjour merci pour ton aide

Ci dessous partie du fichier

Peux tu le déposer via le forum ?

Dans l'onglet fichiers joints.

Je ne peux pas accéder à ton lien.

logiquement mon fichier est joins si je ne me suis pas planté

Les colonnes où sont les pourcentages dans le tableau de la feuille Avc (2) ne vont jamais changées ? Ce sera toujours les colonnes C et E ?

Les colonnes sont bien C E G I O W Y AA

Normalement c'est good

Tu met le code suivant dans la feuille Avc (2)

Private Sub Worksheet_Calculate()

Application.ScreenUpdating = False

'Plage de la boucle
Set cel = Worksheets("Avc (2)").Range("C5:AA500")

'Boucle pour trouver les 100%
For Each cel2 In cel
If cel2 = 1 And cel2.Offset(0, 1) <> Date Then cel2.Offset(0, 1) = Date
Next cel2

End Sub

J'ai quand même une question, sais tu jusqu'à quelle ligne peux aller ton tableau dans la feuille Avc (2) ? Pour éviter le petit lag...

Bonsoir Bastien

Merci pour ton aide.

Le problème est toujours le même la date ne se fige pas

j'ai changé la date de mon pc et toutes les dates prennent e n compte la nouvelle date.

Cordialement

Salut,

Oui une petite erreur, excuse moi

'Tu remplace cette ligne là :
If cel2 = 1 And cel2.Offset(0, 1) <> Date Then cel2.Offset(0, 1) = Date

'Par cette ligne ci :
If cel2 = 1 And cel2.Offset(0, 1) = "" Then cel2.Offset(0, 1) = Date