Discussion :

[MOSTER]

Bonjour bonjour!
Voila, je suis debutante sur Excel et j'ai lu qu'avec VBA je pouvais faire certains travaux plus rapidement.

A- J'ai 2 feuilles ayant chacune une colonne A comme clé primaire.

1. trier toutes les cellules de la colonne A feuil1 existant dans colonne A feuil2, et sauvegarder dans colonne A de feuil3
2. trier tous les elements dans colonne A feuil1 mais n'existant pas dans feuille2, et les sauvegarder dans colonne A de feuil4
3. trier tous les elements dans colonne A feuil2 mais n'existant pas dans feuille1, et les sauvegarder dans colonne A de feuil5

B- j'ai un autre fichier avec des milliers d'informations dans la colonne A,
je veux formaliser le contenu dans la colonne B

exemple
la reponse devrait faire une reconnaissance du mot en formalisant le debut du mot ou sa fin sans tenir compte de la 'casse'
A1 tacTIL B1 tactile
A2 tactile B2 tactile
A3 bATTERY B3 batterie
A4 battery B4 batterie
A5 batteries B5 batterie
A6 ACtil B6 tactile

Merci d'avance!!!

[Menhir]

Tu fais une double boucle.
Pour chacun des éléments de ta feuil1, tu vérifies chacun des éléments de la feuil2.
Si tu trouves une correspondance, tu l'inscris en Feuil3.

Ensuite, tu fais une boucle sur les éléments de feuil1 et tu vérifies avec un Find ceux qui se trouvent en feuil3.
S'il n'y a pas de concordance, tu places en feuil4
Même chose pour les éléments de feuil2 à placer en feuil5 en cas de non correspondance.

Par contre, pour ce qui est de ne pas tenir compte des fautes d'orthographe (ou pire, de la langue) dans la recherche, je te souhaite bonne chance, tu en auras besoin.

[MOSTER]

Merci l'ami!

1. je comprends mais comment rédiger sous VBA?? jai trouver un bout de code mais celui ne gère que les entrées identiques;

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
Sub galopin()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet, ws5 As Worksheet, i1, i2, i3, k, kk, z, y
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
Set ws3 = Worksheets(3)
 
 
'declaration des feuilles d'entree
i1 = ws1.Range("A1").End(4).Row
i2 = ws2.Range("A1").End(4).Row
 
 
With ws1
  For k = 1 To i1
    z = .Range("A" & k)
 
 
     For kk = 1 To i2
        If z = ws2.Range("A" & kk) Then
       ws3.Range("A" & i3 + 1) = z
 
 
 
 
             i3 = i3 + 1
        End If
 
 
 
     Next
  Next
End With
End Sub
 
' je veux ajouter les 2 autres comparaisons sur les différences!

2. Par exemple, ici jveux faire une reconnaissance quand le mot a 4 lettres consecutives au minimum;
si mot=actil, formaliser avec 'tactile'
si mot=batterY, formaliser avec 'batterie'

merci!!!

[Menhir]

comment rediger sous VBA??

Pour commencer, il serait judicieux d'apprendre les bases de ce langage.
http://bidou.developpez.com/article/VBA/