Vba condition valeur cellule

Bonjour,

voilà mon problème, j'ai ce petit bout de code en vba qui ne fonctionne pas,

Est ce que quelqu'un peut me dire pourquoi svp ?

L'objectif est que si égalité il y a entre la valeur d'une cellule se trouvant dans "la feuille 1 plage cellule 1:1 à 200000:30"
et la valeur de la cellule se trouvant "dans la feuille 2 cellule 2:1" alors une msgbox apparait disant "ok"

Code:

---

1 2 3 4 5 6 7

Sub tango()   If Worksheets("Feuil1").Range(Cells(1, 1), Cells(200000, 30)).Value = Worksheets("Feuil3").Range(Cells(2, 1)).value Then MsgBox "ok" End If   End Sub

---

quelqu'un a t-il une solution pour faire fonctionner ce code ?

Bonjour manufer,

Dans ton programme, tu recherches si une plage de plusieurs cellule a la même valeur qu'une seule cellule. Ce ne sont pas les mêmes objets et donc cela ne peut pas marcher.
Il faut alors que tu vérifies chaque ligne de ta plage de données si j'ai bien compris ce que tu voulais faire.
Essaye :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub tango() Dim lig As Long Dim col As Long   Worksheets("Feuil1").Active   For lig = 1 To 200000 'Sur les lignes allant de 1 à 200000 For col = 1 To 30 ' Sur les collones allant de 1 à 30 If Cells(lig, col) = Worksheets("Feuil3").range(Cells(2, 1)).Value Then ' Si il y en a une qui correspond MsgBox "La cellule ligne " & lig & ", colonne " & col & "est la même ", vbOKOnly + vbDefaultButton1 + vbExclamation, " Cellule trouvée" Exit Sub ' On quitte le sub Else End If Next col Next lig   End Sub

---

Voila un exemple qui pourrait marcher, à toi de changer le nom de tes feuilles et de ta plage si cela change.
Si tu as des questions n'hésite pas
N'oublies pas de mettre le #code à chaque fois quand tu mets un code :p
En espérant t'avoir aidé !

Bonjour,
Plutôt que d'utiliser une boucle qui va rendre le temps d'éxecution de ta macro long, utilise la méthode Find :

Code:

---

1 2 3

Sub test() If Not Sheets("Feuil1").Range(Cells(1, 1), Cells(200000, 30)).Find(Range("B2").Value) Is Nothing Then MsgBox "ok" End Sub

---

rebonjour Riaolle,

Effectivement la méthode que j'emploie est très bourinne et je ne connaissais pas cette fonction mais est-ce qu'avec cette fonction "find", tu peux sortir la valeur de la cellule dans une MsgBox?

Cordialement,
Un aspirant à la programation

Oui, si tu lis le lien, tu verras que la méthode Find renvoie un Range (si elle trouve une correspondance). Il suffit donc de travailler dessus comme sur une Range :

Code:

---

1 2 3 4 5

Sub test() Dim trouvee As Variant trouvee = Sheets("Feuil1").Range(Cells(1, 1), Cells(200000, 30)).Find(Range("B2").Value) If Not trouvee Is Nothing Then MsgBox "La cellule se trouve à la ligne n° : " & trouvee.Row & " et la colonne n° : " & trouvee.Column End Sub

---

Bonjour à tous

Merci pour vos reponses qui me sont très utiles,

Le "find" je ne connais pas je vais tâcher de me documenter dessus.

J'ai été orienté vers une boucle (ubound),

Problème c'est que lorsque j'ai voulu bouclé sur des cellules non vide:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim i As Long Dim j As Byte Dim fin As Variant   Sheets("feuil1").Activate   fin = Worksheets("txcouvglo").Range("A1:AD200000").SpecialCells(xlCellTypeConstants).Select   For i = 1 To UBound(fin, 1)   For j = 1 To UBound(fin, 2)

---

ça ne fonctionne pas à partir du "For"

par contre j'arrive à boucler si je supprime la dernière partie de la variable .SpecialCells(xlCellTypeConstants).Select.

Auriez-vous une explication à ça ?

Bonjour !

Depuis la "présentation" initiale j'ai l'explication mais j'attends toujours de voir une règle du forum respectée,

