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 :

macro - détection horizontale cellule vide


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    71
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2008
    Messages : 71
    Par défaut macro - détection horizontale cellule vide
    Bonjour,

    Lorsque le programme est lancé, la cellule B6 est sélectionnée.

    Si B6 n'est pas vide alors je me décale d'une colonne, si B6 est vide alors je mets la valeur issu du code dans cette cellule.

    A chaque clic sur le bouton, la cellule B6 est sélectionnée et le contenu de la cellule est vérifié pour voir si elle est vide.

    Je ne sais pas comment il faut faire pour tenir compte de ces contraintes.

    Merci pour votre aide.

  2. #2
    Membre éprouvé Avatar de DidierLoche
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    84
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : Octobre 2008
    Messages : 84
    Par défaut
    Bonsoir,
    Tu peux essayer ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Range("B6") = "" Then
        Range("B6") = mon_resultat
    Else
        Range("C6") = mon_resultat
    End If
    Didier

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    71
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2008
    Messages : 71
    Par défaut
    Supposons que les 3 premières cellules (B6, C6 et D6) ne sont pas vides, comment faut-il faire pour la macro sélectionne E6 ?

    Je n'arrive pas à généraliser le code.

    Merci d'avance pour ton aide.

  4. #4
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut cati_78 et le forum
    Donne ton code : je crois comprendre que tu veux sélectionner la première cellule Vide après B6.
    tu peux mettre une instruction du style :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim Cel As Range
    ..........
    If IsEmpty([B6]) Then
        Set Cel = [B6]
    ElseIf IsEmpty([C6]) Then
        Set Cel = [C6]
    Else
        Set Cel = [B6].End(xlToRight).Offset(0, 1)
     
    End If
    A+

Discussions similaires

  1. [XL-2010] Macro condition si cellule vide alors faire ceci, sinon aller ligne suivante
    Par Remi_54500 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/05/2015, 17h38
  2. Réponses: 0
    Dernier message: 15/04/2014, 12h04
  3. macro copie colle cellule vide
    Par tomAH74 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 16/05/2013, 14h21
  4. [XL-2003] Macro Vlookup sur cellule vide
    Par Sibuxian dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/05/2010, 16h37
  5. détection des cellules vides ou contenant un blanc
    Par thierry_b dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 16/06/2009, 13h17

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