[ RESOLU par Job75,Merci ]Deplacer que le mot contenus dans une cellule

Guido

XLDnaute Accro
Bonjour le Forum

Je recherche une formule qui permettrais de faire afficher que l'un des 3 mots possibles

et les valeur qui se trouvent a droite de la cellule qui contient l'un de ses 3 mots..

Voir le fichier.

Merci

Guido
 

Pièces jointes

  • Transferer que les trois mot possible.xls
    53.5 KB · Affichages: 55

Guido

XLDnaute Accro
Re

JHA Merci pour le fichier, Job75 Merci de même pour le fichier.

Job je me permet de te demander, ou au Forum si tu as une proposition pour

finaliser le dernier fichier de mon avant dernier fil.

Ca concerne la fusion de deux fichiers en Un.

Merci d'avance

Guido
 

job75

XLDnaute Barbatruc
Re,

Dans le fichier (2) précédent j'utilisais des cases à cocher (contrôles de formulaire).

Dans ce fichier (2 bis) j'utilise des CheckBox (contrôles ActiveX).

L'intérêt c'est qu'on peut les mettre en forme.

A+
 

Pièces jointes

  • Courses(2 bis).xls
    664 KB · Affichages: 49

Guido

XLDnaute Accro
Non car dans ma carrière j'ai construit des usines mais pas des usines à gaz, ce n'est pas ma tasse de thé.


Re

Job75

Je ne penses pas que d'inséré un fichier ..dans un autre représente une usine a GAZ.???

Même le fichier ?? terminé après le travail fait ne devrait pas pesé plus que 1.5 ko...

Ou je blok 'c'est pour le transfert de la mise en place du début de la macro Options explicit ???

y as t'il une touche raccourcis pour démarrer...

Voila mon soucis ,car pour inséré ou ajoutés une macros ,je me débrouille ....???

Merci

Guido
 

Pièces jointes

  • upload_2017-3-18_10-2-48.png
    upload_2017-3-18_10-2-48.png
    46.9 KB · Affichages: 46

job75

XLDnaute Barbatruc
Bonjour Guido, le forum,

Finalement je préfère ce fichier (4) et toi ?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ': End 'pour neutraliser la macro
Protect "Guido", UserInterfaceOnly:=True
If ActiveCell.Address = [MAJ].Address Then [A1].Select: Courses.Courses
If ActiveCell.Address = [Filtre].Address Then [A1].Select: Filtrer.Filtrer
If Intersect(ActiveCell, [Filtre].Offset(1).Resize(3)) Is Nothing Then Exit Sub
ActiveCell.Interior.ColorIndex = IIf(ActiveCell(1, 2) = "", 3, 44)
ActiveCell.Font.ColorIndex = IIf(ActiveCell(1, 2) = "", 2, xlAutomatic)
ActiveCell(1, 2) = IIf(ActiveCell(1, 2) = "", "a", "")
[A1].Select
End Sub
Edit : la ligne 1 et la colonne A sont masquées pour masquer la cellule A1 sélectionnée.

A+
 

Pièces jointes

  • Courses(4).xls
    642.5 KB · Affichages: 47
Dernière édition:

Guido

XLDnaute Accro
Re

Job75

Oui, effectivement cela me plais .

Une demande assez spéciale ,je me lance

Serait il possibles de pouvoir faire une sélection perso

J'aimerais dans la page des données R1..2..3..4..5..,pouvoir gardés les 3 premières

lignes pairs ou impairs et faire afficher des numéros retenus avec a leur droit

la ou les valeur ..FAV..DAN...ou OUT. et la cote qui se trouve dans la col " E "

et le reste de la plage R1..2..3..4..5 vide et sans motif spécial ou MFC..

Merci de faire un petit proto visuel avant de tout refaire une 2 em fois

Merci

Guido
 

Guido

XLDnaute Accro
Re

Ok Job

je vais te poster plus tard le dernier fichier que tu a poster. Merci job75

et je rajoute 2 page exemple ..et tu me dit Koi

Guido

Re

J'aimerais dans la page des données R1..2..3..4..5..,et de chaque courses garder

les six premières lignes et avoir le choix de choisir les lignes 1--3--5-- ou 2--4--6-

pour la journée ou plus.

Voici le fichier avec 3 pages modèles---une page prono bis avec seulement les six lignes a garder.

et deux pages avec exemple pair et impair

Merci d'avance

Guido
 

Pièces jointes

  • Courses_FAV_DAN_OUT_2018.xls
    567 KB · Affichages: 49

Discussions similaires

Statistiques des forums

Discussions
312 111
Messages
2 085 392
Membres
102 882
dernier inscrit
Sultan94