Insérer une ligne selon un choix

[fenec]

Bonsoir le forum

Dans mon tableau j’ai une macro qui m’insère une ligne si besoin, jusque là pas de souci.
Ou ca se complique c’est pour :

Comment dire à cette macro d’insérer telle ou telle ligne selon mes besoins soit: titre, encart ou descriptif afin d'avoir la mise en forme dès l'insertion?

Suis à votre écoute si une idée

Cordialement

Philippe

 

[Yaloo]

Re : Insérer une ligne selon un choix

Bonsoir Philippe,

Sans passer par un UserForm avec soit ComboBox soit CheckBox ou OptionButton, je ne vois pas trop.

A la rigueur avec InputBox, et selon la réponse insérer la ligne adaptée.

A+

 

[fenec]

Re : Insérer une ligne selon un choix

Bonjour le forum, Yaloo

De retour de week-end, petit up afin de remonter mon post

Martial,
Merci pour ton idée

Sans passer par un UserForm avec soit ComboBox soit CheckBox ou OptionButton, je ne vois pas trop.

Je vois bien de quoi tu parles, bien que je ne connaisse pas "Checkbox", alors programmer tout ca, je ne vois pas.

Si quelqu’un à une solution à mon faible niveau, je reste ouvert à toute proposition

Cordialement

Philippe

 

[fenec]

Re : Insérer une ligne selon un choix

Bonsoir le forum,

N’ayant pas eu de succès à ma demande, j’ai mis mes mains dans le cambouis et essayer de suivre l’idée de Yaloo mais je rencontre quelque soucis, en effet je parviens à l’aide d’un userform d’inséré une ligne avec la couleur désirée mais je coince sur deux choses.

1. Adapter le format d’écriture en fonction de la couleur.
2. Si je désire insérer deux fois de suite la même couleur ça ne fonctionne plus

D’avance merci pour vos suggestions
Vous joint un exemple avec mon avancement dans cette galère.

Cordialement

Philippe

 

[Yaloo]

Re : Insérer une ligne selon un choix

Bonsoir Philippe,

Un essai avec le fichier ci-joint. Quelques modifications dans ton UserForm et dans le code de la feuille.

- Une macro Clic-droit pour lancer l'insertion.
- Une macro Change pour mettre en Majuscule si Vert ou Jaune.
- J'ai mis en commentaire 2 lignes dans ta macro de ThisWorkbook.

Je n'ai pas compris ton point 2.

A+

Martial

 

[fenec]

Re : Insérer une ligne selon un choix

Bonsoir le forum, Martial

Merci une fois de plus pour le temps que tu me consacres

L’insertion par clic droit est pas mal pensée.
Concernant les deux lignes que tu as mises en commentaire cela me pose problème car de ce fait mon code ne fonctionne plus dans mes autres feuilles.

Y aurait –il un moyen de ne pas supprimer ces deux lignes ?

J’ai essayé d’intégrer ces deux lignes dans le code de la feuille mais sans succès.

Sinon ton fichier correspond à ma demande mis à part la majuscule dans les lignes blanches qui n’est pas traitée vu que tu supprimes la condition :

Target.Value = StrConv(Target.Value, 3)

Concernant mon point 2 tu l’as résolu sans avoir compris, trop fort.
En fait, je ne pouvais insérer deux fois une ligne de la même couleur car dans mon code j’avais écris :

Me.Hide

au lieu de

Unload Me

A+

Philippe

 

[Yaloo]

Re : Insérer une ligne selon un choix

Bonsoir fenec,

En remplaçant modifiant la macro Change par :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0: Application.EnableEvents = 0
If Target.Column = 2 And (Target.Interior.ColorIndex = 35 Or Target.Interior.ColorIndex = 19) Then
  Target = StrConv(Target, 1)
ElseIf Target.Column = 2 And Target.Interior.ColorIndex = xlNone Then
  Target = StrConv(Target, 3)
End If
Application.ScreenUpdating = -1: Application.EnableEvents = -1
End Sub

Pour les lignes supprimées, il faut peut-être enlever ta feuille "Fourniture" de ta macro Workbook_SheetChange de ThisWorkbook.

Si ça ne fonctionne pas, pourrais-tu mettre un fichier avec toutes les feuilles ?

A+

Martial

 

[fenec]

Re : Insérer une ligne selon un choix

Bonjour le forum, Martial

Pardonne moi pour la réponse tardive, je teste ce soir en rentrant et te tiens au courant

A+

Philippe

 

[fenec]

Re : Insérer une ligne selon un choix

Bonsoir le forum,Martial

je reviens vers toi apres une panne internet qui m'a retarde
j'ai bien testé et cela fonctionne par contre j'ai voulu rajouter un bouton annuler mais je rencontre un soucis l'insertion de ligne s'effectue toujours et la je ne comprends pas pourquoi

Cordialement

Philippe

 

[fenec]

Re : Insérer une ligne selon un choix

Bonsoir le forum

N'ayant toujours pas trouver la solution je me permet de remonter mon problème

Cordialement

Fenec

 

[Yaloo]

Re : Insérer une ligne selon un choix

Bonsoir Philippe,

L'annulation se faisait lorsque ta ligne était déjà copiée, donc cela ne fonctionnait pas.

Le plus simple est d'insérer la ligne lorsque tu as fait ton choix en cliquant sur l'OptionButton.

Vois avec le fichier ci-dessous.

A+

Martial

 

[fenec]

Re : Insérer une ligne selon un choix

Bonjour le forum, Martial

Pour commencer merci une fois de plus pour ton aide

J'ai testé ce matin ta réponse mais il y a un problème ca décale les couleurs de ligne
Comme pas facile à expliquer je te retourne ton fichier avec un petit exemple

A+

Philippe

 

[fenec]

Re : Insérer une ligne selon un choix

Bonsoir le forum,Martial

Je suis parvenu à corriger le problème en réactivant la cellule
Peux être pas tres "pro" mais bon...
En attendant une autre idée ca me dépanne

A+

Philippe

 

[Yaloo]

Re : Insérer une ligne selon un choix

Bonsoir Philippe,

Pour finir, j'ai repris ton fichier du post #9, j'ai juste modifié le bouton Annuler avec une suppression de la ligne venant d'être créée.

A+

Martial

 

[fenec]

Résolu: Insérer une ligne selon un choix

Re Bonsoir Martial

Un grand merci pour ton temps et ta patience
Quand je vois ta dernière réponse je me dis que je suis vraiment nul car j'aurais pu y penser

Bonne soirée

A+

Cordialement

Philippe