Appel à l'aide ! 2 Questions simples mais dures à résoudre étant débutant...

[Romain]

J'ai crée un fichier excel permettant de classer des données et de faire
des recherches mais j'ai 2 problèmes qui se posent :

1 . Pour une recherche d'immatriculation qui sélectionne la ligne où elle se
trouve, j'aimerai afficher un message du type : " Plaque non disponible"
si la recherche ne trouve pas ce numéro dans la base de donnée. Comment
dois-je terminer ma macro.

2 . Une fois la recherche terminée et la ligne sélectionnée, j'aimerai copier cette ligne à l'aide du bouton Copier ligne que j'ai mis pour que les données concernées, c'est à dire seulement certains critères : Numéro, Marque, Equipement, Moteur ,etc dans la feuille Proposition que j'ai crée
et que si je dois faire d'autres sélection dans ma base elle soient copiées
sur la ligne d'après dans la proposition pr ne pas effacer les données déjà rentrées et pouvoir avoir plusieurs choix...


Merci de m'éclairer sur mon problème en tant qu'experts en la matière

Romain

 

[Faro]

Pourrait tu joindre ton fichier, que l'on voit comment tu as concu ton fichier ...

En ce qui concerne le problème 1, sans voir ton fichier, tout dépend si tu as fait une boucle pour ta recherche ou une condition ...

Faro

 

[Romain]

Salu Faro,

Mon fichier est tro gros 876 ko compressé alors ke les données ne st pas
encore rentrées dc je ve essayer de te montrer en plusieurs fichiers cke ca
donne mé pr le problème 1, voici mon code :

Sub Immat()

'ANNONCE NUM A CHERCHE
Message = "Entrez le numéro d'immatriculation à chercher"
Title = "Immatriculation"
Dfault = "à entrer ici"
ficNUM$ = InputBox(Message, Title, Dfault)

'rechercher la valeur
Sheets("DONNEES").Select
Columns("N").Select
'Définie la valeur à rechercher
'ficNUM$ = tbCARTE.Value
'Effectue la recherche
Selection.Find(What:=ficNUM$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Select

'Selectionne la ligne trouvé
Rows(ActiveCell.Row).Select
'


End Sub


Voilà pr le code, merci de ton aide.
Je vé me débrouiller pr te montrer le fichier en plusieurs parties pr le
problème 2

 

[Faro]

ne peut on pas faire :
If selection.Find = 0 then
msgbox "erreur"
Exitsub
End If
ou
if selection.select = 0 then
msgbox "erreur"
Exitsub
End If

Faro

 

[Romain]

Nan ca fonctionne pas...
J'obtient ce message si je rentre un numéro ki n'est pas ds la liste
Erreur d'execution '91':

Variable objet ou variable de bloc with non Définie

... et le débogage me souligne la ligne :

Selection.Find(What:=ficNUM$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Select


je pense kil fo changer ma formulation en reprenant une condition mé je sé
pa faire

K'est-ce t'en pense ?
Merci d'avance

 

[Romain]

Voici un extrait de mon fichier pour le problème 2.
Les liens par boutons ne marchent surment pas car il s'agit de deux feuilles
composant mon fichier
Mais je pense kil est possible de résoudre mon problème en s'appuyant
sur ces 2 documents sachant ke les critères st répartis différemment entre
le premier doc et le deuxième car ts les renseignements ne sont pas utiles

L'énoncé du problème est ds mon premier message.

J'espère ke kk'1 pourra m'aider...

 

[Michel_M]

Salut Romain et Faro

Romain,

Tu peux essayer le gestionnaire d'erreur:

on error resume next

Selection.Find(What:=ficNUM$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Select

if err<>0 then
msgbox "numéro de plaque inconnu"
exit sub
end if

J'ai 2 3 trucs à faire et je regarde tes problèmes si personne ne t'a répondu d'ici là

A+
Michel

 

[Michel_M]

Re

Comme promis, ci joint propositions

tiens moi au courant
Michel

 

[Romain]

Merci à toi Michel_M ainsi k'à Faro !!!


Ton code Michel marche nickel, merci pr tte ces explication...
Ca m'enlève 2 problemes ke j'orai u du mal à resoudre tt seul
je vé me servir de tt ca pr compléter mon fichier !
J'espère pouvoir ainsi aider les autres plus tard...
Merci à tous les 2.

@ +
Romain