Discussion :

[pagesalex]

Bonjour,

J'aimerai avec un userform saisir une valeur dans un textbox et si cette valeur n'appartient pas a une certaine plage de cellule on la rajoute à cette plage. Par exemple sur A1:A5 j'ai :

A
B
C
D
E

dans mon textbox si je saisie F, F se positionnera en A6, si je saisie A, alors rien ne se passe.

Avez vous une idée de la nature de cette solution ?

Merci Beaucoup.

[Menhir]

Tout d'abord, il serait plus simple d'utiliser une InputBox plutôt qu'une TextBox dans un UserForm.
https://msdn.microsoft.com/library/d...ice.15%29.aspx

Pour ton processus, il faut lancer un Find sur la plage en plaçant le résultat dans une variable de type Range.
Si le résultat est Nothing, tu ajoutes la saisie à la fin de ta série (tu peux trouver la fin avec la propriété End de la plage).
Si le résultat n'est pas Nothing, tu utilises la propriété Row appliquée au résultat pour savoir sur quelle ligne te placer.

[pagesalex]

Merci de vote aide je fais un code et si jamais je reviens vers vous

[pagesalex]

Merci de m'avoir mis sur le bon chemin,

Avec quelques recherche voila ce que j'ai pu obtenir comme code

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
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Private Sub Cherche()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
 
'********* à adapter ***********
'affectation de valeurs aux variables :
    'on cherche le mot "Trouve"
Valeur_Cherchee = Me.CBrue
    'dans la première colonne de la feuille active
Set PlageDeRecherche = Sheet("Liste des rues").Columns(1)
'*******************************
 
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    r = Sheets("Liste des rues").Range("A65536").End(xlUp).Row + 1
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    Sheets("Liste des rues").Cells(r, 1) = Me.CBrue
    Sheets("Liste des rues").Cells(r, 2) = Me.irisq
'Else
'    'ici, traitement pour le cas où la valeur est trouvée
'    AdresseTrouvee = Trouve.Address
End If
'MsgBox AdresseTrouvee
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub