Moteur de recherche
Résolu
raveno39
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
raveno39 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
raveno39 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
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
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
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Google moteur de recherche page d'accueil - Guide
- Copernic moteur de recherche - Télécharger - Navigateurs
- Copernic Desktop Search - Télécharger - Utilitaires
- Rechercher ou entrer l'adresse 4 - recherche google ✓ - Forum Réseaux sociaux
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