Recherche sur une autre feuille avec condition

[redupdevils]

Bonjour à tous,

Voila le topo : j'ai 6 feuilles comprenant le même tableau. Je viens insérer des noms dans chacun de ces tableaux grâce à une macro.

Dès que j'ajoute un nouveau nom, il vient alimenter une liste dans ma feuil7.

Jusque là ça va... Maintenant si j'ajoute "ROGER" une première fois dans ma feuil1 puis une autre fois dans ma feuil2, il est repris 2 fois dans ma liste en feuil7... Et je voudrais qu'il n'apparaisse pas s'il est déjà dedans.

Voici un exemple du code pour ma feuil1 (qui ne marche pas😀) :

z est la première ligne vide de ma feuil8

Feui7.Range(Cells(2, 1), Cells(z, 1)).Select
For Each c In Selection
If c.Value <> TextBox1.Text Then
feuil7.Cells(z, 1) = TextBox1
feuil7.Cells(z, 1).HorizontalAlignment = 1
feuil7.Cells(z, 1).HorizontalAlignment = 1
Exit Sub
End If
Next c


Merci de votre aide !

 

[Robert]

Re : Recherche sur une autre feuille avec condition

Bonjour Redupdevils, bonjour le forum,

Peut-être comme ça :

Dim pl As Range 'déclare la variable pl (PLage)
Dim r As Range 'déclare la variable r (Recherche)
 
Set pl = Sheets("Feui7").Range(.Cells(2, 1), .Cells(z - 1, 1)) 'définit la variable pl
Set r = pl.Find(TextBox1.Text) 'définit la variable r
If r Is Nothing Then 'condition : si aucune occurrence de r n'est trouvée
    With Sheets("Feuil7")
        .Cells(z, 1) = TextBox1.Value 'place la valeur de la TextBox1 dans la première ligne vide de la colonne A de l'onglet "Feuil7"
        .Cells(z, 1).HorizontalAlignment = 1
        .Cells(z, 1).HorizontalAlignment = 1
    End With
End If

 

[redupdevils]

Re : Recherche sur une autre feuille avec condition

Salut Robert,

Après un essai avec ton code, il me renvoie une erreur de référence incorrecte sur la partie suivante :

Dim pl As Range 'déclare la variable pl (PLage)
Dim r As Range 'déclare la variable r (Recherche)

Set pl = Sheets("Feui7").Range(.Cells(2, 1), .Cells(z - 1, 1)) 'définit la variable pl
Set r = pl.Find(TextBox1.Text) 'définit la variable r
If r Is Nothing Then 'condition : si aucune occurrence de r n'est trouvée
With Sheets("Feuil7")
.Cells(z, 1) = TextBox1.Value 'place la valeur de la TextBox1 dans la première ligne vide de la colonne A de l'onglet "Feuil7"
.Cells(z, 1).HorizontalAlignment = 1
.Cells(z, 1).HorizontalAlignment = 1
End With
End If


Ca commence à me prendre la tête cette histoire lol...

Help !!!

 

[job75]

Re : Recherche sur une autre feuille avec condition

Bonsoir redupdevils, Robert,

Le With...End With doit tout encadrer car il faut que tous les points de .Cells correspondent à quelque chose...

With Sheets("Feuil7")
Set pl = .Range(.Cells(2, 1), .Cells(z - 1, 1)) 'définit la variable pl
Set r = pl.Find(TextBox1.Text) 'définit la variable r
If r Is Nothing Then 'condition : si aucune occurrence de r n'est trouvée
.Cells(z, 1) = TextBox1.Value 'place la valeur de la TextBox1 dans la première ligne vide de la colonne A de l'onglet "Feuil7"
.Cells(z, 1).HorizontalAlignment = 1
.Cells(z, 1).HorizontalAlignment = 1
End If
End With

A+

 

[redupdevils]

Re : Recherche sur une autre feuille avec condition

Ca ne fonctionne toujours pas, maintenant j'ai ce message :

"Erreur d'exécution '9'
L'indice n'appartient pas à la sélection."


Maydéééééé lol

 

[Robert]

Re : Recherche sur une autre feuille avec condition

Bonsoir le fil, bonsoir le forum,

le plus simple serait que tu mettes ton fichier ou un fichier exemple basé sur ton fichier en pièce jointe. Sinon on va pas s'en sortir et ça va prendre des heures...

 

[job75]

Re : Recherche sur une autre feuille avec condition

Re,

L'indice n'appartient pas à la sélection.

Il s'agit de l'indice d'une collection, et je ne vois que Sheets.

Quand on écrit Sheets("Feuil7") il faut qu'il existe bien une feuille qui porte le nom Feuil7 (nom de l'onglet).

Sinon remplacer Feuil7 par le nom correct.

A+