× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Ligne bloquée avec protection
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jemiyo
  Posté le 08/11/2018 @ 13:04 
Aller en bas de la page 
Petit astucien

Bonjour.

Une petite question. J'utilise cette formule sur un tableur pour soulignée la ligne ou je suis.

(Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A4:AF100]
If Not Intersect(champ, Target) Is Nothing Then
On Error Resume Next
Shapes("curseur").Visible = True
If Err <> 0 Then
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = "curseur"
End If
ActiveSheet.Shapes("curseur").Line.ForeColor.RGB = RGB(0, 0, 255)
Shapes("curseur").Top = ActiveCell.Top + ActiveCell.Height
Shapes("curseur").Height = 1
Shapes("curseur").Width = champ.Width
Else
On Error Resume Next
Shapes("curseur").Visible = False
End If
End Sub)

Par contre en protégeant mon classeur, la ligne reste bloquée.

Bonne journée.

[Configuration automatique à compléter]
Windows 10
Firefox 63.0



Modifié par jemiyo le 08/11/2018 13:05
Publicité
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
389,99 €Robot aspirateur Neato Botvac connecté D650 édition Animaux domestiques à 389,99 €
Valable jusqu'au 28 Septembre

Amazon fait une vente flash sur le robot aspirateur Neato Botvac D650 édition Animaux domestiques qui passe à à 399,99 € livré gratuitement alors qu'on le trouve ailleurs à partie de 600 €. Cet aspirateur autonome intelligent possède une aspiration puissante et dispose d'un guidage laser pour voir son environnement et cartographier précisément les surfaces à nettoyer sans oublier les meubles, les objets et les portes. Fonctionne sur tous les types de sol. Vous pouvez contrôler le robot depuis votre téléphone via le WiFi. Utilisez l'application Neato pour démarrer, planifier le nettoyage, recevoir des notifications et vérifier les statistiques de nettoyage à tout moment. Vous pouvez même créer des zones virtuelles pour éviter certains endroits sensibles. Le robot est également compatible Alexa et Google Home et peut donc être dirigé à la voix. Cette édition spéciale Animaux domestiques est dotée d'une brosse combinée conçue spécialement pour ramasser plus de poils d'animaux sur tous les types de sols..


> Voir l'offre
54,99 €Microsoft Flight Simulator à 54,99 €
Valable jusqu'au 02 Octobre

Amazon fait une promotion sur le tout nouveau Microsoft Flight Simulator sur PC qui passe à 54,99 € livré gratuitement au lieu de 69,99 €. La boite contient les 10 DVD du jeu.


> Voir l'offre
79 €Stabilisateur 3 axes DJI Osmo Mobile 3 à 79 €
Valable jusqu'au 28 Septembre

Amazon fait une promotion sur le stabilisateur 3 axes DJI Osmo Mobile 3 qui passe à 79 € livré gratuitement au lieu de 109 €. Avec une nacelle à 3 axes qui élimine efficacement les effets négatifs dus aux tremblements, l'Osmo Mobile 3 offre des images incroyablement fluides et stables. Un design léger et ultra-réactif suit vos mouvements en temps réel, vous permettant de vous concentrer davantage sur la scène que vous filmez, plutôt que sur l'appareil.


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique