Recherche dans une plage

[Hamb]

Bonjour le Forum,

Apres avoir fais une recherche je n’ai pas trouvé de réponses concernant ma question ! Elle y est peut-être mais pas trouvé désolé.
Voila ma question :
Avant d’exécuter ce code j’aimerais qu’il vérifie dans ma plage qu’il n’y ai pas déjà une cellule portant le même nom. Par exemple en « B14 » s’il y a Durand, lorsque j’exécuterais mon code j’aimerais qu’il me dise il y a déjà un « Durand ».

Merci de votre aide !

Dim ligne As Integer
Sheets("donnees").Select
ligne = Range("B65536").End(xlUp).Row + 1
Range("B" & ligne).Value = newsalartxt1.Value ' Nom du salarié
Range("C" & ligne).Value = newsalartxt2.Value ' Prenom du salarié
Range("D" & ligne).Value = "Reception"
If ligne = 2 Then
Range("A" & ligne).Value = 1
Else
Range("A" & ligne).Value = Range("A" & ligne - 1) + 1
End If

 

[Banzai64]

Re : Recherche dans une plage

Bonjour

Tu peux rajouter

Dim ligne As Integer
Dim Cel As Range

Sheets("donnees").Select

  Set Cel = Range("B:B").Find(newsalartxt1.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    MsgBox "Existe"
  End If
.
.

 

[Hamb]

Re : Recherche dans une plage

Merci banzai64

Ca fonctionne super bien il me dit effectivement qu’il y a déjà un nom mais le problème c’est qu’il le fait quand le nom est déjà dans la cellule.
Si je met ton bout de code au début il ne vérifie pas, si je le met apres il a validé mon nom et forcement il le trouve. Ou mettre ce bout de code pour qu’avant qu’il valide il vérifie si une cellule porte déjà ce nom ?

Merci
Cordialement

Dim ligne As Integer
Dim Cel As Range

Sheets("donnees").Select
ligne = Range("B65536").End(xlUp).Row + 1
Range("B" & ligne).Value = newsalartxt1.Value ' Nom du salarié
Range("C" & ligne).Value = newsalartxt2.Value ' Prenom du salarié
Range("D" & ligne).Value = "Reception"
Set Cel = Range("B:B").Find(newsalartxt1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
MsgBox "Ce nom existe deja"
End If
If ligne = 2 Then
Range("A" & ligne).Value = 1
Else
Range("A" & ligne).Value = Range("A" & ligne - 1) + 1
End If

 

[ChTi160]

Re : Recherche dans une plage

Salut Hamb
voila ce que j'ai mis et qui fonctionne je suis passe par deux variables au lieu des textBox pour le test

newsalartxt1 = "Oui"  'variable string
newsalartxt2 = "Alain" 'variable string
Dim ligne As Integer
Dim Cel As Range
Set Cel = Range("B:B").Find(newsalartxt1, LookIn:=xlValues,  lookat:=xlWhole) 'si en colonne B je rencontre newsalartxt1
If Not Cel Is Nothing Then
MsgBox "Ce nom existe deja  " & Cel
Exit Sub 'On quitte
End If
Sheets("Feuil1").Select
ligne = Range("B65536").End(xlUp).Row + 1
Range("B" & ligne).Value = newsalartxt1 ' Nom du salarié
Range("C" & ligne).Value = newsalartxt2 ' Prenom du salarié
Range("D" & ligne).Value = "Reception"
 
If ligne = 2 Then
Range("A" & ligne).Value = 1
Else
Range("A" & ligne).Value = Range("A" & ligne - 1) + 1
End If

Ps Salut Banzai64
si cela peut t'aider
Bonne fin de Journée
moi je vais aller commencer la mienne Lol

 

[Banzai64]

Re : Recherche dans une plage

Re

Je ne comprends pas

Avant d’exécuter ce code j’aimerais qu’il vérifie dans ma plage

Ce code signale si déjà le nom existe

Si je met ton bout de code au début il ne vérifie pas

si il vérifie

Ce que je ne sais pas c'est que faire s'il le trouve

 

[Hamb]

Re : Recherche dans une plage

Merci ChTi160,

Tout est parfait ça fonctionne super bien merci beaucoup !!!
Merci aussi a toi Banzai64

Cordialement