Je vous prie

sur la version 7.1

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column < 4 Or Target.Column > 14 Then Exit Sub

If Target.Row < 11 Then Exit Sub

Application.ScreenUpdating = False : Target = UCase(Target)

Application.EnableEvents = False

If Not Target Like "[CXO]" And Target <> "SO" Then _

Target.Value = "" ' effacement automatique

Application.EnableEvents = True

End Sub

Ce qui est surligner c'est ce que tu m'as dis de supprimer

Essaye :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column < 4 Or Target.Column > 14 Then Exit Sub
  If Target.Row < 11 Then Exit Sub
  Target.Value = UCase(Target.Value)
  Application.EnableEvents = False
  If Not Target Like "[CXO]" And Target <> "SO" Then _
    Target.Value = "" ' effacement automatique
  Application.EnableEvents = True
End Sub

Si ça plante, laisser tomber l'effacement automatique :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column < 4 Or Target.Column > 14 Then Exit Sub
  If Target.Row < 11 Then Exit Sub
  Target.Value = UCase(Target.Value)
End Sub

Si ça marche, essayer aussi :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column < 4 Or Target.Column > 14 Then Exit Sub
  If Target.Row < 11 Then Exit Sub
  Target = UCase(Target)
End Sub

car pour moi, les 2 .Value sont inutiles dans un tel cas.

Si rien ne marche, solution ultime :

dhany

dhany a écrit :

Essaye :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column < 4 Or Target.Column > 14 Then Exit Sub
  If Target.Row < 11 Then Exit Sub
  Target.Value = UCase(Target.Value)
  Application.EnableEvents = False
  If Not Target Like "[CXO]" And Target <> "SO" Then _
    Target.Value = "" ' effacement automatique
  Application.EnableEvents = True
End Sub

Si ça plante, laisser tomber l'effacement automatique :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column < 4 Or Target.Column > 14 Then Exit Sub
  If Target.Row < 11 Then Exit Sub
  Target.Value = UCase(Target.Value)
End Sub

Si ça marche, essayer aussi :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column < 4 Or Target.Column > 14 Then Exit Sub
  If Target.Row < 11 Then Exit Sub
  Target = UCase(Target)
End Sub

car pour moi, les 2 .Value sont inutiles dans un tel cas.

Si rien ne marche, solution ultime :

dhany

non sa marche pas mais pas grave, j'ai remis le code pour toutes les lettres en maj

Guillaume a écrit :

non ça marche pas mais pas grave, j'ai remis le code pour toutes les lettres en maj

D'accord ! alors j'renonce à : (c'est pas encore cette fois qu'le vilain Satan aura mon âme ! )

ça tombe bien, car ça m'a ouvert l'appétit ! j'ai pas encore eu l'temps d'manger, alors j'vais bientôt faire une pause :

j'ai un très bon sandwich au thon (avec d'la mayonnaise et des olives) qui m'attend d'ans l'frigo !

NB : je sais, c'est un repas tardif à plus d'minuit ! mais y'a bien des bains d'minuit, non ?

dhany

dhany a écrit :

Guillaume a écrit :

non ça marche pas mais pas grave, j'ai remis le code pour toutes les lettres en maj

D'accord ! alors j'renonce à : (c'est pas encore cette fois qu'le vilain Satan aura mon âme ! )

ça tombe bien, car ça m'a ouvert l'appétit ! j'ai pas encore eu l'temps d'manger, alors j'vais bientôt faire une pause :

j'ai un très bon sandwich au thon (avec d'la mayonnaise et des olives) qui m'attend d'ans l'frigo !

NB : je sais, c'est un repas tardif à plus d'minuit ! mais y'a bien des bains d'minuit, non ?

dhany

MDR oui exacte ya des bains de minuit !

Bon appetit

je fais des essais pour chercher la petite

Bonjour Dhany,

Voila je crois que je peux clore ce sujet réaliser avec TALENT par tes soins,

Je te remercie pour ta patience, ton engagement et le temps passer a me faire ceci (je ne pourrais meme pas dire m'aider) car la sa depasse mes compétences en matière de codage, j'ai beau lire et relire mais je comprend rien enfin pas tout !

Bon j'avoue j'ai deux dernieres questions je pense que j'aurais peut etre besoin d'inclure aussi la colonne I (i) dans le resumé mais sans garantie si je dois faire cela est ce compliquer a l'ajouter ? j'ai regardé mais je ne vois pas ou cela se passe

et enfin pour mettre un cadre à " Résumé des Observations "

Bonjour Guillaume,

Merci du retour !

Tu a écrit :

j'aurais peut-être besoin d'inclure aussi la colonne I (i) dans le résumé

C'est fait dans cette nouvelle version 8.1 :

Ctrl r ou clic sur le bouton « Résumé » ➯ que la lumière soit ! ... et la lumière fut !

(dixit Qui tu sais ... mais non, pas l'Inca ! )

N'oublie pas que tu as aussi Ctrl c ; si tu veux, tu peux rajouter un bouton « Attila »

(le roi des Huns, surnommé le « Fléau de Qui » ... mais non, pas Sébastien ! )

(faut tout t'expliquer, à toi ! )

Tu a écrit :

si je dois faire cela est-ce compliqué à ajouter ? j'ai regardé mais je ne vois pas où cela se passe

Attention : ne fais pas ce qui suit car je l'ai déjà fait : lis-le seulement !

(ça te servira plus tard de référence si tu dois ajouter un autre paramètre)

D'abord, pour les feuilles "TEST" :

1) Faire une sélection multiple de la feuille "TEST A" à la feuille "TEST I"

2) Il faut changer I10 NON TRAITE en PARAMETRE 2 et renuméroter les 5 paramètres à droite

3) En I8 : 2* ; renuméroter les 5 n° à droite, jusqu'en N8

