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 ?