Inserer ligne en copiant certaines cellules

[gclere]

Bonjour,

Étant novice en VB, je galère un peu

Dans un tableau, je voudrais qu'une nouvelle ligne s'insère automatique (en dessous) lorsque dans une des cellules je rencontre un texte particulier.

Autre difficulté, je souhaiterais que soient copiées certaines cellules dans la nouvelle ligne insérée.

Voir l'exemple

Merci pour votre aide

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Bonjour gclere le forum
j'ai ouvert ton fichier alors je veux bien ne pas être réveillé mais il y a un truc qui ne va pas tu cliques A2 OK tu Choisis A là déjà ???? et après tu a choisis A et après tu veux copier a la première ligne vide? ou insérer en dessous de ta ligne A
car ton exemple fait voir AAA AAA BBB alors que ton exemple c'est AAA AAA alors expliques STP le cas échéant mets en couleur ce que tu as copié comme cela il n'y aura pas d'ambiguïté
a+
papou

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Re gclere le forum
je pense avoir compris ce que tu voulais
voilà ton fichier en retour regardes et dis moi
tu doubles cliques sur la cellule colonne A
a+
papou

 

[gclere]

Re : Inserer ligne en copiant certaines cellules

OK,

je n'étais probablement pas bien réveillé moi même.

J'ai détaillé mon fichier Excel. Ça doit être plus clair maintenant

Merci !

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Re gclere le forum
je pense entre temps avoir compris ta demande mais pas sur enfin dans le post d'avant tu as un fichier essaye le
a+
papou

PS: c'est bien cela que j'avais compris mais pas la copie des dates je suppose?
a+
papou

 

[gclere]

Re : Inserer ligne en copiant certaines cellules

Merci de ton aide. En l'occurrence c'est toi qui éclaire le forum là

Alors j'ai regardé ton fichier. C'est exactement ce que je voulais, mais :

- Est ce possible d'activer l'insertion de la ligne en sélectionnant le choix dans la liste déroulante et non pas en double cliquant?

- Comment faire si je veux étendre le code aux autres cellules de la colonne A?
(ex : si je choisis B, je voudrais une nlle ligne en dessous avec copie de la ref. BBB). dans ton exemple si je double clic sur "B" , j'ai une nlle ligne "A" au dessus.

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Bonjour gclere le forum
alors des explications simple seraient les bienvenues
pour le moment tu a demandé à insérer entre deux lignes et de recopier les cellules
c'est ce que j'ai fait, pour toute la colonne a c'est bon sauf la ligne 2
maintenant tu veux quoi d'autre?
tu as demandé d'insérer une ligne donc tu la veux en dessous c'est cela ?
et la recopie de la cellule c'est laquelle? que tu veux
a+
Papou

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Re gclere
alors voilà en retour mais pour ta demande est-ce que je peux le faire avec la sélection ??? a ou B
non ou alors tu insérera a chaque choix une ligne !!!!
bref regardes si cela te plait plus là la ligne est insérée en dessous
a+
papou

 

[gclere]

Re : Inserer ligne en copiant certaines cellules

Re

c'est nickel comme ça ! merci!!

Es tu sûr que ce n'est pas possible d'activer, avec un petit "If" , l'insertion de ligne en sélectionnant dans la liste de choix (au lieu de double cliquer) ? Dommage ...

En tout cas merci encore

A+
gclere

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Re gclere
bah sur à 100% non mais a 110% oui du moins je le pense
comment veux tu faire?
c'est ou ta cellule te donne un choix ou alors elle te donne une insertion mais un coup l'un un coup l'autre moi je sais pas faire
a+
papou

PS: ou alors dans ta liste on donne une valeur insertion, et là le if peut marcher???

 

[gclere]

Re : Inserer ligne en copiant certaines cellules

PS: ou alors dans ta liste on donne une valeur insertion, et là le if peut marcher???

C'est à dire attribuer une valeur arbitraire au nom de l'article (exemple article A = valeur 1) ? j'ai bien compris?

Dans mon tableau réel, je n'aurai que 2 choix dans la liste déroulante, alors c'est peut être faisable. A toi de me dire

A+

 

[gclere]

Re : Inserer ligne en copiant certaines cellules

Bonjour Paritec,

J'ai réussi à lancer la macro à partir du choix fait dans la liste déroulante en utilisant "nocalc" et ... un "if"

J'ai mis le code en pièce jointe pour ceux que ça intéressent.

Question bonus : Quand je supprime une ligne , j'ai une erreur d'exécution 13 à la ligne de code : If target = "A" Or target = "B" Then

Comment faire pour pouvoir supprimer une ligne sans avoir d'erreur ?

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Bonjour gclere,
oui ta modification est une vrai réussite !!!!!!!!!!!!!!!!
tout marche très bien !!!!!!!!! ????????
Alors essaye donc de faire un choix dans la première ligne vide en dessous donc de la dernière cellulle colonne A
Si le résultat pour toi est bon tu n'es pas difficile par contre très têtu, là oui c'est une certitude.
Pour moi ta modif elle est ................;;
bonne journée
papou

 

[Paritec]

Re : Inserer ligne en copiant certaines cellules

Re bonjour gclere,
Concernant ta question Bonus, je vais te donner la réponse mais comme tu n'en tiendras pas compte, est-ce bien utile?
Tu as déclenché la macro comment? avec chaque changement sur ta feuille le fait de supprimer en est un, donc c'est normal il lance la macro.
de plus la "nocalc" cela sert à quoi ? J'aimerais bien ton explication car je ne connais pas, surtout écrire une cellule pour l'effacer trois lignes en dessous !!
sans que sa valeur n'ai en rien influencer la macro ??? §§§ !!!!!
bonne journée
papou

Question bonus : Quand je supprime une ligne , j'ai une erreur d'exécution 13 à la ligne de code : If target = "A" Or target = "B" Then

 

[gclere]

Re : Inserer ligne en copiant certaines cellules

Re,

mon but est simplement d'avoir un code qui marche pour me donner le résultat que je souhaite.

Et effectivement, j'ai bien le résultat désiré.

Dans mon tableau réel, il ne sera pas possible (enfin, disons qu'il n'y aura aucun intérêt) de cliquer sur une liste de choix dont la ligne est vide. Ta remarque était quand même légitime.

Bonne journée
bye