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 :

Message texte automatique dans cellules vide [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Consultant
    Inscrit en
    Juin 2012
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2012
    Messages : 15
    Par défaut Message texte automatique dans cellules vide
    Bonjour,
    Mon problème est simple, je cherche une petite macro qui affiche un texte temporaire "N/D" dans des cellules vides (H3:J300) ayant aucune inscription ou en attente d’une inscription d’une valeur numérique ou texte ?
    Merci !

  2. #2
    Membre averti
    Homme Profil pro
    Apprenti
    Inscrit en
    Février 2012
    Messages
    49
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Apprenti
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Février 2012
    Messages : 49
    Par défaut
    Bonjour,
    Voila, il y a surement plus court mais ça marche :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For z = 3 To 300
     
        If Cells(z, 8).Value = "" Then
            Cells(z, 8) = "N/D"
        End If
        If Cells(z, 9).Value = "" Then
            Cells(z, 9) = "N/D"
        End If
        If Cells(z, 10).Value = "" Then
            Cells(z, 10) = "N/D"
        End If
     
    Next z
    End Sub
    A placer dans le code de la feuille souhaitée.

  3. #3
    Membre averti
    Homme Profil pro
    Consultant
    Inscrit en
    Juin 2012
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2012
    Messages : 15
    Par défaut
    Merci beaucoup !
    Cela fonctionne à la perfection.
    J'ai du effectuer un petit changement car la ligne était 3000 et non 300. Mais c'était de ma faute, j'avais écris 300 dans ma question.

  4. #4
    Membre chevronné Avatar de Bear the french
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    352
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Saône et Loire (Bourgogne)

    Informations forums :
    Inscription : Mai 2012
    Messages : 352
    Par défaut
    Bonjour mitsue,

    Une variante :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each Target In Range("H3:J3000")
        If Target.Value = "" Then
            Target.Value = "N/D"
        End If
    Next
    End Sub
    Bertrand

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

Discussions similaires

  1. [XL-2007] Ecrire texte de fond dans cellule vide
    Par JulieD33 dans le forum Excel
    Réponses: 4
    Dernier message: 11/02/2015, 13h56
  2. Réponses: 5
    Dernier message: 25/03/2009, 01h58
  3. Message d'erreur si cellule vide
    Par sebing dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 16/02/2008, 00h11
  4. Ajustement Texte multilignes dans Cellule
    Par viscere dans le forum Macros et VBA Excel
    Réponses: 14
    Dernier message: 12/08/2007, 14h20
  5. Problème pour ajouter un texte automatique dans un zone de saisie de texte
    Par koKoTis dans le forum Balisage (X)HTML et validation W3C
    Réponses: 6
    Dernier message: 21/08/2006, 16h03

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