Problème avec Find(), Excel Vba

Version imprimable

Bonjour tout le monde,

Je re dépose un post aujourd'hui car j'ai encore un soucis sur un autre projet.
Sous excel je dois comparer deux collons, c'est-à-dire que je regarde chaque cellule de la colonne pas et je vérifie si elle se trouve dans la colonne B. Si la cellule n'est pas présente je l'écris dans la colonne C.

Le problème c'est que Find() ne fonctionne pas chez moi je comprend pas pourquoi, les cellules sont de type texte et contitenne des chiffres très grand du style 12caractères.
Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 For i = 2 To 11 Set pos = Cells.Find(What:=Worksheets("caps").Cells(i, 13).Value, _ After:=Worksheets("mercure").Cells(1, 11)) If pos Is Nothing Then 'cherche la premiere cellule vide DernCellUtil = Worksheets("Sauvegarde").Range("G1").End(xlDown).Row Worksheets("Sauvegarde").Cells((DernCellUtil + 1), 7).Value = Worksheets("caps").Cells(i, 13).Value End If Next i
Dans la colonne C (celle située sur la feuille Sauvegarde), soit elle me réécri toutes les cellule de la colonne A, ou elle me réécri rien du tout. Alors qu'il y a bien des éléments de la colonne A présent dans la colonne B, mais pas tous.

Que faire?

Merci beaucoup d'avance!;)

bonjour mmmxtina le forum compare la colonne a avec la colonne b si pas present copy sur colonne c de la meme feuille a adapter

Code:

1
2
3
4
5
6
7
8
9
Option Explicit
Sub essai()
Dim i As Long, c As Range
Application.ScreenUpdating = False
For i = 2 To Range("A65535").End(xlUp).Row
Set c = Range("b2:b" & Range("b65000").End(xlUp).Row).Find(Cells(i, 1))
If c Is Nothing Then Range("c65536").End(xlUp)(2) = Cells(i, 1)
Next i
End Sub

28/05/2009, 10h13
mmmxtina

Bonjour laeticia, merci beaucoup de ta réponse.

Par contre je n'ai pas bien compris la 2e ligne du for:

Code:

Set c = Range("b2:b" & Range("b65000").End(xlUp).Row).Find(Cells(i, 1))

est-ce-que tu pourrai m'expliquer brièvement, en fait je ne comprend pas pourquoi tu à Range(Range().Find())?

Merci beaucoup.;)
28/05/2009, 10h18
lilp1

bonjour, en gros la deuxieme ligne va recherche dans la colonne B jusqu'a la derniere ligne 'Range("b2:b" & Range("b65000").End(xlUp).Row)' et va chercher dans cette colonne la valeur de la celulle de 'i'

Merci lilp1, pour ta réponse.
Bon je dois avouer que je ne suis pas très douée en vba, en fait les données sont sur 3 onglets différents peut-être que cela pose problème, car ça ne fonctionne pas chez moi. je te montre ce que j'ai écris:
Code:

1 2 3 4 5 6 Dim i As Long, c As Range Application.ScreenUpdating = False For i = 2 To Worksheets("Feuil1").Range("M65535").End(xlUp).Row Set c = Worksheets("Feuil2").Range("k2:k" & Range("k65000").End(xlUp).Row).Find(Cells(i, 1)) If c Is Nothing Then Worksheets("Feuil3").Range("g65536").End(xlUp)(2) = Cells(i, 1) Next i
J'ai repis la syntaxe de laeticia, que je n'ai pas trop compris j'avou et rien n'est écris dans la feuille3, alors que quand je fais du pas à pas, il me semble que la fonction passe par le If c is nothing...
bizare bizare, je comprend pas.

Merci beaucoup!;)

28/05/2009, 10h38
lilp1

COntent d'avoir put t'aider, mais aps mes connaissances s'arretent la, je poste bcp plus de questions que je n'apporte de réponse. j'ai put t'aider, car j'ai eu pas mal de pbrs avec Find aussi y a 2 3j.

