Une entrée pour quatre ou douze écritures Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
mafajo
Jeune membre
Jeune membre
Messages : 45
Inscrit le : 29 décembre 2015
Version d'Excel : 2013FR

Message par mafajo » 29 décembre 2015, 03:39

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 :D :D :D :D :D
BETA.xlsm
mon tableau
(9.99 Kio) Téléchargé 16 fois
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 29 décembre 2015, 09:19

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.
Modifié en dernier par Raja le 29 décembre 2015, 19:03, modifié 1 fois.
Cdlt,
Raja
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'837
Appréciations reçues : 364
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 29 décembre 2015, 10:10

Bonjour et bienvenue sur le forum
Bonjour Raja

Un essai à teste, version macro, et si j'ai bien compris.
Bye !
BETA v1.xlsm
(21.34 Kio) Téléchargé 18 fois
Avatar du membre
mafajo
Jeune membre
Jeune membre
Messages : 45
Inscrit le : 29 décembre 2015
Version d'Excel : 2013FR

Message par mafajo » 29 décembre 2015, 18:58

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. :D :D :D :D :D

Bonjour Raja,

Merci pour ton aide, Gmb a résolu la première partie de mon souci.
Encore merci. :D :D :D
BETA2.xlsm
final
(12.11 Kio) Téléchargé 15 fois
Avatar du membre
mafajo
Jeune membre
Jeune membre
Messages : 45
Inscrit le : 29 décembre 2015
Version d'Excel : 2013FR

Message par mafajo » 29 décembre 2015, 20:48

BETA v1(1).xlsm
changement dans la macro
(29 Kio) Téléchargé 11 fois
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. :D :D :D
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'837
Appréciations reçues : 364
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 29 décembre 2015, 21:51

Nouvelle version à tester.
Bye !
BETA3.xlsm
(26.14 Kio) Téléchargé 13 fois
Avatar du membre
mafajo
Jeune membre
Jeune membre
Messages : 45
Inscrit le : 29 décembre 2015
Version d'Excel : 2013FR

Message par mafajo » 29 décembre 2015, 22:40

Bonsoir Gmb,
:D :D :D :D :D :D :D :D
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 dernières lignes
10 dernières lignes
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'837
Appréciations reçues : 364
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 29 décembre 2015, 23:36

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 :
BETA4.xlsm
(26.85 Kio) Téléchargé 17 fois
Bye !
Avatar du membre
mafajo
Jeune membre
Jeune membre
Messages : 45
Inscrit le : 29 décembre 2015
Version d'Excel : 2013FR

Message par mafajo » 30 décembre 2015, 11:45

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.
;;) ;;) ;;) ;;) ;;) ;;) ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message