Bonjour tout le monde! J'ai un petit problem, j'ai créé une boucle qui compare des valeur si deux valeurs sont égales alors on supprime la colonne, j'aimerai qu'a la fin de la boucle si on à trouvé aucune valeur on affiche un msgbox pour averir.
Or mon msgbox est dans la boucle donc il est affiché bcp de fois, j'aimerai le sortir de la boucle mais qui soit dependant.
Merci bcp de votre aide
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 Sub SupprProjet() 'Déclaration et affectation des variables Dim I As Long Dim J As Long Dim nom As String 'nom représente la feuille dont on va se servir nom = Sheets("Nv Projet-Personne").Cells(4, 2) For I = 1 To 1 'La première ligne For J = 1 To 35 'les 60 premières colonnes If Sheets(nom).Cells(I, J) = Sheets("Nv Projet-Personne").Cells(3, 2) Then Sheets(nom).Cells(I, J).EntireColumn.Delete Exit For Else: MsgBox "Projet introuvable" End If Next Next End Sub![]()
Partager