Problème code VBA.
Résolu/Fermé
Goldrigger 61
Messages postés
77
Date d'inscription
samedi 26 janvier 2008
Statut
Membre
Dernière intervention
27 juin 2008
-
27 févr. 2008 à 20:35
Goldrigger 61 Messages postés 77 Date d'inscription samedi 26 janvier 2008 Statut Membre Dernière intervention 27 juin 2008 - 28 févr. 2008 à 14:20
Goldrigger 61 Messages postés 77 Date d'inscription samedi 26 janvier 2008 Statut Membre Dernière intervention 27 juin 2008 - 28 févr. 2008 à 14:20
A voir également:
- Problème code VBA.
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
2 réponses
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
28 févr. 2008 à 12:14
28 févr. 2008 à 12:14
Bonjour,
Essaie comme ça :
Tom
Essaie comme ça :
Private Sub Worksheet_Change(ByVal sel As Range) If Not IsEmpty(Cells(23, 2)) Then Sheets("Feuil2").Activate End If End Sub
Tom
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
28 févr. 2008 à 13:27
28 févr. 2008 à 13:27
OK,mais attention ça marche tant que tu ne saisis pas de chiffre négatif ds ta cellule (ex : -1), perso j'utiliserais plutôt un test genre
Tom
IsEmpty("ta cellule")ou encore
Cells(23,2).Text <> ""
Tom
Goldrigger 61
Messages postés
77
Date d'inscription
samedi 26 janvier 2008
Statut
Membre
Dernière intervention
27 juin 2008
28 févr. 2008 à 14:20
28 févr. 2008 à 14:20
Ok bien reçu.
En fait comme c'est une cellule pour saisir des heures y'a pas besoin de nombre négatif,
mais je retient pour tout autre cas.
Merki.
En fait comme c'est une cellule pour saisir des heures y'a pas besoin de nombre négatif,
mais je retient pour tout autre cas.
Merki.
28 févr. 2008 à 12:17
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Address = Cells(23, 2).Address And Cells(23, 2) >= 0 Then
Sheets("Feuil2").Activate
End If
End Sub
Merci de ta réponse.