4) Répéter successivement les points 2) et 3) pour chacun des 5 tableaux situés en dessous

Ensuite, pour le code VBA :

1) sub WriteParam() : dans Prm = Array(..) ajouter le morceau de phrase pour le paramètre ajouté

(c'est d'ailleurs là que tu dois adapter ce que j'ai mis vu que t'as oublié de m'indiquer cette info )

2) sub Résumé() :

a) au lieu de : For Param = 1 To 6 j'ai mis : For Param = 1 To 7 (ceci est très facile à adapter !)

b) au lieu de : col = Param + 8 + 2 * (Param = 1) j'ai mis : col = Param + 7 + (Param = 1)

(c'est ce qui est le plus difficile à adapter, alors attention à ne pas se tromper !)

si tu veux enlever un paramètre, c'est très simple : faire exactement l'inverse de tout c'qui précède !

oui, je sais, c'est un peu comme « un travail de Pénélope », mais dans la vie, faut c'qui faut !

Tu a écrit :

mettre un cadre à "Résumé des Observations"

C'est fait ! j'ai renommé la sub Cadre() en Cadre2() ; et la sub Titre() en Cadre1()

alors ? quel est le verdict ?

dhany

Re Dhany,

Tout simplement MAGNIFIQUE !

tu as bien atteins le GRAAL je crois que j'ai tout, il me reste qu'a m'y mettre pour arriver a ta hauteur :p

Non inutile pour les boutons au pire je sélectionne tout en haut a gauche et supprime

Guillaume a écrit :

Tout simplement MAGNIFIQUE ! tu as bien atteins le GRAAL

Youpi ! j'ai bien mérité mon trophée (même si y'avait aucun ♡ dedans) :

c pas grave, l'essentiel est d'avoir pu t'aider à avancer ton projet !

encore merci pour le retour, et bonne continuation !

et aussi bonne fête de pâque !

dhany

A toi aussi bonne paques et encore MERCI !

autant de coupe que de version

8 trophées ! quel honneur !!! avec 1 ♡ par version, ça m'aurait fait 8 ♡ ! dommage que ce ♡ soit tellement discret que beaucoup ne le remarquent pas, alors qu'il est pourtant sur chaque message (faut regarder au SE pour le voir ).

dhany

Je cherche :p

Voici un indice : si tu regardes ton dernier message, tu verras qu'il est même sur le tien !

(et aussi sur tous tes posts, toujours au même endroit : au Sud-Est)

J'ai trouvé

Bravo, tu as trouvé !!! merci pour tous !!!

et en même temps : merci aussi d'avoir passé le sujet en résolu !

dhany

J'ai pas eut le temps de tester les limites mais a mon avis, j'aurai pas de bug

j'en ait reperer un que j'vais pas tester, c'est que je peux avoir des feuilles avec des chiffres et que du coup dans le RESUME j'ai un affichage etrange, pour parer a cela j'ai ajouté un . devant

dhany a écrit :

Bravo, tu as trouvé !!! merci pour tous !!!

et en même temps : merci aussi d'avoir passé le sujet en résolu !

dhany

Mais merci surtout a toi ! puis a Theze pour son debut d'aventure aussi

Guillaume a écrit :

je peux avoir des feuilles avec des chiffres et que du coup dans le RESUME j'ai un affichage étrange

Là, c'est toi qui m'pose une énigme ! laisse-moi le temps de voir ça, et j'vais essayer d'voir si y'a un truc à faire.

(mais ça s'rait plus simple si tu peux me décrire quel est cet affichage étrange... ou mieux : avec une copie d'écran)

dhany

dhany a écrit :

Guillaume a écrit :

je peux avoir des feuilles avec des chiffres et que du coup dans le RESUME j'ai un affichage étrange

Là, c'est toi qui m'pose une énigme ! laisse-moi le temps de voir ça, et j'vais essayer d'voir si y'a un truc à faire.

(mais ça s'rait plus simple si tu peux me décrire quel est cet affichage étrange... ou mieux : avec une copie d'écran)

dhany

Ci dessous, mais apres pas grave, j'e aurait pas beaucoup je pense

pardon du coup en nom de feuille au lieu de TEST A j'ai mis 100