Appliquer une macro sur plusieurs ligne Fermé

Question

Bonjour à tous, Je démarre sur VBA et je cherche à appliquer une macro sur plusieurs ligne et elle doit s'adapter en fonction de la ligne. J'ai fait un module où j'ai renseigner le code suivant : Option ExplicitOption Compare Text'Permet de faire une rechercheV pour les matériauxSub Matériaux()Dim Ligne As IntegerRange("o5:o2000,q5:q2000") = EmptyFor Ligne = 508 To Range("a9999").End(xlUp).Row If Range("a" & Ligne) = Range("m5") Then Range("m5") = Range("a" & Ligne) Range("o5") = Range("b" & Ligne) Range("q5") = Range("c" & Ligne) Exit Sub End If Next LigneEnd Sub Puis pour faire la recherche en continue j'utilise ce code : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("m5")) Is Nothing Then Matériaux End If End Sub est-ce que vous auriez une idée pour que je puisse faire ça sans avoir à écrire 2000 fois le même code ?

informaticienNormand · Answer

Bonjour
Vous avez juste a faire un copier coller autant de fois que vous voulez.

Coridalement

Steinned · Answer

C'est justement pour trouver une autre solution que je demande de l'aide comme indiqué dans mon premier message. Car je vais avoir 2000 lignes à traiter avec cette macro.

eriiic · Answer

Bonjour,

tu devrais déposer un fichier anonymisé (données bidons) sur cjoint.com et coller ici le lien fourni.
En expliquant ce que tu veux faire car avec ton code c'est un peu flou.
Explique aussi le choix du SelectionChange car il ne parait pas judicieux.
Perso je serai absent cette am mais ça servira aux suivants
eric

Steinned · Answer

Je te remercie et je vais suivre ton conseil, voici le lien de mon fichier : https://cjoint.com/c/KAepbivY3Ea

Le but est de pouvoir écrire dans la colonne "Nom" un matériau et en fonction de ce nom faire une RechercheV qui me donnera les informations pour la colonne "Numérique" et "Groupe de matériau". Comme je ne veux pas utiliser de bouton, j'ai préféré que ça soit en automatique d'où le choix de SelectionChange. Après si je suis passé en VBA c'est par ce que je voulais pouvoir directement renseigner la colonne sans avoir à supprimer la formule dans la cellule. Après je ne cache pas que je démarre sur VBA et que le code est partiellement récupéré à droite et à gauche puis réassembler par mes soins. Enfin l'idée est de pouvoir appliquer la rechercheV sur l'ensemble de la colonne "Nom" sans avoir à recopier X fois la macro.

eriiic · Answer

Bonjour,

Si je tiens à faire une commande VBA c'est pour pouvoir écrire dans la cellule concernée sans supprimer systématiquement la formule 
une cellule c'est soit une formule, soit une saisie.
Ici je ne vois pas de raison pour remplacer les formules par des saisies, elles doivent donc toujours être présentes.

Si le tableau des matériaux n'est pas dans un autre onglet c'est car je ne sais pas appeler une feuille dans la formule que j'utilise
Ca ce n'est pas le plus dur. Il suffit d'aller sélectionner les paramètres à la souris et excel l'écrit correctement

Pour faire simple la formule que j'utilise fonctionne mais pour l'appliquer à l'ensemble de ma feuille il faut que je la recopie entre 500 et 2000 fois ce qui va alourdir nettement mon fichier
Déjà tu n'as pas à préparer des lignes vides d'avance.
2000 lignes avec des Recherchev() ne font pas peur à excel. D'autant plus qu'une formule n'est évaluée que seulement si des changements la concernant ont lieu.

En plus tu as mis ta plage en Tableau structuré (c'est bien).
Dès que tu démarres une saisie (sans sauter de ligne) une nouvelle ligne s'ajoute automatiquement à ton tableau en recopiant formules et formats.

Recherche d'abord dans les possibilités d'excel et apprend au fur et à mesure, vba ne doit pas servir à compenser des lacunes.
https://www.cjoint.com/c/KAfjTdWlsTW
eric

PS : je n'ai mis que Numérique ne sachant pas où allaient les autres.
Complète avant de tester l'ajout d'une saisie

Steinned · Answer

Merci pour ton fichier, mais j'ai déjà un fichier qui fonctionne avec formule. Si en VBA je démarre sur les formules je commence à correctement maitriser. 

Ce qui m'intéresse dans le fait de pouvoir directement saisir les informations c'est de pouvoir les adapter ou de copier coller directement une plage d'information sur celle-ci(la colonne "Nom" dans mon cas). Puis par la suite une fois cette action faite d'utiliser des formules car plus stable et compréhensible pour traiter les informations.

eriiic · Answer

je commence à correctement maitriser
si je peux me permettre un jugement : tu as encore un long chemin.
De toute façon on n'a jamais fini d'apprendre sur excel.

Ce qui m'intéresse dans le fait de pouvoir directement saisir les informations c'est de pouvoir les adapter ou de copier coller directement une plage d'information sur celle-ci(la colonne "Nom" dans mon cas).
je ne vois pas ce qui t'empêche de le faire.
Tu colles 5 noms à partir de M6, 5 lignes se créent avec les formules.
Tu colles 3 noms sur des lignes existantes, les formules se mettent à jour toute seules.
Que veux-tu faire de mieux avec VBA ?
Désolé mais je n'irais pas plus loin, ça ne serait pas te rendre service que t'aider dans cette voie.
eric

Steinned · Answer

C'est pas grave si tu ne peux rien après à voir si quelqu'un d'autre à une solution.

Appliquer une macro sur plusieurs ligne

8 réponses

Discussions similaires