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 :

Condition si avec textbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2011
    Messages
    63
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité
    Secteur : Service public

    Informations forums :
    Inscription : Juin 2011
    Messages : 63
    Par défaut Condition si avec textbox
    Bonjour,

    J'ai Office 365.

    Je suis confronté à un problème que voici:

    J'ai un Userform avec plusieurs TextBox et chaque TextBox doit envoyer vers la cellule un donnée genre: Range("K10") = "'" & TextBox3.Value. Je voudrais savoir s'il était possible qu'avant de faire cette tâche je puisse la soumettre à une condition, genre

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Command_Button1_Click()
     
    Si 
      Range("H10") = x 
    Alors textbox3 = 3-0
    Sinon Range("K10") = "'" & TextBox3.Value
     
    End si
    Ou quelque chose dans le genre?


    Merci d'avance

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjoiur,

    Ceci devrait aller:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub CommandButton1_Click()
        If Range("H10").Value = "x" Then
            TextBox3.Value = "3-0"
        Else
            Range("H10").Value = Format(TextBox3.Value, "@")
        End If
    End Sub
    Cdlt

Discussions similaires

  1. Condition de Calcul avec textbox
    Par jonathanoudelet dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/08/2008, 11h23
  2. [VBA-E] UserForm avec textbox "Dynamique"
    Par Alex_Kidd dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/05/2006, 00h29
  3. [VB6] Composer un LONG avec TextBox et Label
    Par Lucas42 dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 18/05/2006, 14h06
  4. formulaire avec textbox dependant
    Par semur dans le forum IHM
    Réponses: 3
    Dernier message: 16/11/2005, 16h30
  5. [C#] Probleme avec TextBox dans un DataGrid
    Par Oberown dans le forum ASP.NET
    Réponses: 4
    Dernier message: 21/12/2004, 16h05

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