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 :

afficher une liste de code dans une msgbox [XL-2003]


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
    Inscrit en
    Avril 2008
    Messages
    87
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Avril 2008
    Messages : 87
    Par défaut afficher une liste de code dans une msgbox
    Bonjour,

    Comment faire pour afficher une liste de code dans un msgbox.
    Par exemple :
    en colonne A j'ai des code 1,2,3,4... et en colonne B des lettre A et B.
    1->A
    2->A
    3->B
    4->A
    5->B
    j'aimerais qu'une msgbox s'ouvre et me dise (Le Code 3 et 5 contienne la valeur B).
    Comment arriver celà ?

    Je vous remercie par avance,
    Will

  2. #2
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Avril 2008
    Messages
    87
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Avril 2008
    Messages : 87
    Par défaut J'ai résolu mon pb
    Voilà la solution que j'ai réalisé, je redis encore merci au forum en général (bien que je préfère celui là)
    J'ai fais une boucle en comptant le nombre de valeur et si c'était à 0 alors je renseigner un tableau virtuel.
    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
    32
    33
    34
    35
    36
    37
    38
     
     
    Dim MonTableau(1000, 1) As String
     
    Dim strMessage As String, Boucle As Integer
     
     
    'vérification des OF qui ne sont pas dans la RAP
    i = 5
    n = 1
    derniereligne = RESULTAT.Range("A65536").End(xlUp).Row
    derniereligne2 = RAP.Range("A65536").End(xlUp).Row
    derniereligne3 = RRET.Range("A65536").End(xlUp).Row
     
        For i = 5 To derniereligne Step 1
     
                If WorksheetFunction.CountIf(RAP.Range("A3:A" & derniereligne2), RESULTAT.Cells(i, 7)) = 0 Then
                    If derniereligne3 > 5 Then
                        If WorksheetFunction.CountIf(RRET.Range("A6:A" & derniereligne3), RESULTAT.Cells(i, 7)) = 0 Then
     
                            MonTableau(n, 1) = RESULTAT.Cells(i, 7)
                            n = n + 1
     
                        End If
                    Else
                            MonTableau(n, 1) = RESULTAT.Cells(i, 7)
                            n = n + 1
                    End If
                End If
     
        Next i
        strMessage = "La liste des OF ci-dessous ne font pas partie de la RAP :"
     
        For Boucle = 1 To n
            strMessage = strMessage & vbCrLf & MonTableau(Boucle, 1)
        Next Boucle
     
        MsgBox strMessage
    J'espère que ça vous aidera.
    Bon courage,
    Will

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

Discussions similaires

  1. [AC-2010] Utiliser valeur d'une liste de choix dans une liste déroulante d'un autre formulaire
    Par Sébastien1609 dans le forum Macros Access
    Réponses: 1
    Dernier message: 11/06/2015, 15h31
  2. Réponses: 9
    Dernier message: 21/05/2014, 20h21
  3. Réponses: 1
    Dernier message: 26/12/2010, 21h20
  4. Réponses: 0
    Dernier message: 09/11/2010, 15h43

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