Forums XLPages

Excel & VBA Forum principal double condition sur l'expression "If not intersect"

double condition sur l'expression "If not intersect"
#1
gladius
Débutant XLPages

Inscription: 21/04/2011

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 06-07-2011 12h11
Bonjour

J'aurai une petite question sur la synthaxe de l'expression suivante.

If Not (Intersect(Target, [N6:O30]) Is Nothing) Then

ci-dessous mon code:

'Accès au calendrier par un double clic en 1e cas
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       
    If Not (Intersect(Target, [N6:O30]) Is Nothing) Then
        'Si on est pas dans la plage N6:O30 on sort
        Cancel = True
        'on annule l'entrée dans la cellule
        Calendar.Show
        'Lancement de l'USF calendar
    End If
   
    If Cells(Target.Row, "N") <> "" And Cells(Target.Row, "O") <> "" And Cells(Target.Row, "N") > Cells(Target.Row, "O") Then
        MsgBox "la date de fin ne peut être supérieure à la date de début", vbExclamation, "Erreur de date"
        Target.ClearContents
    End If
         
End Sub


Vu que ce tableau possede une frontiere orange il est normal de ne pas activer la fonction calendrier :

D'ou ma façon de noter

If Not (Intersect(Target, [N6:O30]) Is Nothing) And .Range ("N6:030").Interior.ColorIndex = xlNoneThen ......
...lancer le calendrier.

Apres le double clic, rien ne se passe.


De plus, comme le tableau peut evoluer par les boutons d'insertion/suppression de ligne, j'ai tenté de mettre une fonction ci-dessous (si la ligne appartient au tableau.

Private Function ActivLignOK() As Boolean
'La ligne active appartient-elle au tableau ?
Dim Lmax As Long
        Lmax = .Cells(.Rows.Count, 1).End(xlDown).Row
    If ActiveCell.Row > 6 And ActiveCell.Row <= Lmax Then ActivLignOK = True
End Function


Ce code est placé avant le 1e, cela pour chasser la zone approximative N6:O30, mais je suis confronté à une erreur de compilation.










Pièce jointe:
zip Gladius synthèse V008.zip   [ Taille: 58.29 Ko - Téléchargements: 410 ]
Hors Ligne
 Rapport   Haut 

Re: double condition sur l'expression "If not intersect"
#2
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 13-07-2011 03h30
Salut le forum

Pour le Intersect
If Not (Intersect(Target, [N6:O25]) Is Nothing) And Target.Interior.ColorIndex = xlNone Then

Mytå
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes