Range select et réaction de la feuille
Bonjour, me revoila avec une question.
Merci à Nad dailleur pour sa réponse.
Voila j'ai un scrip VBA qui va comme suit:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J2:N64")) Is Nothing And UFSAT = False Then
UF01.Show
UFSAT = True
End If
End Sub '(ce script est dans la feuille)
Jusque là, Si l'usager clic dans une cellule de la plage J2:N64 une boite de dialogue apparait.
Ensuite: Voila ce qui suit si l'usager clic sur le bouton oui
Private Sub CommandButton1_Click() ' Sur clic du bouton 'Oui'
'
UFSAT = True
Dim DT01
For Each c In Range("J2:N64")
If IsDate(c) Then
DT01 = Weekday(c)
MsgBox ("la date est le " & DT01 & " " & UFSAT & " et se trouve dans la cellule " & c.Address)
End If
Next
If DT01 = 5 Then
Range("J6").Select
Selection = 0
End If
Calculate ' Transfert les données liées.
UF01.Hide ' Ferme la boite de dialogue
UFSAT = False
End Sub ' (ce script est dans le bouton oui de la boite de dialogue UF01)
En cliquant sur oui je veux que les cellules ((et là mon plan est ordinaire pusique je ne sais pas m'y prendre mieux que de définir une référence pour chaque cellules une par une) genre = "='C:\dossier\fichier.xls 'onglet $D$5)
Donc en cliquant sur oui si DT01 = 5 soit jeudi la cellule J6 est sélectionnée.
Là est mon problème, en faisant range("j6").Select le If Not Intersect reprend de plus belle.
C'Est pour cette raison que j'ai tenté de mettre une Varialbe nommé UFSAT et de m'en servir comme vérificateur d'état à savoir si la boite de dialogue est déja affichée car là est le problème, le reange select relance l'affichage de la boite de dialogue UF01.
Merci, avec l'espoir d'être clair...
Bonsoir
Avant de lancer un nouveau post, merci de respecter la charte :
Extrait de la Charte a écrit :8 - si vous avez obtenu la réponse espérée, commencez par cliquer sur le bouton Image du post qui a résolu votre problème et n'oubliez pas de remercier tous ceux qui vous ont aidé
Amicalement
Nad
Hello,
Je ne vois pas la fameuse flèche verte pour ferrmer le post dans l'interface.
Je dois être aveugle... elle va me tomber dans la figure.
Désolé & merci
-- 17 Juin 2010, 15:58 --
Ah voila c'est fait.
Je n'ai plus aucun sujet d'ouvert à part celui ci.
Y a t'il qqn qui est inspiré ?
Merci à tous
Re
Tu avais mis ce fil en résolu ; j'ai sorti la coche.
Par contre, sur l'autre fil, il ne suffit pas de le passer en résolu : il est d'usage d'y ajouter un mot pour dire que la réponse te convenait. Ceci surtout pour les autres participants qui feraient une recherche sur le même sujet.
En ce qui concerne ta nouvelle demande, merci de joindre ton fichier.
Nad