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 :

Traduction en code VBA de l'identification de notre compte Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Traduction en code VBA de l'identification de notre compte Excel
    Bonjour,

    J'aimerais savoir, est-ce qu'on peut traduire l'identification (notre nom) de notre compte Excel en code VBA ?

    Ce qui est écrit en haut à droite d'Excel quand le fichier est ouvert.

    Merci!

    Exemple:

    Nom : Annotation 2020-09-09 185622.jpg
Affichages : 172
Taille : 3,1 Ko

  2. #2
    Membre Expert
    Avatar de cavo789
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mai 2004
    Messages
    1 797
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2004
    Messages : 1 797
    Par défaut
    rebonjour

    Répondu sur ton premier post : https://www.developpez.net/forums/d2.../#post11616112

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour,

    J'ai modifié mon compte pour mais il y a un erreur à la ligne Else, quel est-elle ?
    Est-ce qu'on peut ajouter un Else pour dire si N3 = 0, tu peux l'enregistrer ?

    Merci de m'aider !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
     If Application.UserName = "H, Catherine" Then
         Cancel = False
      Else (Range("N3").Value > 0)
       MsgBox "Tous les champs ne sont pas correctement renseignés"
       Cancel = True
      End If
      End Sub

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    161
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2007
    Messages : 161
    Par défaut
    Si tu a besoin de tester la valeurs de Range("N3") essaye ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    If Application.UserName = "H, Catherine" Then
         Cancel = False
    ElseIf Range("N3").Value > 0 Then
     
        MsgBox "Tous les champs ne sont pas correctement renseignés"
        Cancel = True
     
    End If
    sinon tu passe directement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    If Application.UserName = "H, Catherine" Then
         Cancel = False
    Else
     
        MsgBox "Tous les champs ne sont pas correctement renseignés"
        Cancel = True
     
    End If

Discussions similaires

  1. [XL-2007] Traduction en code VBA
    Par pasterlouis dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 22/08/2013, 12h47
  2. [XL-2010] Traduction en code VBA d'une condition
    Par henrylandes dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 11/06/2011, 20h34
  3. [XL-2007] Traduction en code vba
    Par cedill23 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 26/02/2011, 09h08
  4. code VBA copie colle cellule d'1 fichier excel à 1autre
    Par tony020422 dans le forum Macros et VBA Excel
    Réponses: 30
    Dernier message: 03/06/2009, 18h47
  5. [XL-2003] [FAQ] Traduction de code vba en c++
    Par Piernod dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/04/2009, 15h55

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