à savoir :tagcode:, il y a même une démonstration dans ces règles pour les moins doués !


Les intervenants précédents étant peut-être passés à côté …

Une boucle étant inutile, j'en profite aussi pour rappeler un code est aussi inutile via une simple formule de feuille de calculs !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Pour trouver la dernière ligne non vide d'une feuille :

Code:

---

1 2	Dim derLig As Long derLig = Sheets("mafeuille").Cells(Rows.Count, 1).End(xlUp).Row

---

Salut,

Merci pour la rep,

Là il ne s'agit pas seulement de determiner la dernière ligne non vide mais de ne selectionner pour la boucle que les cellules non vide,

et d'en faire un tableau,

est ce que cela est possible de la façon dont je l'ai présenté ?

Merci à vous Riaolle et Marcl,

Il est possible que je fasse des erreurs sur le forum,

que ce soit sur la forme ou sur les codes,

Veuillez m'en excuser.

Citation:

---

Envoyé par manufer

Là il ne s'agit pas seulement de determiner la dernière ligne non vide mais de ne selectionner pour la boucle que les cellules non vide,

---

Je ne vois pas trop à quoi ça te sert pour trouver ta correspondance (cf. ta question initiale). Si tu fais une boucle sur toutes les cellules, tes cellules vide n'influeront pas puisqu'elles ne seront pas égales à la valeur que tu cherches. Et si tu utilises la méthode Find (beaucoup plus rapide qu'une boucle), tu n'as pas besoin non plus de te concentrer seulement sur les cellules non vides.
Si tu veux quand même à tout prix faire une boucle sur les cellules non vides :

Code:

---

1 2 3 4

Dim cellu As Range For Each cellu In Worksheets("txcouvglo").Range("A1:AD200000").SpecialCells(xlCellTypeConstants) 'ce qu'il y a à faire Next cellu

---

Ok Merci Riaolle,

Je penses que je vais beaucoup plus me documenter sur la methode que vous me proposez "find".

Je débute, si vous dites que c'est plus rapide,

je ne demande qu'a utiliser ce qu'il y a de mieux.

Merci beaucoup.

Éviter SpecialCells sur un grand volume de cellules, sa capacité étant limitée !

Le meilleure solution étant soit la méthode Find comme expliquée dans l'aide VBA interne
soit encore la fonction EQUIV de feuille de calculs …

Une contrainte s'est ajoutée à mon problème:

Code:

---

1 2 3 4 5

Sub test() If Not Sheets("txcouvglo").Range(Cells(1, 1), Cells(200000, 30)).Find(Sheets("Feuil3").Range("B2:D10").Value) Is Nothing Then Sheets("txcouvglo").Range(Cells(1, 1), Cells(200000, 30)).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil3").Cells(13, 1) End If End Sub

---

J'ai voulu copier la ligne à chaque fois qu'une cellule dans l'intervalle définit dans la feuille "txcouvglo" est égal à une cellule définit dans la feuille 3 (B2:D10) avec le "find".

Bonjour,
Si je comprends bien voici ton problème :

• Tu as 2 listes de mots : listeA et listeB
• Si un mot de listeA apparaît aussi dans listeB, tu veux recopier le mot dans une autre feuille.

Je ne vais pas te donner le code directement, mais je vais t'expliquer comment l'obtenir et te donner des pistes.

1. Il faut que tu fasses les recherches une par une pour chaque mot de listeA. Pour faire une boucle sur une plage de cellule :
   
   Code:

   ---

   1 2 3 4

   Dim cellu As Range For each cellu In Range("A1:D10") 'ce qu'il y a à faire Next cellu

   ---

2. Pour faire la recherche, tu sais comment faire maintenant (cf.méthode Find)
3. A priori, tu auras une liste de valeurs trouvées. Si tu veux écrire le résultat de tes recherches, il ne faudra pas l'écrire dans la même cellule à chaque fois, car sinon, tu vas réécrire par dessus à chaque iteration de la boucle. Utilise un indice i qui s'incrémentera à chaque fois que tu trouves un élément dans les 2 listes. Il te permettra d'écrire cet élément sur la première ligne non vide de la liste des éléments trouvés.

Code:

---

1 2 3 4 5 6 7 8 9

Dim cellu As Range Dim i As Long i = 1 For each cellu In Range("A1:D10") If je trouve le mot dans l'autre liste Then j'écris la valeur à la suite des autres valeurs trouvées j'incrémente i (cela me permettra d'écrire sur la prochaine ligne à la prochaine valeur commune trouvée) End if Next cellu

