Bonjour, j'aurai besoin d'un p'tit coup de main !!
Je suis chauffeur/livreur et je réalise un fichier client me permettant :
1_ De référencer les clients ainsi que diverses informations (adresses, heures et jours de réception etc...)
>> J'ai créé une liste avec la colone "nom client" > > > OK ca marche
2_ De situer précisément les clients difficiles a trouver (rase campagne...) sur une carte.
>> J'ai créé un lien hypertexte sur la case correspondant au nom du client et hop ! une page Internet s'ouvre avec le plan ou la carte et les diverses infos du client... > > > OK ca marche aussi... mais à améliorer...
Pour l'instant dans mon classeur il n'y a que 2 feuilles... la premiére qui ne sert que de page d'acceuil avec un lien hypertexte qui renvois a la 2ème feuille, la feuille "Répertoire"
1ére question :
J'ai trouvé un code (merci le forum...) pour faire la recherche et ca marche... sauf un truc !! quand la boite de dialogue s'ouvre, et qu'on clic sur "fermer", "annuler" ou que l'on clic "OK" sans remplir le champ "Recherche" ca bug et ca me renvois sur ma page d'accueil... Et j'arrive pas a trouver la ligne de commande qui décon.....
LA ! je bloque... Même en supprimant des lignes au pifométre je trouve pas
2ème question :
Lors de la création d'un nouveau client, et donc d'un nouveau plan, je fais une "mise en page" du plan (pictogramme, mise en couleurs des chemins d'accés etc...) sous Paint (dispo sur tout PC).
Est-il possible d'automatiser la "mise en page" via un bouton qui ouvrirai une boite de dialogue du type "explorateur" pour selectionner le plan numériser et ouvrir directement ce plan sous paint ???
Hop ! le code de la recherche :
Private Sub CommandButton2_Click()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte
Str_Plage = "B12:B112"
Str_critère = InputBox("Nom à rechercher ?")
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
Feuil.Activate
Cel.Activate
X = MsgBox("Nom """ & Str_critère & """ trouvé :" & Chr(13) & _
"Sur la feuille : " & Feuil.Name & Chr(13) & _
"à la cellule : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
"Oui : Arrêter la recherche" & Chr(13) & _
"Non : Continuer la recherche " & Chr(13), vbDefaultButton2 + _
vbQuestion + vbYesNo, "MOT TROUVÉ")
Select Case X
Case 6
Feuil.Activate
Cel.Activate
Exit Sub
Case 2
Exit Sub
Case Else 'Non=7
End Select
End If
Next Cel
Next Feuil
MsgBox ("Désolé pas de résultat")
End Sub
Merci d'avance pour vos réponses et désolé d'avoir été un peu long...
Je suis chauffeur/livreur et je réalise un fichier client me permettant :
1_ De référencer les clients ainsi que diverses informations (adresses, heures et jours de réception etc...)
>> J'ai créé une liste avec la colone "nom client" > > > OK ca marche
2_ De situer précisément les clients difficiles a trouver (rase campagne...) sur une carte.
>> J'ai créé un lien hypertexte sur la case correspondant au nom du client et hop ! une page Internet s'ouvre avec le plan ou la carte et les diverses infos du client... > > > OK ca marche aussi... mais à améliorer...
Pour l'instant dans mon classeur il n'y a que 2 feuilles... la premiére qui ne sert que de page d'acceuil avec un lien hypertexte qui renvois a la 2ème feuille, la feuille "Répertoire"
1ére question :
J'ai trouvé un code (merci le forum...) pour faire la recherche et ca marche... sauf un truc !! quand la boite de dialogue s'ouvre, et qu'on clic sur "fermer", "annuler" ou que l'on clic "OK" sans remplir le champ "Recherche" ca bug et ca me renvois sur ma page d'accueil... Et j'arrive pas a trouver la ligne de commande qui décon.....
LA ! je bloque... Même en supprimant des lignes au pifométre je trouve pas
2ème question :
Lors de la création d'un nouveau client, et donc d'un nouveau plan, je fais une "mise en page" du plan (pictogramme, mise en couleurs des chemins d'accés etc...) sous Paint (dispo sur tout PC).
Est-il possible d'automatiser la "mise en page" via un bouton qui ouvrirai une boite de dialogue du type "explorateur" pour selectionner le plan numériser et ouvrir directement ce plan sous paint ???
Hop ! le code de la recherche :
Private Sub CommandButton2_Click()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte
Str_Plage = "B12:B112"
Str_critère = InputBox("Nom à rechercher ?")
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
Feuil.Activate
Cel.Activate
X = MsgBox("Nom """ & Str_critère & """ trouvé :" & Chr(13) & _
"Sur la feuille : " & Feuil.Name & Chr(13) & _
"à la cellule : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
"Oui : Arrêter la recherche" & Chr(13) & _
"Non : Continuer la recherche " & Chr(13), vbDefaultButton2 + _
vbQuestion + vbYesNo, "MOT TROUVÉ")
Select Case X
Case 6
Feuil.Activate
Cel.Activate
Exit Sub
Case 2
Exit Sub
Case Else 'Non=7
End Select
End If
Next Cel
Next Feuil
MsgBox ("Désolé pas de résultat")
End Sub
Merci d'avance pour vos réponses et désolé d'avoir été un peu long...