| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 06/07/2010 à 22:26 | Stillalive | If Not Intersect erreur 400 affichage modale | Merci Mytå Le problème n'est pas résolu, même l'utilisation d'une varialbe ne semble fonctionner. Je tente maintenant de modifier la condition. Peut-on vérifier la condition selon laquelle une UserForm est affichée ou caché ? If UFchoix.Hidden = True Then UFchoix.Show End If Cette façon de faire me... |
| 05/07/2010 à 23:02 | Stillalive | If Not Intersect erreur 400 affichage modale | Bon me voila bloqué sur un autre point plutot agaçant. Private Sub worksheet_selectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A12:A28")) Is Nothing Then If STMOD = True Then ' Si le mode automatisé est activé If VEROU = False Then ' Voici ma piètre tentative pour éviter error 4... |
| 05/07/2010 à 22:47 | Stillalive | Valeur entre deux date, sans l'année | Parfait c'est exactement ce qu'il faut. Merci... |
| 05/07/2010 à 20:27 | Stillalive | Valeur entre deux date, sans l'année | Je vise à mettre une valeur particulière dans une cellule sélectionnée au curseur. ActiveCell.Value = ("016922NM- & Variable &) <-- Cette syntaxe échoue Si la date contenue dans B8 est entre le 15 Décembre et le 15 Avril la variable sera = H si non la variable sera = E (pour Été, Hivers) Pour cel... |
| 05/07/2010 à 20:16 | Stillalive | Propriété locked de la classe Range | Merci, en effet j'avais mal interprété le fonctionnement du vérouillage des cellules. Merci... |
| 18/06/2010 à 22:06 | Stillalive | Propriété locked de la classe Range | Les choses avancent ici, Je souhaite rendre certaines plages protégée. Voici le code Private Sub UF01OUI_Click() Range("J6:N64").Select ' Sélectionne la plage Selection.Locked = False ' Dévérouille la sélection For Each c In Range("J2") ' Pour chaque cellules dans la plage "J2" If IsDate(c) Then ' S... |
| 17/06/2010 à 21:48 | Stillalive | Range select et réaction de la feuille | 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... |
| 17/06/2010 à 18:03 | Stillalive | Range select et réaction de la feuille | 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à,... |
| 16/06/2010 à 23:30 | Stillalive | Trouve date dans une Plage | J'avais écris un bon 300 mots puis sans le vouloir j'ai fait précedents. On va donc faire plus court : Dans une plage de cellule genre E2:K11. Dans cette plage je n'ai que 2 types de valeurs; des nombres entiers et une date. Je veux écrire un script qui permetterais de trouver la cellule contenant u... |