Une entrée pour quatre ou douze écritures

Bonjour à tous ,

J'aimerais trouver de l'aide pour mon tableau, d'avance je vous remercie.

Dans ma colonne A (enter) quand je rentre par exemple :

Z j'aimerais que Z se marque en B C D+6 E F G H I J L M N

A j'aimerais que Z se marque en B D+6 E L

D j'aimerais que Z se marque en C D+6 H L

Ces trois pour exemple, en tout cela ferait 7 formules : Z A B C D E F

Ma feuille devrait comporter à peu près 200 lignes.

Je n'explique peut-être pas bien, si jamais je donnerai plus d'explication à qui veut bien m'aider.

D'avance un tout grand merci

21beta.xlsm (9.99 Ko)

Bonjour et bienvenu,

Ce n'est pas clair comme exposé. Inspire-toi de la formule suivante en B2 et copie la formule vers le bas :

=SI(OU(A2="Z";A2="A";A2="B";A2="C");A2;"")

Si c'est la solution que tu attendais, pour les autres colonnes, il faut l'adapter.

Bonjour et bienvenue sur le forum

Bonjour Raja

Un essai à teste, version macro, et si j'ai bien compris.

Bye !

19beta-v1.xlsm (21.34 Ko)

Bonjour gmb,

Ton fichier est super bien .

J'ai essayé toute seule de le modifier mais je n'y arrive pas.

Je te joins un nouveau fichier qui lui te montrera exactement ce que j'aimerais faire.

Je voulais t'éviter trop de travail mais je ne suis pas du tout douée.

J'espère que tu voudras bien encore m'aider.

D’avance je te remercie.


Bonjour Raja,

Merci pour ton aide, Gmb a résolu la première partie de mon souci.

Encore merci.

16beta2.xlsm (12.11 Ko)
12beta-v1-1.xlsm (29.00 Ko)

Re bonjour Gmb,

J'ai réussi à rentrer les codes dans la macro, mais quand je veux effacer les lignes sur la feuille tout se bloque et quand je rentre un chiffre dans la colonne ENTER rien ne se passe ? je parle de la première feuille.

Quand je commence j’aurais besoin d'une page vierge.

Je remet un nouveau fichier pour que tu puisses regarder ce que j'ai fait avec la macro.

Encore merci pour ton aide.

Nouvelle version à tester.

Bye !

16beta3.xlsm (26.14 Ko)

Bonsoir Gmb,

Super, génial !!!!

C'est incroyable cela fonctionne super.

Merci beaucoup, beaucoup.

Encore un petit renseignement, existe t'il une commande pour juste voir les dix dernières lignes de ma feuille comme sur la photo en fichier joint.

Encore mille merci.

10 lignes

Voilà :

Option Explicit

Dim i, derLn

. . .

. . .

End If

derLn = Range("A" & Rows.Count).End(xlUp).Row

ActiveWindow.ScrollRow = derLn - 10

fin:

Application.EnableEvents = True

End Sub

Version complète :

19beta4.xlsm (26.85 Ko)

Bye !

Bonjour Gmb,

Je ne sais pas comment te remercier pour ton aide, cela me fait vraiment plaisir.

Tout est parfait, merci bcp.

Je te souhaite les meilleures choses pour l'an nouveau.

Rechercher des sujets similaires à "entree quatre douze ecritures"