[vba] ma macros supprime tout

Une solution et quelques commentaires.

Problème archi-classique de débutant  

Avant la seconde boucle, initialise un booleén à Faux, appelons le Trouvé.
Dans cette boucle, mets-le à Vrai si tu trouve quelque chose.
Après cette boucle, effectue la suppression si et seulement si Trouvé est Faux.

Et voilà !

Maintenant quelques conseils de vieux singe (T'en fais ce que tu veux).
Déclare toutes tes variables avant les traitements. Les lignes Dim.. en plein milieu d'une boucle, c'est très moche.
Evite la méthode Activate. Elle consomme plein de ressources et fait s'activer Excel pour rien. Quelques exemples :

Pas bon :

Workbooks(cl2).Activate

Set Cel2 = Range("A1")

Pas mal :

Set Cel2 = Workbooks(cl2).Range("A1")

Dans d'autres cas, ne pas hésiter à faire :

Set W2 = Workbooks(cl2)

Set Cel2 = W2.Range("A1")

(Dans ce cas, une seule fois, ce n'est pas utile)

Il existe aussi le mot-clef With pour rappeler de quoi on parle sans avoir à le préciser à chaque fois.

Déclare les entiers en entiers, pas en variant !

Sors des boucles tout ce qui n'est pas indispensable.
Avant de rentrer dans les boucles, tu connais la taille des tableaux. Ne pas faire 50 ReDim.

Sois cohérent dans le nom de tes variables.
(C'est fait exprès, le i ligne 28 ?)

Ne compte pas sur le langage pour initialiser tes variables !!

Dim tbl2() As String

Dim tbl3() As String

Dim i2 As Integer

Dim j2 As Integer

Dim i3 As Integer

Dim j3 As Integer

Dim NbreLignes2 As Integer

Dim NbreLignes3 As Integer

Dim Cel2 As Range

Dim Cel3 As Range

Dim Trouve As Boolean

 
Set Cel2 = Workbooks(cl2).Range("A1") ' Tableau 1

Set Cel3 = Workbooks(cl3).Range("A1") ' tableau 2

NbreLignes2 = Cel2.End(xlDown).Row

NbreLignes3 = Cel3.End(xlDown).Row - 1

 
'Redimension des tableaux

ReDim tbl2(NbreLignes2)

ReDim tbl3(NbreLignes4)

 
j2 = 0

For i2 = NbreLignes2 To 1 Step -1

    j2 = j2 + 1  

    tbl2(j2) = Cel2.Offset(i2)

    j3 = 0

    Trouve = False

    For i3 = NbreLignes3 To 1 Step -1

        j3 = j3 + 1

        tbl3(j3) = Cel3.Offset(i3)

        If Cel2.Offset(i2, 2) = Cel3.Offset(i3, 0) Then Trouve = True        

    Next i3

    if Not Trouve Then Workbooks(cl2).Rows(1).Offset(i2).Delete

Next i

Constate qu'après ça, la partie utile du code est bien plus claire et facilement compréhensive.

(Je n'ai pas l'habitude de donner un corrigé complet. Ce n'est pas aider le programmeur. Mais je donne tellement de conseils que je préfère les étayer avec un exemple)

Encore une remarque. les i et les j sont très liés. Tu peux faire sans les j.

For i2 = 0 To NbreLignes2 - 1

    tbl2(j2) = Cel2.Offset(NbreLignes2 - i2)

    ..

Si tu as compris le pourquoi de toutes ses remarques, c'est toi bientôt qui aideras les autres ici  

Zeb franchement merci japprend vraiment plein de truc et en plus je comprend pratiquement tout tu veu pas venir remplacer mon prof d'informatique qui est trop nul ?  
seul petit problème le programme veut pas de

Set Cel2 = Workbooks(cl2).Range("A1") ' Tableau 1

ou aussi de

Workbooks(cl2).Rows(1).Offset(i2).Delete

erreur d'execution 438: propriéré ou méthode non gérer par cet objet

c'est peut être à cause du début de mon code que voila : (il me sert pour nommer les nom de mes deux classeur ouvert )

Dim cl2 As String

Dim cl3 As String

Dim cl As String

Dim x As Workbook

For Each x In Workbooks

    If x.Name <> ("PERSO1.XLS") Then

        If x.Name <> ("PERSO.XLS") Then

 
            If cl3 <> cl2 Then

                cl = x.Name

            End If

            If x.Name <> cl Then

                cl2 = x.Name

            End If

            If x.Name = cl Then

                cl3 = x.Name

 
            End If

        End If

    End If

Next

avec ca sa marche :

Workbooks(cl2).Sheets(1).Rows(1).Offset(i2).Delete

Oups, le prof zeb est pas mieux que les autres  

Evidemment, quand tu actives tel workbook, en même temps tu actives la feuille courante et la cellule courant.
Donc

Workbooks(..).Sheets(..).Range(..)

devrait fonctionner.

personne n'est parfait mais tu ma donner un bon coup de pouce et maintenant j'ai simplifier toute mes macros et c'est bien plus lisibles et compréhensible maintenant

est ce que on paut faire ca dans une macro si on a creer une userform

If Not (Cel2.Offset(i2, 2) = userform1.ListBoxApplication) Then

Interdit de poser une question quand la réponse est juste un test faisable à la maison !

desolé me suis mal expliquer je voudrai savoir si on peut comparer Cel2.Offset(i2, 2) au contenu de ma liste parce que UserForm1.ListBoxApplication ne contient rien et UserForm1.ListBoxApplication.list non plus et rowsource marche pas non plus

Qu'est-ce que ListBoxApplication, Le nom d'une ListBox sur ta UserForm ?

Bon. Essaye ce truc. (Marche tout le temps)

Msgbox UserForm1.LsitBoxApplication ' Pour le mettre dans le contexte

Stop

Au moment du stop, l'application s'arrête et te donne la main. Dans la fenêtre espion, ajoute ton UserForm1.ListBoxApplication et explore-le. Tu y trouveras peut être ton bonheur.

le msgbox me met une erreur
-> utilisation incorect de Null
bizar ce truc

Eh, eh ! C'est là qu'il faut creuser..... Dig man, dig.

  eh oui, que du bonheur ce VBA  

c'est j'ai esquiver le problème (solution de faciliter je sais )
mais j'ai encore un petit problème qui m'agace un peu
voila je voudrai ouvrir un fichier Excel a la fin de ma macro
voila mon code

Dim objXL As New Excel.Application  

 
With objXL  

.Application.Visible = False  

.Workbooks.Open ("//BATAX352/GMAO/Statut.xls" )  

End With

petit problème sa m'ouvre un autre fichier Excel et moi je vou drai que se sois dans le même que j'ai ouvert depuis le début(me suis je bien fait comprendre) .
Y a til solution?

M'enfin, tu comprends ce que tu codes ?

New Excel.Application, ça crée une nouvelle instance de l'application Excel.

Workbooks.Open

s'applique soit à l'instance en cours (si tu ne précises rien) ou à une instance en particulier si tu précises

Instance.Workbooks.Open

(Le With n'est une autre façon d'écrire ça.)

c'est bon j'ai compri

Ma drenière question et aprés je vous lache
est t-il possible de faire une espéce de barre de progression pendant le déroulement d'une macro ?

Je sais qu'il y a ce code:

Application.StatusBar = "Traitement en cours"  //par exemple

Pour changer ce qu'il y a d'écrit en bas de ta page.
Ce qui fait que tu peut y insérer des 10%, 25%, 50%, 75%...
Mais après, faire quelquechose qui évolue tout seul, aucune idée...

c'est bon sa va nikel merci

oups dernier petit probleme et apres je vous dit adieu
dans ma macro quand je fai ca

Windows("Liste des Applications.xls").Close

il me demande si je veut enregister ou pas et moi je voudrai pas qu'il maffiche se messages c'est possible(et qu'il nenregistre pas)?

2 solutions:

application.saved=true

Windows("Liste des Applications.xls").Close

qui te permettra d'esquiver seulement la sauvegarde en faisant croire que tu as déjà sauvegardé

application.displayalerts=false

Windows("Liste des Applications.xls").Close

qui te permettra d'éviter la plupart des messages d'avertissement (à double tranchant).

Et alors t'as fait comment pour ta barre d'états? Pense à mettre la réponse en plus de la question, ca intéresse tout le monde.

dans ma premiere macro j'ai une grande boucle et elle dure au moin 10 s alors j'ai mis ca :

For i = 1 To NbreLignes

....

        calci = (NbreLignes / i) * 100

        Application.StatusBar = calci & "%"       

....

Next i

ca fais pas mal je te remercie pour les tuyaux

A bah non. Si tu as des questions tu seras toujours le bienvenu.  

En plus, maintenant que tu es devenu un cador en VBA et en programmation, merci de revenir souvent pour faire profiter les autres de tes futurs précieux conseils  

La premiere solution me met un message d'erreur(propriete ou methode non gérer par cette objet) mais la deuxième marche nikel .

c'est clair, en plus chacun a sa propre logique. Il est souvent bon d'entendre plusieurs versions différente d'une solution pour un même problème.

Moi avec mes 3 mois d'expérience en vba, je pèse pas lourd, mais ca suffit souvent pour donner un coup de pouce au gens qui s'y mettent...

Idem pour toi  

oups...alors essaye ca:

Windows("Liste des Applications.xls").saved=true

non toujours pas mais bon l'autre me convient trés bien alors voila je voulai remercier toute l'équipe vous êtes franchement simpa avec tous les débutant et sans vous j'aurais vraiment pas beaucoup avancés .  
et a bientôt