Ecrire sous condition

[mephis]

Bonjour à tous et merci de toute l'aide que vous pourrez m'apporter.

J'aimerai insérer ce qu'il se trouve dans ma textbox que si ce que je souhaite insérer ne se trouve déjà pas sur la feuille.

Un petit exemple pour être plus explicite.
A1= 1
A2=2
A3=3

Si dans la textbox je met 4 alors 4 se met dans la case A4 mais si je met 2 dans la textbox il ne se passe rien.

Je vous met un petit fichier joint.

 

[tototiti2008]

Re : Ecrire sous condition

Bonjour mephis,

Peut-être

Private Sub CommandButton1_Click()
Dim xlig As Long
    If Application.CountIf(Range("A1:A65536"), TextBox1.Text) = 0 Then
        xlig = Range("A65536").End(xlUp).Row + 1
        Range("A" & xlig) = TextBox1.Text
    End If
End Sub

 

[mephis]

Re : Ecrire sous condition

Merci beaucoup tototiti c'est exactement ce qu'il me fallait

 

[david84]

Re : Ecrire sous condition

Bonjour, salut Marc,
une variante de ton code en passant par Match :

Private Sub CommandButton1_Click()
Dim xlig As Long
    If IsError(Application.Match(CDbl(TextBox1), Range("A1:A65536"), 0)) Then
        xlig = Range("A65536").End(xlUp).Row + 1
        Range("A" & xlig) = TextBox1.Text
    End If
End Sub

A+