Macros - Tableau - Galères

Bonjour à toutes et tous,

Après avoir écumé ce super site, je me vois dans l'obligation de poster cette discussion.
en effet, je n'ai pas réussi, soit à trouver les réponses à mes questions, soit à faire fonctionner les réponses que j'ai pu trouver ici ou là.

Vous trouverez en pièce jointe un tableau simple, avec une pré-mise en forme.

J'ai plusieurs besoins, mais je n'arrive à en réaliser aucun ...

1) Je souhaite ajouter un bouton (macros) qui aura pour but d'ajouter une colonne "Date d'appelx" à la suite de la dernière colonne "Date d'appelx-1"

Concernant cette étape, j'ai essayé plusieurs choses (macros, dev VB, ...) rien à faire, j'ai soit des bugs de compilation, soit mes colonnes ne s'ajoutent pas au bon endroit ...

2) Je souhaite ajouter (un bouton ? une info bulle ? un bouton dans une info bulle ?) une macros qui, une fois la RS (raison sociale) sélectionnée me propose d'ajouter une ligne en dessous (dans le but d'ajouter un contact supplémentaire à l'entreprise) tout en pré-remplissant certaines informations (num saphire, RS, CP, Ville, Effectif, Num standard)

Ici pareil, j'ai trouver pas mal de formules, d'idées, dans tous les cas une fois les essais en place, ca met pas mal de bordel dans mon tableau ... il n'est donc plus exploitable ...

3) Dernier point sur lequel je bloque et sur lequel je n'ai trouvé aucun début de solution. Dans l'avant dernière colonne (statut contact) il y a plusieurs choix possibles (Chaud, moyen, froid, mort). Je souhaite envoyer (en fonction de son statut) les lignes entières dans les différentes feuilles du classeur afin de les synthétiser (visuellement et au niveau des chiffres dans un second temps)

Pour cela je n'ai pas trouver le moindre commencement d'une éventuelle solution

Voila pour le moment les points bloquants ... je sais il y en a beaucoup ... je vais peut être devoir faire appel à une formation ou à un consultant car ca fait un peu beaucoup de boulot ...

Merci tout de même par avance pour vos aides et conseils.

Je reste à votre disposition pour plus de renseignements,

Carou

Bonjour,
Je n'ouvre jamais les classeurs joints dès l'ouverture d'une discussion donc je tente de répondre en fonction de ce que tu écris

Citation:

---

1) Je souhaite ajouter un bouton (macros) qui aura pour but d'ajouter une colonne "Date d'appelx" à la suite de la dernière colonne "Date d'appelx-1"

---

Je suppose que tu sais dessiner un bouton sur la feuille ?
Exemple d'une procédure qui ajoute une colonne juste après celle dont l'étiquette est Date. Pour l'exemple la plage commence en cellule A1 de la feuille active, la première ligne contient les étiquettes de colonnes.

Code:

---

1 2 3 4 5 6 7 8 9

Sub AddColumn() Dim Pos As Integer, rng As Range Set rng = ActiveSheet.Range("A1").CurrentRegion With rng Pos = Application.Match("Date", .Resize(1), 0) .Columns(Pos + 1).Insert End With Set rng = Nothing End Sub

---

On peut se passer de la variable Pos bien entendu
Exemple

Code:

---

1 2 3 4 5 6 7 8

Sub AddColumn() Dim rng As Range Set rng = ActiveSheet.Range("A1").CurrentRegion With rng .Columns(Application.Match("Date", .Resize(1), 0) + 1).Insert End With Set rng = Nothing End Sub

---

Citation:

---

2) Je souhaite ajouter (un bouton ? une info bulle ? un bouton dans une info bulle ?) une macros qui, une fois la RS (raison sociale) sélectionnée me propose d'ajouter une ligne en dessous (dans le but d'ajouter un contact supplémentaire à l'entreprise) tout en pré-remplissant certaines informations (num saphire, RS, CP, Ville, Effectif, Num standard)

---

Pourquoi un bouton ?
Une procédure événementielle ne serait-elle pas plus adaptée ?

[EDIT]

Citation:

---

3) Dernier point sur lequel je bloque et sur lequel je n'ai trouvé aucun début de solution. Dans l'avant dernière colonne (statut contact) il y a plusieurs choix possibles (Chaud, moyen, froid, mort). Je souhaite envoyer (en fonction de son statut) les lignes entières dans les différentes feuilles du classeur afin de les synthétiser (visuellement et au niveau des chiffres dans un second temps)

---

Solution avec les filtres avancés d'excel (méthode AdvancedFilter de l'objet Range en VBA)

A lire Les filtres avancés ou élaborés dans Excel

J'ai apporté une réponse il y a quelques jours sur le même sujet et j'ai donné deux liens de discussions. Voir ma réponse du 19/09

tout d'abord merci.

effectivement je sais dessiner un bouton :D


j'ai une erreur avec la ligne :

.Columns(Application.Match("Date", .Resize(1), 0) + 1).Insert

erreur 13
incompatibilité de type

j'ia peut etre un probleme avec "létiquette " ?

Bonjour,