---

Pour les balises code, voici comment faire : http://club.developpez.com/aidenouve...es/Balises.gif

Bonjour,
https://www.developpez.net/forums/d1...s/#post8631393

Bonjour à vous,

Merci Riaolle et dysorthographie,

j'ai voulu retranscrire ce qui avait été dit précédemment,

Mais je me rend compte que lorsque je lance la boucle, elle ne m'affiche pas de bug mais pas de résultat non plus.

Bonjour à tous,

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

Sub test()   'Déclaration des variable Dim cellu As Range Dim i As Long i = 1   'je lance la boucle sur la plage dont je vais extraire les données   For Each cellu In Worksheets("txcouvglo").Range("A1:AD200000") '.SpecialCells(xlCellTypeConstants)   'déclaration de la variable trouvee Dim trouvee As Variant   'Si je trouve les correspondance entre les deux plages   If trouvee = Sheets("txcouvglo").Range("A1", "AD200000").Find(Worksheets("feuil3").Range("B2:D10").Value) Then   'A chaque fois qu'une cellule de la feuille "txcouvglo " dans la plage spécifié est égales aux données présentes en feuille 3 dans les plages spécifiés ' je copie la ligne entière de la feuille "txcouvglo " et la colle dans la feuille 2   trouvee.Sheets("txcouvglo").Range("A1", "AD200000").SpecialCells(xlCellTypeConstants).EntireRow.Copy Sheets("feuil2").[A65000].End(xlUp).Offset(i, 0)   End If Next cellu

---

Problème c'est qu'elle ne me renvoie aucune valeur en feuille 2

Ai-je oublié quelque chose svp ?

Effectuer déjà cette recherche manuellement depuis Excel …
Une fois une correspondance trouvée donc manuellement,
juste activer l'Enregistreur de macro puis réitérer la manipulation :   une base de code est livrée sur un plateau !

Et là ce sera facile de constater tout est pourtant déjà dans l'aide VBA interne de cette méthode Find …

C'est peut être très clair pour vous mais je peux vous assurer que pour ce que je veux faire il n'y a aucune explication complète.

Ce sont des bribes d'informations éparses et disparates.

Je suis pourtant bien conscient que ce ne doit pas être difficile,

Je continue de chercher, si vous avez des pistes sérieuses, je suis intéresse parce que je suis bloqué.

Merci à vous.

En lisant bien l'aide VBA interne de cette méthode puis en l'appliquant avec les paramètres adéquats …

Sinon manuellement depuis Excel la recherche donne déjà quoi ?

Depuis excel je peux utiliser une recherchev pour trouver les valeurs,

Cela demande plusieurs manip pour reprendre les valeurs de toute une ligne,

Mais mon objectif est de progresser en vba et je dois savoir faire ça dans ce langage.

Dans l'aide vba il mettent des paramètres facultatifs sans donner plus d'explications sur leur utilisation et ce qu'ils représentent:
ex: Il peut s’agir de l’une des constantes XlLookAt suivantes : xlWhole ou xlPart.
Aucune idée de ce que cela peut vouloir dire.

le copier coller d'une ligne entière avec la méthode "find" n'y est pas décrit.

Et là, je bloque complètement.

RECHERCHEV n'est pas la recherche d'Excel mais une fonction de formule de calculs !

La méthode VBA Find étant la recherche d'Excel, il suffit donc de tester manuellement …
Une fois la manipulation réussie, il suffit de la réitérer après avoir active
l'Enregistreur de macro pour obtenir les bons paramètres !

Bonjour, je réponds à ton post #17.
As-tu bien compris l'utilisatio nd'une boucle For Each?
Voici un exemple :

Code:

---

1 2 3 4 5 6

Dim cellu As Range Dim val As String For Each cellu In Sheets(1).Range("A1:B10") val = val & cellu.Value Next cellu MsgBox val

