Intégrer du texte dans une cellule avec macro

Fermé
lea1529 - 19 mai 2020 à 15:56
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 - 19 mai 2020 à 17:36
Bonjour,

Je souhaiterai savoir comment intégrer du texte dans une cellule suite à une macro?

Sur une macro avec la fonction IF
J'ai ça:
If COND1 >= Min And COND2 >= Min And COND3 >= Min And COND4 >= Min And CL2 >= Max Then
MsgBox("Correct")
else
MsgBox("Incorrect")
End if
End Function

Or je ne souhaite pas recevoir de message sur une boîte de dialogue mais dans des cellules
Par quoi pourrai-je remplacer "MsgBox" ?

Cordialement
A voir également:

7 réponses

ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
19 mai 2020 à 16:03
Bonjour

Range("A3").Value = "Correct"
ou
Cells(3,1).Value = "Correct"

Cdlmnt
0
Bonjour,

Je vous remercie pour votre réponse, et + en détails si ma macro concerne une colonne (A3-A15)
Dois-je écrire Cells(3;15,1).Value = "Correct" ?

De plus, après avoir exécuter la macro apparaît : "Erreur d'exécution BASIC.
Sous-procédure ou procédure fonction non définie."
Cordialement
0
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
19 mai 2020 à 16:18
Si tu veux écrire Correct dans toutes les cellules de la plage A3:A15 (en une seule instruction)
Range("A3:A15").Value = "Correct"
Mais est ce vraiment ce que tu veux faire ?

Cdlmnt
0
Après vérification c'était bien votre première réponse qui correspondait à ce que je voulais obtenir. Cependant maintenant un message s'affiche : Erreur d'exécution BASIC.
Sous-procédure ou procédure fonction non définie.

Savez-vous ce que cela peut signifier?

Cordialement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
Modifié le 19 mai 2020 à 16:36
Peut être une erreur de syntaxe
Envoies la ligne de code où l'erreur se produit
Tu peux aussi exécuter ta procedure pas à pas pour situer la ligne qui provioque l'erreur
Si pas possible, envoies ton fichier sur https://www.cjoint.com/ et joins le lien obtenu à ton prochain message

Cdlmnt
0
Dans la macro, ce message s'affiche aux lignes 3 et 5

1- Function TERMINALCL2(COND1 as Double, COND2 as Double, COND3 as Double, COND4 as Double, Min as Double, CL2 as Double, Max as Double) as Double
2- If COND1 >= Min And COND2 >= Min And COND3 >= Min And COND4 >= Min And CL2 >= Max Then
3- Range("P2").Value= "VAL"
4- else
5- Range("P2").Value= "NVAL"
6- End if
7- End Function
0
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
19 mai 2020 à 17:36
Remplaces Function par Sub
et End Function par End Sub

Pour vba, une fonction est un outil qui renvoie un résultat unique, comme en maths et ne peut pas modifier l'environnement.
Les procedures Sub sont faites pour ça.

Cdlmnt
0