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 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
- Find vba - Astuces et Solutions
- Netflix code - Guide
2 réponses
tompols
Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
460
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
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
460
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.