---

Cette boucle parcours les cellules de A1 à B10 et concatène leur valeurs. A chaque iteration, on utilise le fait qu'on parcours des cellules --> cf. on utilise cellu. Dans ta boucle, tu n'utilises jamais cellu, mais tu fais la même chose à chaque iteration de la boucle.
Tu veux chercher le mot qu'il y a dans cellu, donc il faut que tu utilises cellu pour ta recherche. Regarde bien quelle est la syntaxe de Find !!

Code:

---

plage_de_recherche.Find(mot_à_trouver)

---

Ce n'est pas ce que tu as écrit.
Dans ton cas, ce serait :

Code:

---

Sheets("txcouvglo").Range("A1:AD200000").Find(cellu.Value)

---

Sachant que là tu cherches ton mot dans la même liste de mot que celle que tu parcours, donc tu vas forcément le trouver ... Quelle est la plage de cellules où il faut chercher le mot ?
Ensuite, je ne comprends, pas bien ce que tu fais là:

Code:

---

trouvee.Sheets("txcouvglo").Range("A1", "AD200000").SpecialCells(xlCellTypeConstants).EntireRow.Copy

---

Tu veux copier la ligne de trouvee, n'est-ce pas?
Tout d'abord, un petit exemple imagé:
Maison("Dupond").Salle("cuisine")
Dans la logique de programmation en VBA (programmation orientée objet), ici tu dis que tu t'intéresses à la cuisine de la maison Dupond. Si tu écris :
Salle("cuisine").Maison("Dupond")
tu dis que tu t'intéresses à la maison Dupond de la cuisine. Ca ne va pas ! Dans ce que tu écris, si on ne prend que les 2 premiers objets : trouvee.Sheets("txcouvglo"), tu dis que tu veux t'intéresser à la feuille "txcouvglo" de la cellule trouvee. Ce n'est pas possible. Je ne comprends pas non plus pourquoi tu utilises SpecialCells. Si tu veux copier la ligne de trouvee, il suffit de copier la ligne de trouvee :

Code:

---

trouvee.EntireRow.Copy

---

Enfin, pourquoi utilises-tu la variable i ? Elle vaut toujours 1, non ?

Code:

---

1 2 3 4 5 6 7

Sub test() Dim cellu As Range For Each cellu In Worksheets("txcouvglo").Range("A1:AD200000") Dim trouvee As Variant trouvee = Sheets(feuille de recherche).Range(plage de recherche).Find(cellu.Value) If Not trouvee Is Nothing Then trouvee.EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) Next cellu

---

Bonjour Riaolle,

Merci pour ton retour et tes explications sur mes erreurs de logiques et de syntaxes.
Cela m'est très utile

Il y a juste un point à éclaircir, c'est

Code:

---

plage_de_recherche.Find(mot_à_trouver)

---

"mot_à_trouver" est une plage de cellule qui se trouve dans un autre onglet.

Et lorsque je fais:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub test()   'Déclaration de variables Dim cellu As Range Dim Cel As Range   'Je boucle sur les valeurs d'une plage (A1:AD200000) dans un onglet (txcouvglo) For Each cellu In Worksheets("txcouvglo").Range("A1:AD200000")   'Ici je déclare Cel, parce que je vais chercher dans l'onglet (txcouvglo) les lignes ayant des cellules égales aux valeurs présentes dans "Cel"   Set Cel = Worksheets("Feuil3").Range("B2:B10")   Dim trouvee As Variant   'Je fais la recherche trouvee = Sheets("txcouvglo").Range("A1:AD200000").Find(Cel.Value)   'Toutes les lignes de l'onget ("txcouvglo") dont les valeurs correspondent aux valeurs présentes dans la feuille 3 plage B2:B10 seront copiées dans la feuille 2.   If Not trouvee Is Nothing Then trouvee.EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) Next cellu End Sub

---

Sauf que à ce moment

Code:

---

If Not trouvee Is Nothing Then

---

J'ai un message d'erreur qui dit "objet requit".

Cette erreur vient elle d'une manip ou du code ?

