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

Bonjour,

Dans une feuille excel je dois saisir des temps. Ce que je veux c'est que dé que je saisie une valeur dans une cellule, on passe automatiquement à une autre feuille.

J'ai essayé cette formule

Private Sub Worksheet_Change(ByVal sel As Range)

If Cells(23, 2) > 1 Then
Sheets("Feuil2").Activate
End If

End Sub

Le problème c'est qu'avec cette formule ca marche mais si je met >0 alors ca ne marche pas , c'est a dire que si je change une autre cellule que celle indiquée ca me renvoie à la feuil2 quand m^me .
Je ne comprend pas.

Merci de m'aider.

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

Réponse 1 / 2

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

Bonjour,

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

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 à 12:17

Ok j'ai mis cette formule et ça marche:

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.

Réponse 2 / 2

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

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

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

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.

Discussions similaires

sertissage des cables rj45

Code de renvoi d'appel : Ooredo, Mobilis...

Réinitialisation d'un téléphone mobile chinois avec touche