Moteur de recherche
Résolu
raveno39
Messages postés
53
Statut
Membre
-
raveno39 Messages postés 53 Statut Membre -
raveno39 Messages postés 53 Statut Membre -
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
- Copernic moteur de recherche - Télécharger - Navigateurs
- Google moteur de recherche page d'accueil - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Le fichier pdf à télécharger est disponible avec le même nom sur le site de bell canada. mais vous ne le trouverez pas directement avec un moteur de recherche… quelle est l’url de ce fichier pdf sur le site web de bell canada ? - Forum Réseaux sociaux
- Copernic Desktop Search - Télécharger - Utilitaires
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