Citation:

---

erreur 13
incompatibilité de type

---

Cela signifie que la fonction Match ne trouve pas le texte cherché (ici Date)
Plusieurs possibilités

1. Le texte cherché n'est pas dans la lignes des titres
2. Ta plage ne commence pas en cellule A1 il faut donc adapter la ligne Set rng = ActiveSheet.Range("A1").CurrentRegion
3. Ta plage n'est pas bien structurée et tu ne respectes pas les règles élémentaires d'une table dans excel
   
   • Idéalement un tableau commence en cellule A1
   • ligne 1, les titres (étiquettes de colonnes)
   • lignes 2 et suivantes les données
   • toutes les cellules de la première ligne remplies et la première colonne également
   • Pas de cellules fusionnées
   
   

effectivement, mon tableau ne commençait pas en A1, il y avait des cellules fusionnées ...
J'ai modifié toute cela et ça fonctionne. (MERCI)

Est il possible de renommer la nouvelle colonne Date2, puis date3 après un nouvel appui, ...

Bonjour,

Citation:

---

Est il possible de renommer la nouvelle colonne Date2, puis date3 après un nouvel appui, ...

---

Absolument, en concaténant le texte ("Date" & Num) où Num est la variable qui doit contenir le numéro

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Absolument, en concaténant le texte ("Date" & Num) où Num est la variable qui doit contenir le numéro

---

Euh ... oui ...

Desolé je ne sais pas faire ...

Bonjour,
Essaie déjà dans excel.
Tu tapes en A1, la valeur 10 et en B1 tu écris cette formule ="Date" & A1.
Et bien en VBA, c'est le même principe

J'ai compris le principe
cependant, je ne vois pas comment l implementer sachant que le nombre va rester fixe (Date) et que je souhaite une incrementation ?

Bonjour,
Voici une exemple mais qui insère la colonne avant et plus après car sinon je dois changer de méthode et je n'ai pas le temps
Cela suppose que le tableau commence à A1. Si l'étiquette à chercher n'est pas "Date", il suffit de changer la valeur de la constante LookUpLabel.
Contrainte le n° doit coller à l'étiquette dans cet exemple.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub AddColumn() Const LookUpLabel As String = "Date" Dim Pos As Integer, rng As Range, Num As Integer Set rng = ActiveSheet.Range("A1").CurrentRegion With rng Pos = Application.Match(LookUpLabel & "*", .Resize(1), 0) .Columns(Pos).Insert End With Num = Val(Replace(rng(Pos + 1), LookUpLabel, "")) rng(Pos) = LookUpLabel & Num + 1 Set rng = Nothing End Sub

---

[EDIT]
Attention, j'ai oublié de préciser qu'il y a une autre contrainte.
Aucune colonne précédent les colonnes ayant comme étiquette Date & x ne doit commencer par cette même orthographe. Par exemple Date Commande
Dans ce cas éventuellement nommer les étiquettes _Date1, etc. et donc chercher _Date

Cela fonctionne bien merci !
le décalage sur la gauche est moins gênant que ce que je pensais :D

en revanche cela recopie la mise en forme de la colonne de gauche qui n'a rien a voir avec les nouvelles créées

il y a une possibilité de recopie la mise en forme de droite malgres le decalage sur la gauche ?

Bonjour,

Citation:

---

en revanche cela recopie la mise en forme de la colonne de gauche qui n'a rien a voir avec les nouvelles créées
il y a une possibilité de recopie la mise en forme de droite malgres le decalage sur la gauche ?

---

Ajouter l'argument CopyOrigin avec comme valeur la constante "xlFormatFromRightOrBelow" à la méthode Insert (ligne 7 du dernier code que j'ai publié)

Code:

---

.Columns(Pos).Insert CopyOrigin:=xlFormatFromRightOrBelow

---

Je n'aime pas le rappeler mais lorsqu'un bénévole passe un certain temps à aider quelqu'un, il est toujours sensible à recevoir la seule rétribution qui ne coûte rien à celui qui pose la question, c'est à dire un vote :plusser:

Un grand merci pour le temps passé sur mes questions ...

je ne connaissais pas le principe des pouces verts ... (ils seront en apposés d'ici quelques secondes :D)


Cela fonctionne très bien.
par contre, du fait de l'ajout potentiellement important de nouvelles colonnes, j'ai voulu "grouper" ces colonnes. et la c'est le drame ! des ajouts sans queue ni tete, a droite a gauche, bref il me reste plus qu'à trouver une autre solution je pense:oops:

Bonjour,

Citation:

---

Cela fonctionne très bien.
par contre, du fait de l'ajout potentiellement important de nouvelles colonnes, j'ai voulu "grouper" ces colonnes. et la c'est le drame ! des ajouts sans queue ni tete, a droite a gauche, bref il me reste plus qu'à trouver une autre solution je pense

---

Grouper, c'est à dire ?
Le regroupement par la commande Grouper du groupe Plan de l'onglet [Données]

Merci pour tes votes

Le regroupement par la commande Grouper du groupe Plan de l'onglet [Données]

oui c'est bien ca !