Microsoft 365 Private Sub Worksheet_Calculate()

[Chasse]

Bonsoir le forum

Merci de bien vouloir vous pencher sur mon problème

Est-il possible de déclencher un code

Si la cellule qui vient d’être calculée (Colonne S) est identique avec la valeur de la cellule de la (colonne B) de la même ligne

Private Sub Worksheet_Calculate()
[COLOR=rgb(0, 0, 0)]'If Cells(Rows(Target.Row), 2) = Cells(Rows(Target.Row), 20) Then[/COLOR]

MsgBox ("fin de série mettre en archive")
End If

End sub

Merci et bonne soirée

 

[sylvanu]

Bonjour Chasse,
Est ce sur toute une colonne ou sur une cellule ?
Si c'est sur une cellule alors un exemple en PJ avec :

Private Sub Worksheet_Calculate()
If [B5] = [S5] Then
    MsgBox ("Egalité")
End If
End Sub

 

[Staple1600]

Bonsoir le fil

Juste pour infos
Les () ne sont pas nécessaires pour afficher le MsgBox
(cf post#1 et post#2)
MsgBox "fin de série mettre en archive"
fonctionnera pareillement

 

[sylvanu]

Bonsoir Stapple,
Exact, mais j'ai respecté la syntaxe de Chasse. Ce que j'essaye toujours de faire.

 

[Staple1600]

Re

Et moi, j'ai précisé
"Juste pour infos"

PS: Staple n'a qu'un seul p.
Tu respectes l'orthographe des pseudos itou ?

 

[Phil69970]

Bonjour Chasse, Le forum

Essaye ceci :

Private Sub Worksheet_Calculate()
If Range("B2").Value = Range("S2").Value Then
    MsgBox ("fin de série mettre en archive")
End If
End Sub

@Phil69970

 

[Chasse]

Hello
Sylvanu
toute la colonne S
je rentre les chiffres dans les colonne E à R colonne S ligne 3 à 250 =SOMME(E7:R7)-T7

Merci

 

[sylvanu]

Essayez de donner un fichier test, ce sera plus simple pour travailler.

 

[Chasse]

Bonsoir Stapel avec 1 p

Merci pour l'info.
ça ne fait pas avancer mon Schmilblick

Mais merci et bonne soirée

 

[Chasse]

Re.


Dans le module Archive j' fait une boucle

 

[sylvanu]

Alors il suffit de faire :

Private Sub Worksheet_Calculate()
    archivage
End Sub

Ce sera automatique.

 

[Phil69970]

Un essai :

Private Sub Worksheet_Calculate()
Dim Derlig As Integer
Dim NumLig As Integer
Derlig = Range("B" & Rows.Count).End(xlUp).Row
NumLig = 2

For i = 2 To Derlig
    If Range("B" & NumLig).Value = Range("S" & NumLig).Value Then
        'Ici ton code que tu veux faire ......
        MsgBox ("fin de série mettre en archive pour la ligne B") & NumLig
    End If
    NumLig = NumLig + 1
Next i
End Sub

@Phil69970

 

[Chasse]

OK
mais j'aurai préféré ne pas passer par une boucle
j'ai une trentaine de saisies par feuil à chaque saisi sa déclanche une boucle

 

[sylvanu]

Dans ce cas ne passez pas par Worksheet_Calculate qui oblige à faire une boucle.
Passez par Worksheet_Change sur les colonnes F:S.
Si modif dans une de ces colonnes on déclenche la vérification que sur cette ligne.
Un essai ( sans archivage ) en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F3:S100")) Is Nothing Then
        Ligne = Target.Row
        If Cells(Ligne, "T") = Cells(Ligne, "B") Then
            MsgBox "Ligne " & Ligne & " à archiver."
        End If
    End If
End Sub

 

[eriiic]

Bonjour à tous,

J'allais le dire sylvanu.
Mais sur T c'est suffisant, l'événement change se déclenche à son évaluation.
On pourrait ajouter B s'il est amené à changer.
eric