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
Membre du Club
 
Inscription : novembre 2008
Messages : 273
Détails du profil
Informations forums :
Inscription : novembre 2008
Messages : 273
Points : 61
Points : 61
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 00
Vieux 04/07/2009, 15h06   #2
Inactif
 
Inscription : juin 2007
Messages : 2 055
Détails du profil
Informations forums :
Inscription : juin 2007
Messages : 2 055
Points : 2 023
Points : 2 023
Bonjour,
Dans l'événement de feuille..
Code :
1
2
3
4
5
6
7
8
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 00
Vieux 04/07/2009, 15h38   #3
Membre du Club
 
Inscription : novembre 2008
Messages : 273
Détails du profil
Informations forums :
Inscription : novembre 2008
Messages : 273
Points : 61
Points : 61
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 00
Vieux 05/07/2009, 10h52   #4
Inactif
 
Inscription : juin 2007
Messages : 2 055
Détails du profil
Informations forums :
Inscription : juin 2007
Messages : 2 055
Points : 2 023
Points : 2 023
Si tu veux, mais ça ne me parraissais pas si difficle...
Code :
1
2
3
4
5
6
7
8
9
10
11
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 00
Vieux 05/07/2009, 19h30   #5
Membre du Club
 
Inscription : novembre 2008
Messages : 273
Détails du profil
Informations forums :
Inscription : novembre 2008
Messages : 273
Points : 61
Points : 61
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 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 11h27.


 
 
 
 
Partenaires

Hébergement Web