Microsoft 365 Aide pour formule qui ne fonctionne pas.

guiyom · 28 Janvier 2023

Bonsoir,

Je me permets de solliciter votre aide car je ne comprends pas pourquoi la formule ne fonctionne pas.

J'utilise 3 USF qui se déclenche en fonction de la colonne ou l'on double clic, cependant la formule ne fonctionne pas sur les colonnes en vert sur la photo jointe.

Voici le code utilisé :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Interior.Color <> Range("A1").Interior.Color And Target.Interior.Color <> Range("A2").Interior.Color And Target.Column Mod 6 = 4 Then
Cancel = True
Target.Offset(0, 0).Select
Load UserForm_notes
UserForm_notes.Label_date.Caption = ActiveCell.Offset(0, -1)
UserForm_notes.Show
Else

If Target.Interior.Color <> Range("A1").Interior.Color And Target.Interior.Color <> Range("A2").Interior.Color And Target.Column Mod 6 = 5 Then
Cancel = True
Target.Offset(0, 0).Select
Load UserForm_notes2
UserForm_notes2.Label_date.Caption = ActiveCell.Offset(0, -2)
UserForm_notes2.Show
Else

''''''''''''''''''''''''''''''''''''''''''''''''''''''NE FONCTIONNE PAS EN VERT SUR LA CAPTURE'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Target.Interior.Color <> Range("A1").Interior.Color And Target.Interior.Color <> Range("A2").Interior.Color And Target.Column Mod 6 = 6 Then
Cancel = True
Target.Offset(0, 0).Select
Load UserForm_notes3
UserForm_notes3.Label_date.Caption = ActiveCell.Offset(0, -3)
UserForm_notes3.Show
End If

End If

End If

Bien cordialement

Wayki · 28 Janvier 2023

Bonjour,
La couleur verte est obtenue comment ? Choix, MFC ?
Les autres sont obtenues comment ?
Un fichier vaut mieux que 1000 images.
A +

TooFatBoy · 28 Janvier 2023

Bonjour,

guiyom à dit:
Target.Column Mod 6 = 6

Il y a comme un problème là : par définition, un nombre ne peut pas être congru à 6 modulo 6.

guiyom · 28 Janvier 2023

Wayki à dit:
Bonjour,
La couleur verte est obtenue comment ? Choix, MFC ?
Les autres sont obtenues comment ?
Un fichier vaut mieux que 1000 images.
A +

Bonsoir,
Voici un fichier exemple.

Cordialement

TooFatBoy · 28 Janvier 2023

T'es sûr des conditions de ton test ???

guiyom à dit:
If Target.Interior.Color <> Range("A1").Interior.Color And Target.Interior.Color <> Range("A2").Interior.Color

A1 et A2 ont l'air d'avoir la même couleur de fond, qui est du gris.

guiyom · 28 Janvier 2023

TooFatBoy à dit:
T'es sûr des conditions de ton test ???

A1 et A2 ont l'air d'avoir la même couleur de fond, qui est du gris.

Bonsoir,

Oui mais ce n'est pas bien grave, je garde la couleur A2 pour la suite car cela restreint l'ouverture des USF.

Il y a comme un problème là : par définition, un nombre ne peut pas être congru à 6 modulo 6.

Oui, le problème vient manifestement d'ici mais je n'arrive pas à visualiser une solution alternative.

Cordialement

TooFatBoy · 28 Janvier 2023

guiyom à dit:
Oui, le problème vient manifestement d'ici mais je n'arrive pas à visualiser une solution alternative.

Pour info, 6 est congru à 0 modulo 6.

guiyom · 28 Janvier 2023

Bon, j'ai résolu mon problème de façon pas très propre en sélectionnant colonne par colonne :

VB:

If Target.Interior.Color <> Range("A1").Interior.Color And Target.Interior.Color <> Range("A2").Interior.Color Then
If Target.Column = 6 Or Target.Column = 12 Or Target.Column = 18 Or Target.Column = 24 Or Target.Column = 30 Or Target.Column = 36 Or Target.Column = 42 Or Target.Column = 48 Or Target.Column = 54 Or Target.Column = 60 Or Target.Column = 66 Or Target.Column = 72 Then
Cancel = True
Target.Offset(0, 0).Select
Load UserForm_notes3
UserForm_notes3.Label_date.Caption = ActiveCell.Offset(0, -3)
UserForm_notes3.Show
End If
End If
End If

TooFatBoy · 28 Janvier 2023

Parce que ça marchait pas avec zéro ???

Microsoft 365 Aide pour formule qui ne fonctionne pas.

guiyom

XLDnaute Junior

Pièces jointes

Wayki

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

guiyom

XLDnaute Junior

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

guiyom

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

guiyom

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Discussions similaires