Discussion :

[Akhlan]

Bonjour,

je reviens avec une autre question sur le même fichier (pour ceux qui suivent mes aventures trépidantes ^^)

Le fichier en question...
http://dl.free.fr/i7noV968J

Pour utiliser ce fichier, nous collons une ligne html (ligne 16 et 17 de l'onglet "Explications" comme exemple) sur la cellule A de l'onglet "Incidents mensuels". Ça complète automatiquement les colonnes A à E.

La cellule D requiert une intervention manuelle que je voudrais automatiser... Pour le moment, on glisse la cellule D du dessus pour appliquer la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(LEFT(C2,4)="====",RIGHT(C2,LEN(C2)-(SEARCH("====",C2,5)+4)),C2)

Cette formule vérifie si l'alarme copiée en C (cellule cachée) commence par ==== et si tel est le cas, ne colle en D que le texte situé après le second ====. Si aucun ==== n'est détecté, la cellule C est copiée normalement en D

J'ai mis trop de "bout" de code chopé à droite et à gauche et du coup, je ne sais pas mettre ça en place....

De plus, question subsidiaire, je sais transformer une saisie en minuscule vers des majuscules mais je n'arrive pas à l'appliquer à la colonne D sans que des messages d'erreur apparaissent....

Je ne pense pas que ce soit bien compliqué pour une personne maîtrisant le VBA mais perso, je ne sais pas faire :-(

D'avance merci
Akhlan

[Daniel.C]

Bonjour,

Si j'ai bien compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Left([C2], 4) = "====" Then
    [D2] = UCase(Right([C2], Len([C2]) - (InStr(5, [C2], "====") + 4)))
Else
    [D2] = UCase([C2])
End If

[Akhlan]

Bonjour Daniel,

je ne crois pas que l'on se soit compris ;-)

on reçoit notre message au format html (exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Incident 37		====blablablablablablablablablabla==== Message 2Message 2Message 2		24/02/13 01:07:50	Serveur_2

et on colle les valeurs de ce message en cellule A38 de l'onglet "Incidents mensuels". La phrase "====blablablablablablablablablabla==== Message 2Message 2Message 2" se retrouve collée en cellule cachée C38 et on l'a met en forme en faisant glisser la cellule D37 sur la cellule D38 pour appliquer la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(LEFT(C37,4)="====",RIGHT(C37,LEN(C37)-(SEARCH("====",C37,5)+4)),C37)

Ce que je veux c'est éviter cette manip en transformant ce code en VB pour faciliter la tâche de mes collègues...

L'histoire de majuscule était juste une question bonus et s’applique seulement à la colonne F qui me retourne une erreur si la valeur rentrée est en minuscule (mais ça pourra être vu plus tard...)

[Philippe Tulliez]

Bonjour Akhlan,
A part que c'est +3 au lieu de +4 le code VBA proposé par Daniel fait exactement ce que tu demandes me semble-t-il.

[Akhlan]

presque

- Il ne faut pas que le texte soit mis en majuscule mais garde la casse de la colonne C
- Il faudrait que cela s'applique à la ligne où l'on colle le texte et non pas seulement à la ligne 2

Mais sinon, c'est bon, je pense avoir compris l'idée de base, je tente d'adapter ça à mon code

Je reviens vous dire si j'y suis arrivé, merci

[Philippe Tulliez]

presque
- Il ne faut pas que le texte soit mis en majuscule mais garde la casse de la colonne C

Si tu veux conserver la casse, il suffit de supprimer la fonction UCase( )