Fonction Find VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

31/01/2012, 12h38
korni184

Je viens d'effectuer tous les tests et cela fonctionne,

cependant un test ne fonctionne pas :

Si les sheets France, Maroc Et Espagne possèdent des données triées et que dans ma fiche de Travail J je viens de coller des données non triées pour MAROC et FRANCE uniquement.

Lorsque je lance la répartition il efface la sheet espagne quand même on ne peut pas éviter cela ?

Merci d'avance

Cdlt

Bonjour,

Citation:

Un test ne fonctionne pas si les sheets France, Maroc Et Espagne possèdent des données triées et que dans ma fiche de Travail je viens de coller des données non triées pour MAROC et FRANCE uniquement.
Lorsque je lance la répartition il efface la sheet espagne quand même on ne peut pas éviter cela ?

Voici ce que j’ai compris.
Si l’un des pays n’est pas trouvé lors de la recherche dans la feuille travail, la feuille correspondante n’est pas effacée.
J'ai adapté le code pour que l'effacement se fasse à cette condition.

Code:

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
39
40
41
42
43
44
45
46
47
Sub Repartition()
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet
Dim c As Range
Dim Pays
Dim DerLig2 As Long
Dim Trouve As Boolean
    Set Ws1 = Worksheets("Fiche de Travail J")
    Pays = Array("FRANCE", "MAROC", "ESPAGNE")
    'Répartition des données
    For i = 0 To UBound(Pays)
        Set c = Ws1.Cells.Find(Pays(i), LookIn:=xlValues)
        If Not c Is Nothing Then
            'Effacement de la feuille pays
            If Trouve = False Then Worksheets(Pays(i)).Cells.Delete
            Trouve = True
            firstAddress = c.Address
            Do
                Set Ws2 = Worksheets(Pays(i))
                DerLig2 = Ws2.Range("A" & Ws2.Rows.Count).End(xlUp).Row
                If DerLig2 = 1 And Ws2.Range("A1") = "" Then DerLig2 = 0
                'Colle les nouvelles données dans cette page
                c.EntireRow.Copy Destination:=Ws2.Range("A" & DerLig2 + 1)
                c.EntireRow.Font.ColorIndex = 5
                Set c = Ws1.Cells.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
        If Trouve Then
            'Tri des colonnes
            Call TriColonne(Ws2)
            Trouve = False
        End If
    Next i
    Ws1.Select
    Message = "Voulez-vous effacer la feuille travail ?"
    Titre = "Fin de traitement"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Reponse = MsgBox(Message, Style, Titre)
    If Reponse = vbYes Then
        Cells.ClearContents
    End If
    Cells.Font.ColorIndex = 1
    Range("A1").Select
    Set c = Nothing
    Set Ws1 = Nothing
    Set Ws2 = Nothing
    Set Ws3 = Nothing
End Sub

Cordialement.

31/01/2012, 17h31
korni184

Parfait,

Le code est terminé et fonctionne à merveille un grand merci.

Seriez-vous oú je pourrai trouver un bon site pour expliquer tous ces termes `? "Boolean, as long, dim..."

Je mets +1 à tous les commentaires!

A la prochaine !!

De plus,

J'aurai une dernière petite question.
Le traitement d'ESPAGNE, va passer une autre Macro que TriColonne, car elle a une autre particularité (Séparation au niveau de la date).

Comment je peux ajouter dans le code que vous m'avez parvenir, l'appel d'une deuxième macro nommée TriColonneDate ? Mais essentiellement pour le pays ESPAGNE et toujours en prenant en compte les mêmes critères que les autres...

Merci d'avance.. !

Bàv
31/01/2012, 18h01
gFZT82
Citation:

Sauriez-vous oú je pourrai trouver un bon site pour expliquer tous ces termes `? "Boolean, as long, dim..."

Je recopie les bons conseils que j'ai donné ce matin à un autre participant

Pour commencer, je te conseille ce document
http://bidou.ftp-developpez.com/Cour...rmationVBA.pdf

Pour compléter, tu as l'aide VBA qui est très riche, l'enregistreur de macro qui est également d'une grande aide pour l'apprentissage.
Ensuite, le site Developpez te permettra de trouver la plupart des réponses à tes questions.
Et enfin, il y a le forum pour l’entraide.

Citation:

J’aurais une dernière petite question.
Le traitement d'ESPAGNE, va passer une autre Macro que TriColonne, car elle a une autre particularité (Séparation au niveau de la date).
Comment je peux ajouter dans le code que vous m'avez parvenir, l'appel d'une deuxième macro nommée TriColonneDate ? Mais essentiellement pour le pays ESPAGNE et toujours en prenant en compte les mêmes critères que les autres...

Tu peux toujours insérer une rustine
Code:

1 2 3 4 5 6 If Trouve Then 'Tri des colonnes Call TriColonne(Ws2) If Pays(i) = "ESPAGNE" then Call TriColonneDate(Ws2) Trouve = False End If
Cela dit, à force de rajouter des rustines, ton code va ressembler à gros tas de rustines :aie:.
Donc un bon conseil : prends tout ton temps pour réfléchir à ce que tu veux faire avant de coder, c’est autant de temps gagné à ne pas défaire.

Au plaisir ! ;)

Cordialement.
31/01/2012, 18h10
korni184

Impeccable !!!!

Je comprends très bien, c'est pour cela que je recommence tout depuis le début sur certain point. Pour bien comprendre son fonctionnement.

Cependant, si je peux me permettre votre lien, ne fonctionne pas ;)
J'attends avec impatience, le nouveau :)

Encore un grand merci
31/01/2012, 20h18
gFZT82

Oups ! désolé pour le lien.

https://bidou.developpez.com/article/VBA/

Espérons que la 2eme sera la bonne ;)

Cordialement.

Voir 40 message(s) de cette discussion en une page