Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Reprise de Ajouter des cellules apres comparaison

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bobafric
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bobafric

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
Re : Reprise de Ajouter des cellules apres comparaison

Salut bobafric, le Forum

Peut être comme cela

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Copier des cellules de plusieurs autres fichiers
2
Réponses
25
Affichages
3 K
Mercutio7
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…