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 :

incrementer une cellule d'ont les nombres sont espasers [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Homme Profil pro
    Aide Comptable
    Inscrit en
    Mai 2017
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Aide Comptable
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Mai 2017
    Messages : 6
    Par défaut incrementer une cellule d'ont les nombres sont espasers
    Bonsoir
    est ce qu'on peu ajouter 1 a une cellule qui contiend de l'espace entre les chifres exp : 2 0 1 9
    il ya de l'espace entre les chiffre.
    comment est ce qu'on peu faire en vba excell 2007
    merci d'avance

  2. #2
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 165
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 165
    Billets dans le blog
    2
    Par défaut
    Bonjour,

    Si j'ai compris

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Function Plus1(Entree As String) As String
    Dim Nb As Long
        Nb = CLng(Replace(Entree, " ", ""))
        Plus1 = Format(Nb + 1, "# # # 0")
    End Function
     
     
    Sub test()
        MsgBox Plus1("2 0 1 9")
    End Sub

  3. #3
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour

    La solution est différente selon que :
    - la valeur (sa propriété) Value de la cellule est un nombre entier de 4 chiffres et que le format de la cellule fait qu'il s'affiche sous la forme "# # # #"
    ou que
    - la cellule contient du texte exprimé sous la forme de 4 chiffres séparés par un espace .

    Or, ton message n'éclaire pas cet aspect.

  4. #4
    Membre du Club
    Homme Profil pro
    Aide Comptable
    Inscrit en
    Mai 2017
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Aide Comptable
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Mai 2017
    Messages : 6
    Par défaut incrementer une cellule d'ont les nombres sont espasers
    Bonjour
    Oui vous avez raison
    je m'explique : j'ai une cellule [A837] dont le contenu est : 10 espaces puis 2 puis espace puis 0 puis espace puis 1 puis espace puis 9;soit
    [A837] = : 2 0 1 9 et j'ai une macro mois suivant et je fait un test sur le mois si = 12 alors il faut ajouter 1 a [A837]
    l'orsque j'ecrit : [A837].value=[A837]+1 ca ne marche pas comment est ce q'uon peu ajouter 1 a [A837]?
    merci d'avance.

  5. #5
    Membre Expert
    Inscrit en
    Septembre 2007
    Messages
    1 142
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 142
    Par défaut
    Bonjour
    Citation Envoyé par hakim-r Voir le message
    je m'explique : j'ai une cellule [A837] dont le contenu est : 10 espaces puis 2 puis espace puis 0 puis espace puis 1 puis espace puis 9
    Et tu pourrais nous expliquer pourquoi tu te compliques la tâche avec tes 13 espaces ?

    à part une superstition avec 13 je n'en comprends pas l'intérêt alors qu'un format ferai parfaitement l'affaire.

  6. #6
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Je plussoie anasecu, que je salue au passage.

    Nonobstant (en imaginant que cette donnée soit le résultat subi d'une importation), voila l'une des dizaines de manières possibles de traiter.
    Exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Range("A1").Value = ":          2 0 1 9"
    pos = InStrRev(Range("A1").Text, "  ")
    Range("A2").Value = ":          " & Format(Val(Mid(Range("A1").Text, pos)) + 1, "# # # #")

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 20/05/2019, 09h26
  2. [XL-2013] Incrementer une cellule en fonction d'un nombre d'éléments dans une colonne
    Par psg7835 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/07/2017, 11h09
  3. [XL-2003] Une macro dont toutes les valeurs sont vides !
    Par rjl dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 14/12/2010, 17h48
  4. Réponses: 3
    Dernier message: 09/05/2010, 23h24
  5. Réponses: 60
    Dernier message: 25/10/2006, 13h47

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