Discussion :

[pomdeterfrite]

Bonjour à tous,

Je cherche à placer le caractère "*" à la fin d'une chaine de caractère d'une cellule, quelque soit le nombre de caractère qu'elle contient et que la cellule soit vide ou pas. Est ce possible ??

Code :

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

1
2
3
4
5
6
7
8
9
10
        If Date > Deadline And Range("N" & i).Value = "RELANCE N°3" Then
            MsgBox "Nouvelle Deadline au " & Deadline & " pour " & vbLf & vbLf & Range("A" & i).Value & "  " & Range("B" & i).Value, vbCritical, "Nouvelle alerte"
            Rep = MsgBox("Avez vous envoyé le mail de deadline ?", vbYesNo + vbQuestion, "Mail de deadline")
            Select Case Rep
                Case vbYes
                    Range("N" & i).Value = "REGLE 3"
                    ' Range("O" & i).Value = "*" à la fin
                Case vbNo
        End Select
        End If

[Jean-Philippe André]

Salut,

tu peux utiliser la concatenation avec le symbole esperluette &
exemple :

Code :

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

1
2
3
Sub piou()
Range("B1") = Range("A1") & "*"
End Sub

[pomdeterfrite]

C'était tellement évident que je n'y ai meme pas pensé

Merci beaucoup ca fontionne