Discussion :

[Olivm]

Bonjour tout le monde,

J'aimerais faciliter la saisie de nouveaux articles dans ma base de données.
J'ai bien réussi à créer mon INPUTBOX.

Mais j'ai un problème lorsque j'ajoute ma condition " si l'article existe déjà dans la base de donées, alors ne pas l'ajouter".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub saisie()
'
'  saisie Macro
'
 
Sheets("inventaire").Select 'selectionner cette feuille
 Dim distri As String 'variable = distri
 Dim facture As String ' variable = facture
 
    With Range("e1").Select
         Selection.End(xlDown).Select 'selectionner e1 et aller tout en bas
           ActiveCell.Offset(1, 0).Range("A1").Select 'selectionner la cellule en dessous
          distri = InputBox("Saissiez le nouveau code distribution", "Code distribution") 'La variable reçoit la valeur entrée dans l'InputBox
 
       If distri <> "" Then 'Si la valeur est différente de "" on affiche le résultat
             If "COUNTIF(R1C4:R1C9,""distri"")" = 0 Then
                   ActiveCell = distri
               End If                                 
     End If
     End With
End Sub

Il s'agit juste d'un problème sur ma condition countif, pouvez - vous m'aider svp?
"incompatibilité de type"

[mercatog]

Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Saisie()
Dim Distri As String
 
With Sheets("inventaire")
    Distri = InputBox("Saissiez le nouveau code distribution", "Code distribution")
    If Distri <> "" Then
        If Application.CountIf(.Range("E:E"), Distri) = 0 Then .Cells(.Rows.Count, "E").End(xlUp)(2) = Distri
    End If
End With
End Sub

[Olivm]

Impeccable, merci opur votre aide