Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 04/07/2009, 14h26   #1 (permalink)
Membre actif
 
Date d'inscription: novembre 2008
Messages: 181
Par défaut Curseur reste en place

Bonjour a toutes et tous, forum bonjour

Voila lorsque je fais des essais de petits codes récupérer sur le site ou autre

Parfois lors d'un test tout simple (peu importe le test)

Lors d'une erreur de saisie dans une cellule le curseur se déplace a droite, efface la cellule mal renseignée et se replace dessus la cellule attendant une nouvelle saisie

En VBA il y a t'il un moyen SVP de faire de mème MAIS sans déplacer le curseur a droite
en FAIT qu'il reste dans la cellule jusqu'a ce que la saisie soit correcte

j'ai penser a obliger dans options d'excel 2007 le curseur d'aller en bas ou en haut
mais le souci est que après avoir effectuer le test le curseur se déplace pas comme il faut bien sur.

Merci de votre aide si un petit code est possible pour palier a mon souci suis preneur.

Bonne après midi et bonnes vacances a tous

Raymond
eliot.raymond est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 04/07/2009, 15h06   #2 (permalink)
Inactif(ve)
 
Date d'inscription: juin 2007
Localisation: Belqique
Messages: 2 074
Par défaut

Bonjour,
Dans l'événement de feuille..
Code :
Private Sub Worksheet_Change(ByVal Target As Range)
   'vérifier si c'est une cellule à tester
'Si oui, contrôller si la réponse est bonne
    'Si Non
    'Envoyer message (éventuellement)
    'Vider la cellule
    'repositionner sur la cellule
End Sub
A+
LeForestier est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 04/07/2009, 15h38   #3 (permalink)
Membre actif
 
Date d'inscription: novembre 2008
Messages: 181
Par défaut

Bonjour Leforestier, forum

Merci pour ta réponse, et les explications, c'est gentil, mais SVP si un petit code en exemple serai pour moi beaucoup plus clair et plus facile a comprendre.

Je te remercie d'avance et une bonne après midi

Raymond
eliot.raymond est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 05/07/2009, 10h52   #4 (permalink)
Inactif(ve)
 
Date d'inscription: juin 2007
Localisation: Belqique
Messages: 2 074
Par défaut

Si tu veux, mais ça ne me parraissais pas si difficle...
Code :
Private Sub Worksheet_Change(ByVal Target As Range)
'Supposons la vérification des cellules C1 à C20
    If Not Intersect(Target, Range("C1:C20")) Is Nothing Then
        'Vérifier la cellule, supposons qu'il est obligatoire d'entrer un nombre
        If Not IsNumeric(Target) Then
            MsgBox "Vous devez entrer un nombre"
            Target = ""
            Target.Select
        End If
    End If
End Sub
A+
LeForestier est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 05/07/2009, 19h30   #5 (permalink)
Membre actif
 
Date d'inscription: novembre 2008
Messages: 181
Par défaut

bonsoir Leforestier, bonsoir forum

Merci pour la réponse et le petit code effectivement c'était pas dur mais je ne voyais pas ca comme ca.

En tout cas merci bien je te souhaite une tres bonne soirée

Raymond
eliot.raymond est déconnecté   Envoyer un message privé Réponse avec citation
NEWS EXCELF.A.Q EXCELTUTORIELS EXCELSOURCES EXCELOUTILS EXCELLIVRES EXCELOFFICE 2010

Réponse Proposer ce sujet en actualité

Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel



Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non



Fuseau horaire GMT +1. Il est actuellement 22h04.


Vos questions techniques : forum d'entraide Excel - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Hébergement - Participez - Copyright © 2000-2010 www.developpez.com - Legal informations.