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 :

Pas totalement résolu modifer une lettre (string) dans une boucle mais je perds une info...


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
    technicien
    Inscrit en
    Février 2017
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : technicien

    Informations forums :
    Inscription : Février 2017
    Messages : 82
    Par défaut Pas totalement résolu modifer une lettre (string) dans une boucle mais je perds une info...
    Bonjour à tous.

    Grace à joelevrai un nouvel horizon c'est ouvert à moi. J'ai un code de 8 lignes qui doit tourner 12 fois.

    Objectif changer le lieu de stockage de la donnée dans tablo() ca c'est bon
    Mais il faut aussi changer le critère "AAAA" par "AAAB" quand i =2 puis "AAAC" quand i =3.... Cela est il possible parce que là je ne vois pas comment à part recopier 12 fois le code et modifier le critère....

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    For i = 1 To 12
     
                With Application.WorksheetFunction
                tablo(i, 1) = .CountIf(maplage2, "AAAA")
                tablo(i, 2) = .MinIfs(MaPlage, maplage2, "AAAA")
                tablo(i, 3) = .MaxIfs(MaPlage, maplage2, "AAAA")
                tablo(i, 4) = .CountIfs(maplage2, "AAAA", MaPlage, "<1000")
                tablo(i, 5) = .CountIfs(maplage2, "AAAA", MaPlage, ">=1000", MaPlage, "<2000")
                tablo(i, 6) = .CountIfs(maplage2, "AAAA", MaPlage, ">=2000", MaPlage, "<3000")
                tablo(i, 7) = .CountIfs(maplage2, "AAAA", MaPlage, ">=3000")
                tablo(i, 8) = .AverageIfs(MaPlage, maplage2, "AAAA")
        End With
     
    next i
    Merci par avance.

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    (Re)bonjour,

    utilise les codes de caractères Chr()

    En majuscule, A = Chr(65), B = Chr(66) etc....


    petit exemple d'alphabet majuscule

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub ioi()
    Debug.Print Chr(65)
        For i = 1 To 26
            Debug.Print Chr(64 + i)
        Next i
    End Sub
    Je vais pas plus loin, tu nous a démontré tout à l'heure qu'une simple piste te suffisait pour adapter

  3. #3
    Membre confirmé
    Homme Profil pro
    technicien
    Inscrit en
    Février 2017
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : technicien

    Informations forums :
    Inscription : Février 2017
    Messages : 82
    Par défaut
    j'ai trouvé cette solution suis sur qu'il y a plus efficace :
    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
     
    montext = "AAAA"
    For i = 1 To 12
     
                With Application.WorksheetFunction
                tablo(i, 1) = .CountIf(maplage2, montext)
                tablo(i, 2) = .MinIfs(MaPlage, maplage2, montext)
                tablo(i, 3) = .MaxIfs(MaPlage, maplage2, montext)
                tablo(i, 4) = .CountIfs(maplage2, montext, MaPlage, "<1000")
                tablo(i, 5) = .CountIfs(maplage2, montext, MaPlage, ">=1000", MaPlage, "<2000")
                tablo(i, 6) = .CountIfs(maplage2, montext,MaPlage, ">=2000", MaPlage, "<3000")
                tablo(i, 7) = .CountIfs(maplage2, montext, MaPlage, ">=3000")
                tablo(i, 8) = .AverageIfs(MaPlage, maplage2, montext)
        End With
     If i = 1 Then
    montext = Replace(montext, "AAAA", "AAAB")
    End If
    If i = 2 Then
    montext = Replace(montext, "AAAB", "AAAC")
    End If
    If i = 3 Then
    montext = Replace(montext, "AAAC", "AAAD")
    End If
    If i = 4 Then
    montext = Replace(montext, "AAAD", "AAAE")
    End If
    If i = 5 Then
    montext = Replace(montext, "AAAE", "AAAF")
    End If
     
    next i

  4. #4
    Membre confirmé
    Homme Profil pro
    technicien
    Inscrit en
    Février 2017
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : technicien

    Informations forums :
    Inscription : Février 2017
    Messages : 82
    Par défaut
    Rebonjour,

    Je vais pas plus loin, tu nous a démontré tout à l'heure qu'une simple piste te suffisait pour adapter
    J'essaie , je cherche , je teste, je consulte, je mais avec le temps et les indices qui vont biens....

    Merci pour tout

  5. #5
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Ok ok, un prolongement de piste, comment on constitue toutes tes chaines finales

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub UnePiste()
    Const MaChaine As String = "AAA"
    For i = 1 to 12
        Debug.Print MaChaine & Chr(64 + i)
    Next i
    End Sub

  6. #6
    Membre confirmé
    Homme Profil pro
    technicien
    Inscrit en
    Février 2017
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : technicien

    Informations forums :
    Inscription : Février 2017
    Messages : 82
    Par défaut
    Merci dysorthographie et joelevrai
    Le problème c'est que mon exemple fictif n'est pas bon, car la dernière lettre de mes données ne se suivent pas ...
    Du coup ça complexifie beaucoup la chose...

  7. #7
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    tu vas voir

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub UnePiste()
    Const MaChaine As String = "AAA"
        For Each element In Array("A", "D", "Z", "B")
            Debug.Print MaChaine & element
        Next element
    End Sub
    tu peux ajouter de la clarté en utilisant une variable tableau pour stocker ton Array

  8. #8
    Membre confirmé
    Homme Profil pro
    technicien
    Inscrit en
    Février 2017
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : technicien

    Informations forums :
    Inscription : Février 2017
    Messages : 82
    Par défaut
    génial:

    par contre j'ai pas compris
    tu peux ajouter de la clarté en utilisant une variable tableau pour stocker ton Array

  9. #9
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub test()
    a = "AAAA"
    Mid(a, Len(a), 1) = Chr(Asc(Mid(a, Len(a), 1)) + 1)
    Debug.Print a
    End Sub

  10. #10

Discussions similaires

  1. Réponses: 6
    Dernier message: 13/11/2009, 16h06
  2. [MySql]Insérer une variable "string" dans une requête SQL
    Par Saten dans le forum Windows Forms
    Réponses: 9
    Dernier message: 13/10/2008, 17h39
  3. Réponses: 7
    Dernier message: 03/10/2007, 17h58
  4. Position d'une String dans une autre String
    Par avogadro dans le forum Windows Forms
    Réponses: 6
    Dernier message: 10/09/2007, 00h19
  5. [Débutant] Validation d'une valeur numérique dans une variable String
    Par anto84 dans le forum Interfaces Graphiques
    Réponses: 3
    Dernier message: 11/07/2007, 10h26

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