[XL-2007] textbox cherche sur feuilles si

[grisan29]

bonjour a vous tous

lors de la création d'un devis si un article est écrit manuellement dans un textbox est ce que ce textbox peux dans ce cas uniquement rechercher si l'article n'existe dans aucune des feuilles et dans ce cas rajouter les données dans une autre feuille et ce afin de ne pas perdre l'info et la greffer dans la bonne feuille par la suite manuellement
Merci

Pascal

[Cocotte278]

Bonjour Pascal ,

Comme on se retrouve !!! Lol.
Je me permet de te répondre vu que je vois un peu ce que tu veux dire !

Je pense que rechercher dans tes pages la référence rentrée à la main dans ta TextBox, c'est faisable.

En utilisant :

Code :

C = .Columns(3).Find(X, LookIn:=xlValues, lookat:=xlPart)

où X est la référence renseignée par l'utilisateur, .Columns(3) représente la colonne dans laquelle chercher si la donnée existe et C ne sera pas nul si on a trouvé la réf et sera vide si la référence n'est pas trouvée.

Dans le cas où la référence n'est pas connue, tu peux créer une nouvelle feuille pour tu copies la valeur de ta TextBox dans une certaine cellule.
En utilisant :

Code :

1
2
3
4
5
6
7
8
 
Nom = UserForm1.TextBox1.Text
 
Worksheets(4).Select
 
'Inscrit les données dans la feuille Base de Données
v_adresse = Range("A3").End(xlDown).Offset(1, 0).Address
Range(v_adresse) = Nom

Cdt

[grisan29]

bonjour cocotte278
eh ben oui on se retrouve!!! Lol.

mais ou peux tu bien mettre ces code dans mon fichier que tu connais si bien
cordialement

Pascal

[Cocotte278]

Ca va tout au même endroit !

Tout dépend de comment tu vois la chose.
Tu as prévu un TextBox uniquement pour l'écriture manuelle de la référence ou c'est le même que celui utilisé après la recherche ?
Peut-on mettre un bouton en plus pour validation ou pas ?

Après, je ne sais pas comment on peut différencier écriture à la main ou recherche auto (si jamais tu choisis de tout mettre dans le même TextBox). Faut chercher...

[grisan29]

bonjour cocotte278
oui il s'agit du meme textbox, mais comme c'est un essai que je fait, je suis ouvert a tout
cordialement
Pascal

[grisan29]

bonjour cocotte278 et les autres

toujours le meme c'est une question pratique car je n'ai rien trouvé dans les propriétés d'une listview
avec mon ancien fichier les écriture dans la feuille se faisait a l'aide de

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 With .Range("D" & lig, "H" & lig)
      .Font.Size = 14
       .Font.Name = "arial"
         .MergeCells = False
         .WrapText = True 'retour du texte à la ligne
         .EntireRow.AutoFit 'mettre la ligne en ajustement auto de la hauteur
         MaHauteur = .RowHeight 'voir quelle est la hauteur de la ligne une fois cet autofit fait
         .MergeCells = True 'refusionner
 
        .VerticalAlignment = xlCenter
         .RowHeight = IIf(MaHauteur > 19, MaHauteur, 19) 'si la hauteur une fois autofit fait est inferieur à 15 je laisse 15 en minimum sinon hauteur de l'autofit (perso c'est la hauteur mini que je voulais
      End With

de facon a ce que les cellules se mettait automatiquement au format qu'il fallais pour recevoir la donnée
peut'on faire la meme chose ou différent pour les données qui arrivent dans la listview?

cordialement

Pascal