Reprise de Ajouter des cellules apres comparaison

[bobafric]

Bonjour les gars
Suite à la discussion concernant "ajouter des cellules" je voudrai activer la macro à partir de n'importe quelle feuille du classeur.
Pour reprendre l'exemple de pedrag31 auquel j'ai ajouter la rectif de masterdico sur le fichier joint,"ajouter.zip"il faudrait que l'opération puisse être appliquée à partir des feuilles 2, 3 4 etc
Je pensais le faire avec ActiveSheet mais je n'y suis pas parvenu.
Merci encore pour votre coup de main.
Bob

 

[Dull]

Re : Reprise de Ajouter des cellules apres comparaison

Salut bobafric, le Forum

Peut être comme cela

Sub AjouterNouveauNomDansListe()
Dim cell As Range[B], i As Byte[/B]

'pour chaque cellule de la liste "C4:C10"
[B]For i = 2 To Sheets.Count[/B]
Set Plage = Sheets(i).Range("C1:C" & Sheets(i).Range("c65536").End(xlUp).Row)
For Each cell In Plage
    
    'mise a zero de la recherche
    Set NomExiste = Nothing
    'recherche de la valeur de la cellule "cell" dans toute la feuille 1
    Set NomExiste = Worksheets("Feuil1").UsedRange.Find(cell.Value)
    ' si la recherche donne aucun resultat
    If NomExiste Is Nothing Then
    'copie de la valeur de cell vers la derniere ligne de la colonne A feuille 1
    Cells(Worksheets("Feuil1").Range("A1").End(xlDown).Row + 1, 1).Value = cell.Value
    End If
' cellule suivante
Next cell
[B]Next i[/B]
End Sub

Bonne Journée

 

[bobafric]

Re : Reprise de Ajouter des cellules apres comparaison

Salut dull
Merci pour ta solution, je l'ai testé avec l'exemple donné.
Je vais le testé sur mon programme pour vor si ça marche
A plus Bob

 

[bobafric]

Re : Reprise de Ajouter des cellules apres comparaison

Salut Dull
Ta solution fonctionne, mais c'est hyper long.
lorsqu'on doit copier les nouvelles données, je suppose que la macro repasse toutes les lignes de toutes les feuilles du classeur.
Mon classeur comprend 31 feuilles, et les noms à recopier sont au nombre de 200 à l'heure actuelle.
Tu imagines le taf.
Alors je te fais le topo.
J'ai 31 feuilles (1 par jour), sur la feuille récapitulative "S33" je dois donc recopier les nouveaux noms enregistrés dans la journée.
Il y a au maximum 100 personnes par jour enregistrées et peut être une dizaine de nouveaux noms.
Donc, sur les feuilles nommées de "1" jusqu'à "31" dans la colonne F8:F57 on inscrit le nom des personnes du jour.
Sur la feuille récapitulative "S33" dans la colonne A3:A250 sont recopiées les personnes présentes jour après jour.
J'espère être assez clair sinon demande.
Merci à plus
Bob

 

[bobafric]

Re : Reprise de Ajouter des cellules apres comparaison

Je joins le fichier exemple que je dois utiliser.
Merci Tchao
Bob