> Tous les forums > Forum Bureautique
 [XL position et clignotement]
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Magnan
  Posté le 15/08/2019 @ 17:43 
Aller en bas de la page 
Astucien

Bonjour,

J'ai 2 macros :

* la 1ière me permet de faire clignoter une cellule ou doit se passer la saisie :

Sub versfeuille1()

Sheets("Feuil1").Select

Range("B3").Select

Selection.ClearContents

Do While IsEmpty([B3])

If [B3].Interior.Color = vbGreen Then

[B3].Interior.Color = vbYellow

Else

[B3].Interior.Color = vbGreen

End If

DoEvents

Loop

[B3].Interior.Color = vbWhite

End Sub

Elle fonctionne parfaitement.

* La seconde me permet d'accéder à la première cellule vide (En descendant) de la colonne B :

Sub dernier()

Range("B65536").End(xlUp).Offset(1, 0).Select

End Sub

Fonctionne parfaitement elle aussi.

En feuille 2 j'active la macro 1

Je n'arrive pas à faire clignoter la cellule dans laquelle doit se faire la saisie. B3 de la première macro devient B4 puis B5... d'ou la nécessité de faire varier la cellule cible de la première macro.

Je bloque sur une syntaxe certainement toute bête. Pouvez vous m'aider ?

Fichier : https://www.cjoint.com/c/IHppRij7YQK

Merci d'avance.

EDIT : je viens de voir que sur les feuilles existantes et sur les nouvelles feuilles la cellule B3 clignote systématiquement. Euh ??? Je suis pourtant positionné en feuil1. En positionnant la macro dans feuil1 plus de pb. Un de réglé.



Modifié par Magnan le 15/08/2019 17:57
Publicité
Magnan
 Posté le 16/08/2019 à 12:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re,

Trouvé une mine d'info avec ce fichier : http://boisgontierj.free.fr/fichiers/jb-Curseur.xls

Si cela peut en aider certains.

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
19,79 €Prise connectée Wi-Fi TP-Link HS100 à 19,79 €
Valable jusqu'au 03 Mars

Amazon fait une promotion sur la prise intelligente Wi-Fi TP-Link HS100 qui passe à 19,79 € alors qu'on la trouve habituellement autour de 35 €. Cette prise peut être contrôlée à distance en utilisant l'app gratuite KASA sur votre smartphone (iOS ou Android). Vous pouvez créer des planifications horaires pour allumer ou éteindre automatiquement et quand vous le souhaitez, l'appareil qui y est branché. Pour en savoir plus, n'hésitez pas à lire notre dossier pratique Contrôler une prise électrique à distance.


> Voir l'offre
49,90 €Microphone USB Bird UM1 à 49,90 €
Valable jusqu'au 03 Mars

Amazon fait une vente flash sur le Microphone USB Bird UM1 qui passe à 49,90 € alors qu'on le trouve ailleurs à partir de 69 €. La livraison est gratuite. Le Bird UM1 est un micro de studio d'excellente qualité avec interface USB intégrée. C'est une solution idéale et tout-en-un qui évite d'avoir à acheter un préampli ou une interface audio supplémentaire.  Idéal pour le studio, YouTube ou l'animation de votre blog.


> Voir l'offre
18,90 €Microsoft Office Professionnel 2016 Plus à 18,90 €
Valable jusqu'au 01 Mars

Le vendeur sérieux Digital FR sur Amazon propose la clé d'activation légale pour Microsoft Office Professionnel 2016 Plus en français à 18,90 €. Cette clé livrée par email vous permettra d'activer Microsoft Office Professionnel 2016 Plus légalement et vous permettra ainsi d'utiliser autant de temps que vous voulez (il s'agit de la version complète et pas d'un abonnement) Word,Excel, PowerPoint, OneNote, Outlook, Publisher et Access 2016 sur un PC. La clé sera à activer sur Office.com où vous pourrez ensuite télécharger toute la suite bureautique. Si la version 2019 fonctionne uniquement avec Windows 10, cette version 2016 fonctionne avec Windows 7, Windows 8 et Windows 10 !


> Voir l'offre

Sujets relatifs
Sauvegarder position dans FreeCommander
clignotement dans module
Clignotement
Position souris interactive
position dans un array, mais en partant de la fin
Comment garder la taille et la position d'une image lors d'une copie
Sauvetage de la position des icones du bureau.
Afficher l' heure en position veille
position cellule
Erreur de position en écriture
Plus de sujets relatifs à [XL position et clignotement]
 > Tous les forums > Forum Bureautique