Débuts en macro : solution partiellement trouvée

Bonjour à tous et à toutes,

Désolé de mon intervention très novice comparée au niveau global des gens ici, je ne suis pas du tout utilisateur régulier des macros dans Excel car aucune nécessité si ce n'est juste de façon sporadique et je me retrouve confronté justement à utiliser une macro pour mon tableau car aucun autre choix possible.

Un grand merci à Mr. Boisgontier Jacques car en cherchant sur de multiples forums, j'ai finis par trouver ce qui semble être la solution à mon problème et qui a été posté par ce Mr. (apparemment très qualifié), mais je n'arrive pas à comprendre comment ça fonctionne... j'ai essayé mais après 2 après-midi entières je sèche...

Le problème va paraître simple pour bon nombre d'entre vous, c'est un casse-tête pour moi... je m'explique :

- Je travaille dans une boutique, j'ai un tableau EXCEL pour imprimer mes étiquettes prix avec une police de caractère bien sûr, le titre de chaque article en gras, souligné et le prix en gras.

- Dans le même classeur, constitué de plusieurs "feuilles", j'ai une feuille (nommée : Données Étiquettes) avec dans la colonne A des chiffres allant de 1 à 300 environ. Dans la colonne B j'ai donc l'étiquette de chaque article. Par ex en A1 j'ai donc le chiffre 1, en B1 j'ai une étiquette, en A2 le chiffre 2 et B2 une autre étiquette... etc.

- Dans une autre feuille, j'ai donc une zone d'impression définit sur 16 cellules englobant les cellules E1:E4 à H1:H4, toutes au bon format pour entrer dans une feuille A4, bref, le but étant de marquer un chiffre en A1 par ex et d'obtenir dans E1 l'étiquette correspondante à ce chiffre en se référant à la colonne B de la 1ère feuille (Données Étiquettes).

- De cette manière, lorsque j'ai quelques étiquettes prix à imprimer, je vais chercher les chiffres correspondant et j'ai juste à les inscrire, les étiquettes s'affichent de façon auto et j'imprime, plus simple, plus rapide, moins c..ant !

- RechercheV : ça marche, mais pas pour la mise en forme... et il me la faut ! Du coup j'ai cherché sur le net, pas moyen sans macro à ce que je vois. Ma recherche m'amène sur une réponse de M. Boisgontier qui donne un lien de téléchargement d'un tableau Excel tout simple servant d'exemple de solution j'imagine et il est magique (pour moi du moins)

- Le tableau de ce Mr. est en PJ (RecherchevPresentation.xls) : on voit bien qu'avec cette formule miraculeuse la colonne B de la feuille "Descriptif lot" s'incrémente des données de la feuille "BD" en fonction de ce qu'on inscrit dans la colonne A, de façon automatique et en respectant la mise en forme, c'est juste parfaitement ce que je veux !

- Mais le hic : je lis bien la macro dans la zone de texte, mais lorsque je clic sur Afficher les macros = c'est vide !! Comment ? Pourquoi ? Comment ça peut marcher ??

- Peu importe, je copie la zone de texte, que j'essaie de comprendre, pour créer la même macro dans mon tableau. J'ai sélectionné les colonnes A et B dans ma feuille "Données Étiquettes" pour y inscrire "données" dans la zone nom, je renomme "BD" par "Données Étiquettes" dans la formule macro, je remplace [A3:A10] par [A1:A10000] également.

- Lorsque je sauvegarde, j'ai systématiquement un message d'erreur :

Citation:

---

Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro :

* Projet VB

Pour enregistrer un fichier avec ces fonctionnalités, cliquez sur Non, puis sélectionnez un type de fichier prenant en charge les macros dans la liste Type de fichier.

Pour continuer à enregistrer en tant que classeur sans macro, cliquez sur Oui.

---

