Re : Si la case contient le mot "XXX" alors mettre un chiffre
Bonjour Tsoin, TotoTiti, le Forum
Ah alors tu retiens la version VBA finalement ;-)
Pour que cette macro "TheDetector" fonctionne dans un autre classeur il y des conditions :
1) Que la Feuille "PARAMETRES" existe bien avec les Paramètres nécessaires préalablement renseignés :
Exemples :
Mots à Chercher
| Colonne de Reception
|
Moulée
| 2
|
Moule
| 2
|
Moulage
| 2
|
Panne
| 3
|
XXXX
| 4
|
YYYY
| 5
|
TSOIN
| 6
|
Si ensuite il y a "TOTOTITI" dans une des cellules du suivi de Production, vu que "TOTOTITI" n'existe pas dans la feuille paramètre, il ne se passera rien, que neni, nada !
2) Il faut que ta Feuille de Suivi de Production se nomme "DATA" soit changer son nom, soit changer le Code :
With
Worksheets("DATA")Set MaPlage = .Range("A2:A" & .Range("A500").End(xlUp).Row)
End With
Comme suit:
With
Worksheets("Le Nom de la Feuille de Suivi")
Sinon rien d'autre à changer dans le code... Normalement il gère jusqu'à 500 lignes; sinon changer ici
Set MaPlage = .Range("A2:A" & .Range("A
500").End(xlUp).Row)
3) le Bouton "ActiveX" (comme dans ma Démo) qui doit bien lancer la Macro soit comme ceci :
Private Sub CommandButton1_Click()
Me.Range("B2:F500").ClearContents
TheDetector
End Sub
Là c'est un code qui est dans le Module de la Feuille où se trouve le Bouton
Soit c'est une objet Shape ou Bouton "Formulaire" où l'on "affecte" une macro (Click droit sur l'objet, chosir "TheDetector" dans la liste)....
Normalement ce devrait fonctionner si tout est bien fait ...
Tu peux inserrer une ligne de code pour voir au moins si la macro se Lance, iol suffit de copier coller ceci dans une ligne vierge après les 4 "
Dim" :
MsgBox "Hello Tsoin, je suis TheDetector"
Bon courage
@+Thierry
Edition Hello Legolias, pas vu ta réponse