Tu n'as toujours pas compris l'objectif de la boucle.
Je te renvoies à mon message #15 que je vais essayer de ré-expliquer autrement ici.
Tu as deux listes : Worksheets("Feuil3").Range("B2:B10") et Sheets("txcouvglo").Range("A1:AD200000"). Ce que tu veux : toutes les lignes de Sheets("txcouvglo").Range("A1:AD200000") dont la valeur en colonne A correspondent à une valeur de Worksheets("Feuil3").Range("B2:B10") doivent être copiées.
Ce que tu fais :

• Tu parcours une à une les cellules de la colonne A de Sheets("txcouvglo").Range("A1:AD200000")
• Quand tu es sur une cellule, tu cherches si sa valeur se trouve dans Worksheets("Feuil3").Range("B2:B10")
• Si on trouve une correspondance, on copie la ligne de la cellule. (je me rend compte, qu'en fait, tu n'as pas besoin de l'objet trouvee)

Code:

---

1 2 3 4 5 6

Sub test() Dim cellu As Range For Each cellu In Worksheets("txcouvglo").Range("A1:AD200000") 'on regarde chaque cellule une à une dans la première liste If Not Worksheets("Feuil3").Range("B2:B10").Find(cellu.Value) Is Nothing Then cellu.EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'on cherche si la valeur de cellu est dans la deuxième liste --> si oui on copie-colle la ligne de cellu Next cellu

---

Salut Riaolle,

J'ai bien prit note des commentaires et du code,

Pour des raisons que j'ignore, Ce code copie chaque ligne de l'onglet "txcouvglo" et les colle 18 fois dans l'onglet feuil2,

Sur un onglet (txcouvglo) de plus de 150 000 lignes: [copier x 18 & coller] fait planter le PC.

Pourquoi par 18 je ne sais pas.

Il ne prend pas non plus en compte la plage définit en feuille 3.

Je peux comprendre si tu n'as plus d'idée sur la question, le résultat est vraiment étrange.

Quelle est la plage de cellule à parcourir ? (= quelles sont les cellules qui doivent être comparées à la liste en Feuil3 ?) Est-ce que ce sont seulement les cellules de la colonne A ? Dans ce cas, il faut adapter la plage de cellule de la boucle.

Citation:

---

Il ne prend pas non plus en compte la plage définit en feuille 3.

---

Si : on fait la recherche sur la Feuil3 :

Code:

---

... Worksheets("Feuil3").Range("B2:B10").Find(cellu.Value) ...

---

Cela signifie : chercher cellu.Value dans la plage de cellule Worksheets("Feuil3").Range("B2:B10"). Donc à chaque cellule de Worksheets("txcouvglo").Range("A1:A200000") , on regarde si la valeur de la cellule est dans la liste en Worksheets("Feuil3").Range("B2:B10"). Si c'est le cas, on copie-colle la ligne de la cellule en Feuil2.

Code:

---

1 2 3 4 5 6 7

Sub test() Dim cellu As Range For Each cellu In Worksheets("txcouvglo").Range("A1:A200000") 'on regarde chaque cellule une à une dans la première liste If Not Worksheets("Feuil3").Range("B2:B10").Find(cellu.Value) Is Nothing Then cellu.EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'on cherche si la valeur de cellu est dans la deuxième liste --> si oui on copie-colle la ligne de cellu Next cellu End Sub

---

Quant aux 18 x : je ne vois pas trop, peut-être est-ce lié à la mauvaise définition de la plage de celule pour la boucle (est-ce que la valeur de la colonne A apparaît dans d'autres colonnes ?). Essaie déjà en adaptant le code comme je te le dis avec la bonne plage de cellule.

EDIT : sinon, essaie avec :

Code:

---

1 2 3 4 5 6 7

Sub test2() Dim cellu As Range For Each cellu In Worksheets("txcouvglo").Range("A1:A200000") 'on regarde chaque cellule une à une dans la première liste If Not IsError(Application.Match(cellu.Value, Worksheets("Feuil3").Range("B2:B10"), 0)) Then cellu.EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'on cherche si la valeur de cellu est dans la deuxième liste --> si oui on copie-colle la ligne de cellu Next cellu End Sub

---

Salut Riaolle,

ça marche Parfaitement je te remercie.

Je ne connaissait pas "Application.match".

Je dois continuer de m'exercer.

Merci à tous.