- J'ai testé plein de choses mais... je n'y arrive pas... impossible non seulement de comprendre cette formule (c'est un peu du chinois pour moi), mais aussi de la faire fonctionner pour moi. En même temps je sais qu'il est difficile de faire fonctionner quelque chose qu'on comprend pas...

Je poste donc en PJ le tableau de Mr. Boisgontier ainsi que le mien, dans mon classeur les 2 seules feuilles intéressantes sont : "Données Étiquettes" et "Étiquettes" (le reste n'est pas concerné). J'ai laissé pour le moment les formules Recherchev à la place...

Je viens demander de l'aide car passer des heures sans solution ça devient énervant et j'avoue perdre patience pour le coup.

Pièce jointe 430597 Pièce jointe 430600

Désolé pour la longueur du message...

MamylaPuce

bonsoir Mamy la Puce, la forum
Il faut d'abord activer les macros dans ta version excel à travers ce chemin
Fichier / Option / centre de gestion de la confidentialité / paramètre centre de gestion de la confidentialité / paramètre Macros / cocher la 4ème : activer toutes les macros
enregistrer et quitter
comme ça votre Excel va lire et enregistre les feuilles avec macro
et puis en verra la suite
NB : Tu peux accéder au macro via Alt + F11

Bonjour,

Citation:

---

Envoyé par Mamy la Puce

Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro :

* Projet VB

Pour enregistrer un fichier avec ces fonctionnalités, cliquez sur Non, puis sélectionnez un type de fichier prenant en charge les macros dans la liste Type de fichier.

Pour continuer à enregistrer en tant que classeur sans macro, cliquez sur Oui.

---

Tu dois sauvegarder ton classeur au format xlsm et non xlsx, quand Excel te pose cette question clique sur Non et change le format, sinon tu perds toutes tes macros

Bonjour Mamy la Puce,

J'ai regardé votre message (un peu long :) mais on sens que vous y avez passer du temps) et vos deux fichiers.

Tout d'abord pour gérer les macros, les fichiers Excel doivent avoir des formats spécifiques depuis la version 2010. Le fichier que vous avez trouver est sous un format (xls) antérieur à ces versions.
Dans votre cas vous avez deux choix soit enregistrer votre classeur dans ce format sois utiliser le format xlsm (fichier prenant en charge les macros). Mais pas de format xlsx.

Deuxièmement, la macro est une procédure événementielle qui est attaché à la feuille Étiquette dans votre cas. C'est normal que vous n'y avez pas accès directement par l'interface de macro.
Pour pouvoir y accéder faite Alt+F11 ou par l'onglet développeur en cliquent sur le bouton Visual Basic.

Une fois l'interface ouvert, sur la droite en haut de votre écran vous devriez voir les différentes feuilles de votre classeur. Double cliquer sur le feuille Étiquette et la macro s'affichera.

Enfin, j'ai réglé votre code et reprenant la feuille étiquette comme vous l'avez joint et j'ai compléter la zone de texte afin de vous éclairez sur le code en lui même afin d’effectuer les éventuelles modifications
Il n'y a plus qu'a testé !!! :D

(A titre d'information, la zone de texte n'est pas indispensable pour faire fonctionner le fichier, supprimez là si

Version antérieur à 2010
Pièce jointe 430622

Version aujourd'hui
Pièce jointe 430624

En espérant avoir répondu à vos besoins.

A+

Bonjour,

Alors je suis bien allé dans Option pour activer toutes les Macros, j'ai bien enregistré le fichier au format xlsm. En revanche, je n'ai pas d'onglet "Développeur" et donc je ne trouve pas de bouton Virtual Basic... ou alors j'ai pas trouvé...

Il me semblait qu'on pouvait voir et avoir accès à toutes les macros quand on clic sur "afficher les macros" de l'onglet Affichage, il y a possibilité de visualiser toutes les macros même rattachées à d'autres classeurs vu qu'on nous propose le choix.

De même, les fichiers que vous avez mit en PJ ne sont pas lisibles pour moi, est-ce normal ? Merci en tout cas de votre rapidité à tous ^^

ALT+F11

Afficher l'onglet Développeur dans votre application Office
Cliquez sur l'onglet Fichier.
Cliquez sur Options.
Cliquez sur Personnaliser le ruban.
Sous Personnaliser le ruban et Onglets principaux, activez la case à cocher Développeur.

Citation:

---

Envoyé par Mamy la Puce

En revanche, je n'ai pas d'onglet "Développeur" et donc je ne trouve pas de bouton Virtual Basic... ou alors j'ai pas trouvé...

---

Pour faire apparaitre le menu developpeur qui de base est masqué, il faut aller dans fichier->option->personnaliser le ruban-> cocher l'onglet développeur

Très bien, onglet développeur débloqué, merci, j'ai donc cliqué sur VB et j'y ai implanté le code suivant (modifié pour mon tableau) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then p = Application.Match(Target, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 1) End If End If End Sub Private Sub Worksheet_Activate() Application.ScreenUpdating = False For Each c In [A1:A10000] p = Application.Match(c, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy c.Offset(, 1) End If Next c Application.ScreenUpdating = True End Sub

---

Et ça marche en partie !! C'est déjà super ^^ Mais seullement voilà, je voudrais comme correspondance entre la donnée chiffrée que j'inscris et l'incrément de la cellule correspondante :

A1 => E1 (et donc A2 => E2... etc jusqu'à A4)
B1 => F1 (et ainsi de suite, jusqu'à la ligne 4)
C1 => G1 (pareil)
D1 => H1 (tjrs pareil)

Mais un grand pas en avant déjà ^^

[EDIT] actuellement c'est la cellule B qui s'incrémente par rapport à A...

bonsoir
essayez les modification dans le boucle

Code:

---

1 2 3 4

If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 1) Sheets("Données Étiquettes").Range("données").Cells(p, 3).Copy Target.Offset(, 2) ' qq chose comme ça End If

---

bonsoir,

Avez-vous essayé de regarder le fichier que j'ai mis en pièce jointe du précédent message, il doit y avoir la réponse à votre problème de décalage.

Sinon remplacer

Code:

---

Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 1)

---

par

Code:

---

Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 4)

---

le 4 représente la différence entre la colonne A et E ou B et G etc...

John Mc Evee : je n'arrive pas à les ouvrir, voici le message que j'ai directement depuis le forum quand je clic dessus :

Citation:

---

Pièce jointe spécifié(e) non valide. Si vous suivez un lien valide, veuillez notifier l'administrateur

---

D'accord, alors je crois avoir compris un peu, effectivement, Copy Target.Offset(, 1) indique à la formule de copier dans la colonne A+1 donc B, en mettant 4 on a A+4 donc E et ça fonctionne bien en changeant juste le chiffre 1 en 4, mais ça ne marche que pour la colonne A et je pense avoir compris pourquoi.

Dites-moi si je me trompe mais peut-être devrais-je avoir ceci en tout dans le code :

Code:

---

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then p = Application.Match(Target, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 4) End If End If End Sub Private Sub Worksheet_Activate() Application.ScreenUpdating = False For Each c In [A1:A10000] p = Application.Match(c, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy c.Offset(, 4) End If Next c Application.ScreenUpdating = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 And Target.Count = 1 Then p = Application.Match(Target, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 4) End If End If End Sub Private Sub Worksheet_Activate() Application.ScreenUpdating = False For Each c In [A1:A10000] p = Application.Match(c, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy c.Offset(, 4) End If Next c Application.ScreenUpdating = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Count = 1 Then p = Application.Match(Target, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 4) End If End If End Sub Private Sub Worksheet_Activate() Application.ScreenUpdating = False For Each c In [A1:A10000] p = Application.Match(c, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy c.Offset(, 4) End If Next c Application.ScreenUpdating = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 And Target.Count = 1 Then p = Application.Match(Target, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(, 4) End If End If End Sub Private Sub Worksheet_Activate() Application.ScreenUpdating = False For Each c In [A1:A10000] p = Application.Match(c, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy c.Offset(, 4) End If Next c Application.ScreenUpdating = True End Sub

---

Mais le code est long... et je trouve que ça mouline sévère avant de s'afficher... peut-têtre ai-je eu tort de mettre les colonnes A et B entières dans le champs données... y'a t'il moyen de modifier ça ? J'ai l'impression que le logiciel va vérifier trop de cellules avant de trouver concordance...

=> j'ai modifié à chaque fois la ligne :

Code:

---

If Target.Column = 1 And Target.Count = 1 Then

---

Ok j'ai du faire une mauvaise manip sur l'importation du fichier

Le revoici

Pièce jointe 430677

Et voici les modifications pour que cela fonctionne (c'est toujours mieux de le faire soi-même c'est comme cela qu'on apprend :D)

remplacer

Code:

---

If Target.Column = 1 And Target.Count = 1 Then

---

par

Code:

---

If Target.Column <= 4 And Target.Count = 1 Then

---

Dans le premier cas la macro ne fonctionnera que sur la colonne 1 (ou A) avec <=4 elle fonctionnera sur les colonnes A à D


Et remplacer

Code:

---

For Each c In [A1:A10000]

---

par

Code:

---

For Each c In [A1:D10000]

---

Toujours dans l'idée de rendre actif les 4 première colonne.

A+

Pour la longueur de la recherche cela dépend des capacités de votre ordinateur mais effectivement de la longueur des plages de recherche influes sur ces ressources.

Reduire le :

Code:

---

For Each c In [A1:D10000]

---

par

Code:

---

For Each c In [A1:D50]

---

Et voir votre plage nommée "Donnée" qui a pour référence "A:B" peut-être faire plutôt A1:B500 (en fonction du nombre de référence avec un peu de marge)

Pratique et efficace ^^ Génial, ça marche d'enfer !! Il me faudrait régler ce pbl de temps avant que ça s'affiche, je veux bien que mon PC soit pas top mais le but est que ce soit rapide et c'est le seul bémol restant.

Peut-être pourrais-je sélectionner les colonnes A1:A2000 et B1:B2000 seulement, les renommer dans la zone nom en "données2" par ex et donc changer .Range("données") par .Range("données2") ? Est-ce que je vais pas faire de bourde ? Est-ce que ça va être plus rapide ? Est-il possible de redéfinir le champ "données" (je sais pas si c'est les bons termes que j'emploie...) en sélectionnant A et B jusqu'à 2000 lignes et pas plus (pas besoin de plus et je pense n'aurais jamais besoin de plus)


En tout cas, un grand merci à vous tous ! ;)

Je n'avais pas vu avant mais dans votre code vous avez dupliqué 4 fois les macro avec la modif sur le Target.column a chaque fois. Donc a chaque mise à jour, il teste 4 fois la macro.

Normalement vous devriez arriver à quelque chose comme ceci

Code:

---

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

'***************************************************************************************** 'En prime un peu d'explication '***************************************************************************************** Private Sub Worksheet_Change(ByVal Target As Range)   'Le target représente la ou les cellules actives et 'le programme test si vous avez selectionnez une seule cellule ' Le target.column spécifie que l'action ne peut se réaliser que si cela concerne ' une cellule situé dans les 4 premières colonnes (a adapté en fonction de vos besoins) If Target.Count = 1 And Target.Column <= 4 Then   'La fonction Math ressemble à RECHERCHEV mais au lieu de renvoyer la valeur ' elle renvoie le numéro de ligne p = Application.Match(Target, Application.Index([données], , 1), 0)   'Si on trouve une correspondance If Not IsError(p) Then   'Alors on récupère la valeur de la cellule qu'on copie ' en partant de la cellule Target ' Le offset permet de décaler la cellule de destination dans votre exemple ' il y 0 ligne et 4 colonne de décalage (a adapter en fonction des besions Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(0, 4)   End If   End If   End Sub '***************************************************************************************** Private Sub Worksheet_Activate()   'Cette fonction permet un rafraichissement globale à chaque fois ' que vous activez la feuille Application.ScreenUpdating = False   ' La variable c est équivaut au target de l'évenement précédent ' Pour l'instant le raffraichissement se fait de la cellule A1 à D10 ' A adapter en fonction des besoins For Each c In [A1:D50] p = Application.Match(c, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy c.Offset(, 4) End If Next c   Application.ScreenUpdating = True   End Sub

---

Pour les plages de données c'est à vous de juger. Au plaisir de vous aider pour la prochaine tentative :D

A+

Pour modifier la référence de la plage nommée "Données" allez dans l'onglet formule et appuyer sur le bouton gestionnaire de noms
En bas de la fenêtre vous avez plus cas modifier la référence.

Ou créer une nouvelle plage nommée comme vous souhaitiez le faire en modifiant les noms dans la macro, il n'y a aucun souci vous avez la bonne démarche.

Oui, tout a été corrigé par rapport à cette duplication, je me posais question mais la simple modif de ligne suffit, pas besoin de le répéter en fait, ça c'est bon, le code actuel est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count <= 4 Then p = Application.Match(Target, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy Target.Offset(0, 4) End If End If End Sub Private Sub Worksheet_Activate() Application.ScreenUpdating = False For Each c In [A1:D10] p = Application.Match(c, Application.Index([données], , 1), 0) If Not IsError(p) Then Sheets("Données Étiquettes").Range("données").Cells(p, 2).Copy c.Offset(, 4) End If Next c Application.ScreenUpdating = True End Sub

---

Ce qui je pense est identique à ce que vous m'avez indiqué dans votre fichier, et ça marche impeccablement bien ^^

Par contre, je ne me l'explique pas, mais votre fichier (le mien mais modifié par vous) est au moins 100x plus rapide à agir que le mien !! La modif est instantanée comparé à moi où l'étiquette s'affiche bien + 'une minute après, pourtant j'ai regardé chaque ligne et j'ai écris la même chose dans le code... :calim2:

[EDIT] Pendant que j'écris je viens de trouver :

Code:

---

If Target.Column = 1 And Target.Count <= 4 Then

---

il fallait :

Code:

---

If Target.Count = 1 And Target.Column <= 4 Then

---

Pourquoi ça change tout... je sais pas, mais la rapidité est juste dingue maintenant ^^

Alors

La macro interprète : Pour que je fonctionne, il faut que vous ayez sélectionné au moins 4 cellules (Target.Count) dans la colonne 1 (Target.Column)

Code:

---

If Target.Column = 1 And Target.Count <= 4 Then

---

Forcement il cherchait jusqu'au bout des 1 000 000 de lignes pour voir si vous aviez sélectionnez ces 4 cellules

Dans cette instruction, la macro interprète : Pour que je fonctionne, il faut que vous ayez sélectionné 1 cellule parmi les 4 première colonne

Code:

---

If Target.Count = 1 And Target.Column <= 4 Then

---

Sachant qu'il commence par A1 si la cellule est très proche le test est très rapide.

En espérant que votre fichier vous convient :D

A+

Mais alors parfaitement bien même :P

Un grand merci à vous et à vous tous de m'avoir aider, c'est pas évident mais je comprend mieux le fonctionnement (de ce que je viens de voir du moins ^^). En tout cas je garde ce forum en mémoire si jamais je viens un jour à avoir recours à ce genre de chose.

PS : je vais certainement m'intéresser au langage Java bientôt, pour du "modding" de jeu vidéo , je n'ai pas vus s'il y a une section dédiée à Java ici mais je vais devoir toucher à du codage un jour ^^