J'avai mal adapté le code excusez moi!!!
donc là la fonction Find() m'écris quelquechose mais tout ce qui se trouve dans la colonne m feuille 1, alors que ce que je voulais c'est quand quelquechose de la colonne M feuille 1, est dans la colonne k feuille 2, on ne fais rien, c'est seulement quand on le trouve pas on écris dans la colonne g feuille 3.
J'ai écris ça:
Code:

1 2 3 4 5 6 7 8 Dim i As Long, c As Range Application.ScreenUpdating = False For i = 2 To Worksheets("feuil1").Range("M65535").End(xlUp).Row Set c = Worksheets("feuil2").Range("k2:k" & Range("k65000").End(xlUp).Row).Find(Worksheets("feuil1").Cells(i, 13)) If c Is Nothing Then Worksheets("feuil3").Range("g65536").End(xlUp)(2) = Worksheets("feuil1").Cells(i, 13) End If Next i
J'ai toujours le même problème je ne comprend pas, même quand j'essai avec des lettre genre a, b ou c, eh bien il ne les retrouve pas dans la feuil2 colonne k.
une idée du problème?
merci.;)

re, essai comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub essai()
Dim i As Long, c As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = 2 To .Range("m65535").End(xlUp).Row
With Sheets("Feuil2")
Set c = .Range("k2:k" & .Range("k65000").End(xlUp).Row).Find(Sheets("Feuil1").Cells(i, 13))
If c Is Nothing Then Sheets("Feuil3").Range("g65536").End(xlUp)(2) = Cells(i, 13)
End With: Next i: End With
End Sub

28/05/2009, 10h59
mmmxtina

Ca fonctionne très bien merci!!! :D

Parcontre je n'ai rien compris à la syntaxe!!!! donc bon je vais essayer de faire des recherches sur With, et aussi j'ai pas trop l'habitude de la fonction xlup, je connaissai xldown, enfin je vais essayer de déchiffrer tout ça.

merci laeticia en tout cas!
:D
28/05/2009, 11h14
laetitia

re,

Cette instruction permet d'exécuter une série d'instructions se rapportant à un même objet ou à un même type défini par l'utilisateur. Elle permet une exécution du code plus rapide et évite les saisies répétitives car tu qu'une seule fois le nom de l'objet ou de la variable.

tu remarques qu'il y a des points

Code:

For i = 2 To .Range("m65535").End(xlUp).Row

Code:

Set c = .Range("k2:k" & .Range("k65000").End(xlUp).Row)

la différence entre xlup & xldown
xldown la boucle par du haut vers le bas inconvenient si il rencontre une cellule vide la boucle s arrête on l' utilise bien sûr on l'utilise quand on recherche la premiere cellule vide

Code:

.End(xlUp).Row

part du bas vers le haut de la derniere cellule pleine jusqu' a la prémiere pas d arrêt si cellule vide entre

ps j 'ai oublie de dire bonjour a lilp1:oops:
28/05/2009, 11h21
mmmxtina

Merci pour toutes ces explications, c'est vraiment sympa laeticia!:D

Par contre toute petite question, réponds-y quand tu as du temps, je comprend pas le (2) dans cette ligne :

Code:

Sheets("Feuil3").Range("g65536").End(xlUp)(2)

voilà tout, le reste je pense avoir cerné, c'est bien que tu m'ai donnée une fonction qui optimise Excel car j'ai énormément de données à brasser donc ça m'arrange, j'essairai de réutiliser With à bon escient!

Merci pour tout laeticia ainsi que lilp1.:zoubi:
28/05/2009, 11h38
laetitia

re, le 2 est une simplification de offset

tu peus écrire comme cela

Code:

If c Is Nothing Then Sheets("Feuil3").Range("g65536").End(xlUp).Offset(1, 0) = Cells(i, 13)
28/05/2009, 11h57
mmmxtina

Merci c'est génial, je viens de comprendre Offset!!!
Oui, je suis vraiment nulle en vba!
merci beaucoup, bonne journée!:D