Moteur de recherche

Résolu/Fermé

raveno39 Messages postés 49 Date d'inscription mardi 6 septembre 2011 Statut Membre Dernière intervention 11 septembre 2014 - Modifié par raveno39 le 7/04/2012 à 15:03
raveno39 Messages postés 49 Date d'inscription mardi 6 septembre 2011 Statut Membre Dernière intervention 11 septembre 2014 - 7 avril 2012 à 19:16

Bonjour,
Ayant fait des recherches dans les differents forum j'ai trouvé ce que je cherchais comme moteur de recherche a un petit detail près.
je voudrais ajouter des colonnes dans ma base de données (ex: tel portable) n'etant pas un virtuose du vba je ne sais pas quelle partie modifié pour avoir ce que je veux

voici en piece jointe le dossier
https://www.casimages.com/f.php?f=120407031457245956.xls

merci de vos reponse

A voir également:

Moteur de recherche
Safari moteur de recherche - Télécharger - Navigateurs
Recherche musique - Guide
Opera moteur de recherche - Télécharger - Navigateurs
Installer qwant moteur de recherche - Télécharger - Navigateurs
Recherche automatique des chaînes ne fonctionne pas - Guide

1 réponse

Réponse 1 / 1

raveno39 Messages postés 49 Date d'inscription mardi 6 septembre 2011 Statut Membre Dernière intervention 11 septembre 2014 15
7 avril 2012 à 15:15

resolu

raveno39 Messages postés 49 Date d'inscription mardi 6 septembre 2011 Statut Membre Dernière intervention 11 septembre 2014 15
7 avril 2012 à 19:16

j'ai reussi à ajouter les colonnes mais je n'arrive pas à les effacer les lignes correspondantes lors d'une nouvelle recherche
voila le code merci de votre aide

Option Explicit

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub AfficheListe_Click()
Dim WS As Variant
Dim Plage As Range
Dim Cherche, Adresse As String
Dim Ligne, Arrivee As Variant
Dim C As Object
'efface la plage nommée "Zone"
Feuil2.Range("Zone").Clear
Cherche = TextBox1
Ligne = 5
If Cherche = "" Then Exit Sub
Range("F2").Value = Cherche

Set Plage = Worksheets("donnée").Range("a2:M5000")
With Plage
Set C = .Find(Cherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
Arrivee = Mid(C.Address, 3)
Worksheets("donnée").Range("a" & Arrivee & ":az" & Arrivee).Copy Feuil2.Range("B" & Ligne)
Ligne = Feuil2.Range("" & "B" & "65536").End(xlUp).Row + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
'ici on refait une boucle sur feuille "Résultats"
'pour traiter la couleur de la cellule (rouge/gras)
Set Plage = Feuil2.Range("a4:az5000")
With Plage
Set C = .Find(Cherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
Arrivee = Mid(C.Address, 3)
With Feuil2.Range(C.Address)
.Font.Bold = True
.Font.ColorIndex = 3
End With
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub

Discussions similaires

recherche à partir de la barre d'adresse

[référencement] Ne pas être référencé

Yahoo Search (moteur de recherche) revient

1fichier

Google est par défaut, mais change de moteur de recherche

Discussions similaires

Newsletters