IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Comment faire ce petit test [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2008
    Messages
    704
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2008
    Messages : 704
    Par défaut Comment faire ce petit test
    Bonjour, a toutes et tous, forum bonjour

    Voila je souhaiterai effectuer un petit test SVP en VBA

    J'ai 4 colonnes G - H - I - J, dont la zone de travail est G2:J27

    je souhaiterai que si La colonne G contient quelque chose NE pas pour voir écrire dans les colonnes H - I - J

    Exemple pour essai

    Si G2 = "quelque chose" alors on ne peux PAS écrire en H2 - I2 - J2 sinon on reste en G2


    DE mème quand c'est vide alors par exemple

    Si G4 = "" (vide) alors on peut écrire en H4 - I4 - J4

    ETC etc

    Merci a vous et de votre temps, je vous souhaite une bonne fin d'après midi

    Raymond

  2. #2
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour raymond le forum peut être une évenementielle!! a tester

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("h2:h27")) Is Nothing Then
    If Target.Offset(0, -1) <> "" Then Target.Offset(0, -1).Activate
    End If
    If Not Application.Intersect(Target, Range("i2:i27")) Is Nothing Then
    If Target.Offset(0, -2) <> "" Then Target.Offset(0, -2).Activate
    End If
    If Not Application.Intersect(Target, Range("j2:j27")) Is Nothing Then
    If Target.Offset(0, -3) <> "" Then Target.Offset(0, -3).Activate
    End If
    End Sub

  3. #3
    Membre éclairé
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2008
    Messages
    704
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2008
    Messages : 704
    Par défaut
    Salut Laetitia, salut forum

    Merci de ta réponse rapide en plus. Je viens tester ton petit code et ca fonctionne bien, ca corresponds a mon besoin, je voyais ca plus compliqué.

    Pas besoin d'un semi-remorque pour transporter une petite boite d'allumettes.

    Encore grand merci a toi, je te souhaite une excellente et bonne soirée.

    A plus tard sans doute

    Raymond

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 11
    Dernier message: 26/05/2010, 20h43
  2. Comment faire un petit encadré en scroll
    Par max336 dans le forum Mise en page CSS
    Réponses: 3
    Dernier message: 02/11/2008, 20h35
  3. Comment faire un petit clip "avi" avec sons ?
    Par bsdocuments dans le forum Composants VCL
    Réponses: 2
    Dernier message: 18/03/2008, 15h32
  4. Comment faire une petite fenêtre (style : ctrl+space)
    Par Galip dans le forum C++Builder
    Réponses: 2
    Dernier message: 29/05/2007, 13h53
  5. Comment faire le petit bouton '+' à gauche
    Par Bapt.ice dans le forum Access
    Réponses: 1
    Dernier message: 04/05/2006, 19h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo