Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA après une boucle, vérifier les valeurs

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Arpette
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Arpette

XLDnaute Impliqué
Bonsoir à toutes et tous,
Dans une procédure j'ai une boucle qui me renvoie les valeurs d'une feuille2 vers une feuille 1 en colonne B. Je souhaiterais à la fin de cette boucle, vérifié si la valeur " Ligne non trouvée" est trouvée une seule fois, avoir un message " Merci de renseigner les lignes" et sortir de la procédure. Si la valeur n'est pas trouvée, on poursuit.
Merci de votre aide.
@+
 

Pièces jointes

Trier par date Trier par votes
Re : VBA après une boucle, vérifier les valeurs

Re
Je suis bien d'accord, c'est parceque certain chiffre sont en teste et d'autre en nombre sur la feuille 1. La preuve, en changeant le format par le code c'est bon 🙄.
Code: 
Sub Test_2()
Dim Dico As Object, Dico2 As Object, i&, J&, Plg(), Plg2()
Set Dico = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
    Plg = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)).Value
End With
With Sheets("Feuil2")
    Plg2 = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)).Value
    For i = LBound(Plg2, 1) To UBound(Plg2, 1)
        Dico(CLng(Plg2(i, 1))) = Plg2(i, 1)
    Next i
    For J = LBound(Plg, 1) To UBound(Plg, 1)
        If Not Dico.Exists(CLng(Plg(J, 1))) Then Dico2(Plg(J, 1)) = "Absent de la liste"
    Next J
    If Dico2.Count > 0 Then
        .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(Dico2.Count, 1) = Application.Transpose(Dico2.Keys)
        .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(Dico2.Count, 1) = Application.Transpose(Dico2.Items)
        MsgBox "Veuillez remplir ce champs avec l'information pertinente. Merci !"
    Else
        MsgBox "Pas de référence absente"
    End If
End With
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : VBA après une boucle, vérifier les valeurs

Bonjour à toutes et à tous, j'ai placé le code d'Efgé en début de macro, j'ai bien le message d'alerte si il manque des références, le problème est que je peux pas les renseigner, le reste de la macro continue à se dérouler. Est-ce que je dois mettre ce code dans un autre module ?
Merci de votre aide.
@+
 
Vote positif 0 Vote négatif
Re : VBA après une boucle, vérifier les valeurs

Bonjour Arpette, le fil, le forum
Peut être comme ça:
Code: 
Sub Test_3()
Dim Dico As Object, Dico2 As Object, i&, J&, Plg(), Plg2()
Set Dico = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
    Plg = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)).Value
End With
With Sheets("Feuil2")
    Plg2 = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)).Value
    For i = LBound(Plg2, 1) To UBound(Plg2, 1)
        Dico(CLng(Plg2(i, 1))) = Plg2(i, 1)
    Next i
    For J = LBound(Plg, 1) To UBound(Plg, 1)
        If Not Dico.Exists(CLng(Plg(J, 1))) Then Dico2(Plg(J, 1)) = "Absent de la liste"
    Next J
    If Dico2.Count > 0 Then
        .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(Dico2.Count, 1) = Application.Transpose(Dico2.Keys)
        .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(Dico2.Count, 1) = Application.Transpose(Dico2.Items)
        MsgBox "Veuillez remplir ce champs avec l'information pertinente. Merci !"
        Exit Sub
    Else
        'Ta macro
    End If
End With
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 Copie automatique de cellules à un endroit précis
Réponses
7
Affichages
230
AtTheOne
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
407
job75
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
329
chris
  • Question Question
XL 2019 imprimer une zone variable en vba
Réponses
2
Affichages
117
job75
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
266
TooFatBoy
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
392
dgil37
D
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
421
MATLEA
M
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
10
Affichages
240
Saboh12617
S
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
4
Affichages
161
Lolote83
L
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
627
dadaze
D
R
  • Question Question
XL 2021 Sélectionner une ligne contenant cellule en couleur
2
Réponses
17
Affichages
548
Jacky67
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
4 K
patricktoulon
D
  • Résolu(e)
Microsoft 365 formule SIERREUR qui semble fausse
Réponses
6
Affichages
234
mapomme
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
C
  • Question Question
Microsoft 365 Recherche si valeurs multiples dans une cellule
Réponses
1
Affichages
466
JHA
J
  • Question Question
Microsoft 365 Commande VBA pour supprimer plusieurs lignes d'un tableau structuré
Réponses
7
Affichages
467
mapomme
B
  • Résolu(e)
Microsoft 365 Valeurs plages de cellules
Réponses
2
Affichages
199
BOILEAU
B
O
  • Question Question
Microsoft 365 Détection valeurs croissante/décroissante dans courbe
Réponses
4
Affichages
375
Oli-excel
O
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
488
eric72
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…