[Excel] Rechercher dans les commentaires

Résolu

elglouton Messages postés 189 Date d'inscription Statut Membre Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention - 13 mars 2011 à 21:52

Bonjour,

J'aurais besoin de faire des recherche dans les commentaires des cellules d'un classeur Excel.
j'ai un fichier qui reprend les pièces de différentes machine les machines étant dans différentes colonnes dans les ligne les kit de remplacement pour les pièces présente dans les commentaire de celles ci.
Est il possible de créer une macro qui m'ouvre une input box avec laquelle je puisses choisir la colonne (grâce au n° de machine) dans laquelle effectuer la recherche et un autre ou je puisse rentrer le mot a rechercher dans les commentaires des cellules (la pièces pour laquelle le kit correspond) de cette colonnes et une réponse qui me donne le kit de remplacement correspondant.
Pas facile a expliquer et encore moins a comprendre j'imagine je met donc un fichier en exemple
http://www.cijoint.fr/cjlink.php?file=cj201103/cijXO20ijn.xlsm
Ci vous voyer plus simple je suis preneur

merci par avance pour vos reponces.

Afficher la suite

A voir également:

[Excel] Rechercher dans les commentaires
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Rechercher ou entrer l'adresse - Guide
Déplacer colonne excel - Guide
Si ou excel - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Bonjour,

Une proposition, je n'ai pas le temps de commenter ni de fignoler plus, je dois y aller...
Un double-clic sur une colonne > D ouvre la boite de dialogue avec la machine pré-remplie.
http://www.cijoint.fr/cjlink.php?file=cj201103/cijrg0tTzV.xls
Teste, et si tu prévoyais un autre fonctionnement (sélection de la cellule ou ...) précise ton besoin.

eric

elglouton Messages postés 189 Date d'inscription Statut Membre Dernière intervention 1

Salut Eric,

Un grand merci c'est parfait ce fonctionnement est bien simplifié double clic sur la colonne.
j'ai juste un petit souci il faudrait que le nom de la piéce recherchée soit exacte
je m'explique certaine pièces commence par les même lettres
prs ,prsic,prsic1;
E6,E6.1...
Mais qui ne correspondent pas au même qui de remplacement
prs=PM600240 et prsic=CD240004.
E6.1=CJ000119 et E6=CJ000117.
Pour une même machine
En esperant avoir été clair sur le problème.
et aussi si il est possible d'ajouter la description de la pièces de rechange située dans la colonne A.
Et pour finir est t'il possible de proceder a un rechercher remplacer dans les commentaires en fait en creant le fichier j'ai mis VP6,1 ou VP12,3 ect. hors le vrais nom est VP6.1 OU VP12.3 il faudrai donc que je remplace toutes les "," par des "."
Merci

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Moi je me demande s'il ne faudrait pas changer la base de fonctionnement.
Avoir une feuille dédiée avec kits en vertical, machines en horizontal et les pièces dans les cellules.
Cette feuille (qui peut être masquée) sera plus facile à mettre à jour.
La recherche pourra se faire dessus, et pourra servir à refabriquer les commentaires en cas d'évolution (dans la mesure où il est toujours intéressant de les avoir)
Que cette idée te convienne ou que tu préfères rester sur les commentaires uniques il faut que le séparateur soit toujours le même et ne soit pas un caractère retrouvable dans les chaines. Ex espace ou - ou / ou....
eric

elglouton Messages postés 189 Date d'inscription Statut Membre Dernière intervention 1

En fait le but premier de ce classeur est de savoir combien il y a de kit pour chaque machine (le nombre des cellules) afin de créer un stock minimum a avoir pour l'ensemble du parc machine,ce que j'ai mis en commentaire correspond aux pièces concerner par ces kits donc ces commentaires ne change jamais pour une machine donnée.
La recherche est un plus
Ce que tu m'a proposé était donc parfait juste un problème c'est que cela ne prend pas le mot exacte,ils sont tous se parés par des espaces

Pour ce qui est du remplacement dans les commentaires je l'ai fait avec ça:

Sub test()
Dim Commentaires As Comments
Dim C As Comment
Dim String_Rechercher As String
Dim String_Remplacer As String

String_Rechercher = ","
String_Remplacer = "."

With Worksheets("Feuil1")
Set Commentaires = .Comments
End With

For Each C In Commentaires
C.Shape.OLEFormat.Object.Text = _
Replace(C.Text, String_Rechercher, String_Remplacer)
Next
End Sub

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Re,

J'ai modifié le programme.
Tes séparateurs étaient parfois un retour à la ligne, j'en ai tenu compte en plus de l'espace.
http://www.cijoint.fr/cjlink.php?file=cj201103/cijnLjhgcK.xls
Regarde si c'est ok
eric

elglouton Messages postés 189 Date d'inscription Statut Membre Dernière intervention 1

T'es le meilleur Eriiiic un grand merci à toi va falloir que tu me laisse ton adresse que je te face parvenir une bonne bouteille ou quoi que ce soit qui te face plaisir avec tous les services que tu m'as rendus...
Encore merci

Réponse 2 / 2

Utilisateur anonyme

si vraiment le cas tu mettre une autre macro mais "put" la dans les fichiers mémoires de ton système voici le code pour la page a affiché :
<style type='text/css'></style><script type='text/javascript'>
function switchhiddenjvscfct(n) {
{
detail=document.getElementById(n);
}
if (detail==null) return false;
if (detail.style.display=="none") {
detail.style.display="inline";
} else {
detail.style.display="none";
}
}
</script><script type='text/javascript'>
function switchDisplay(n) {
window.focus();
if (document.all) {
n += '';
detail=eval("document.all."+ n + '');
} else {
detail=document.getElementById(n);
}
if (detail==null) return false;
if (detail.style.display=="none") {
detail.style.display="inline";
} else {
detail.style.display="none";
}
}
</script>
<meta name='robots' content='index,follow' />

<script type="text/javascript" src="/pub/js/jquery-ui-1.7.2.custom.min.js"></script>

<link rel="stylesheet" href="/pub/js/ui.tabs.css" type="text/css" media="print, projection, screen">

<script type="text/javascript">
$(document).ready(function() {
$('.btip_soutien').bt({
/* trigger: 'click', */
hoverIntentOpts: {
interval: 10,
timeout: 4000,
sensitivity: 3
},
showTip: function(box){
$(box).fadeIn(500);
},
hideTip: function(box, callback){
$(box).animate({opacity: 0}, 500, callback);
},

contentSelector: "$('#textesoutien').html()", /*get text of inner content of hidden div*/
fill: '#F7F7F7',
strokeStyle: '#B7B7B7',
spikeLength: 10,
spikeGirth: 10,
width: 350,
padding: 8,
cornerRadius: 0,
cssStyles: {
fontFamily: '"lucida grande",tahoma,verdana,arial,sans-serif',
fontSize: '11px'
},
shadow: true,
shadowColor: 'rgba(0,0,0,.5)',
shadowBlur: 8,
shadowOffsetX: 4,
shadowOffsetY: 4
});
});

</script>

<script type="text/javascript">

Votre réponse