Discussion :

[manufer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Overeath]

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 :

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
 
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é !

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Overeath]

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

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manufer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Marc-L]

Bonjour !

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

à savoir , 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, …

[riaolle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manufer]

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é ?

[manufer]

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.

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manufer]

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.

[Marc-L]

É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 …

[manufer]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

[riaolle]

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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

[manufer]

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 :

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
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 ?

[Marc-L]

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 …

[manufer]

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.

[Marc-L]

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 ?