Formule

Bonjour à tous,

je suis entrain de creer un fichier avec des réponses automatique.

C'est a dire dans ma colonne A j'ai des 1 et des 2 et je veux attribuer sur la colonne B

si 1 = Bonjour, merci de vous en occuper, je reviendrais vers vous pour prendre 1 rendez vous.

si 2 = Bonjour, merci de vous en occuper, je vous enverrai un email

j'utilise cette macro dont je me sers pour renseigner des prix et ca marche mais avec du texte long ca ne fonctionne pas !

If Cells(LIGNE, 1) <= 1 Then Cells(LIGNE, 2) = Bonjour, merci de vous en occuper, je reviendrais vers vous pour prendre 1 rendez vous: GoTo ETIQUETTE1

Est ce que c'est le nombre de mot que la macro n'accepte pas ?

Merci pour votre aide

mb

Salut Mboules,

écris ton textes entre "

"Bonjour, merci de vous en occuper, je reviendrais vers vous pour prendre 1 rendez vous"

Bonjour fourum,

à adapter :

Sub ess()
Dim LIGNE As String
    LIGNE = ActiveCell.Row
    If Cells(LIGNE, 1) <= 1 Then
    Cells(LIGNE, 2) = "Bonjour, merci de vous en occuper, je reviendrais vers vous pour prendre 1 rendez vous:"
    GoTo ETIQUETTE1
    End If
ETIQUETTE1:
    MsgBox ("coucou")
End Sub

Bonne journée

Claude.

Un grand merci a vous deux, il est vrai que de mettre des guillements va tout seul.

Bon dimanche

Mb