probleme d'affichage dans un MsgBox

[nikon72]

salut le forum,

j essai d afficher dans une msgbox une cellule en fonction d une recherche, je m explique :

j ai un fichier excel original avec une colonne de code de designation et une colone de nom de personne.

chaque fois que je scan un code et qu il est trouver dans la colonne de designation, je voudrai faire ouvrir un msgbox quelque seconde pour voir le nom de la personne.

mais bon j suis pas tres douer

voila mon debut de code mais meme sa, c pas terible

Option Explicit
Option Compare Text
Dim DerliA As Integer, DerliB As Integer, Fin As Integer, I As Integer

Private Sub CommandButton1_Click()
Dim Fin As Integer, I As Integer
DerliA = Range("B6000").End(xlUp).Row
DerliB = Range("D8000").End(xlUp).Row
Fin = IIf(DerliA < DerliB, DerliA, DerliB)
For I = 2 To Fin
If Cells(I, 1).Value = TextBox2.Value And Cells(I, 2).Value = TextBox4.Value Then
MsgBox ("NOM DU CHAUFFEUR")
Me.TextBox2.SetFocus
Exit Sub
End If
Next
Cells(DerliA + 1, 1) = TextBox2.Value
Cells(DerliA + 1, 2) = TextBox4.Value
End Sub

quelqu un peu m aider?

merci

 

[kjin]

Re : probleme d'affichage dans un MsgBox

Re,
Dans le formulaire modifies TimeValue --> 00:00:02 --> 2s
A+
kjin

 

[Hulk]

Re : probleme d'affichage dans un MsgBox

Hello,

Dans le code de l'USF

Private Sub UserForm_Activate()
If Application.Wait(Now + TimeValue("00:00:[COLOR="red"][B]01[/B][/COLOR]")) Then Unload Me
End Sub

Cdt, Hulk.

 

[nikon72]

Re : probleme d'affichage dans un MsgBox

Re
Merci bcp pour votre aide

mnt je me met au doublons....
a mon avis je vais faire simple, une autre colonne ou je tri quand la partie scan est terminée...

si j ai besoin je cri encore au secours

encore merci à vous

 

[nikon72]

Re : probleme d'affichage dans un MsgBox

Resalut a vous ,

j ai encore une petie question,
dans le code que tu m as donné (qui fonctionne tres bien d ailleur!!),
il transforme tout les scan de la colonne A sur les 7 derniers chiffres.
je voudrais faire la meme chose sur la colonne B avec les 5 derniers,
mais je ne sais pas coment tu as fais donc je ne sais pas le reproduire

vous savez encore m aider?

Merci a vous

 

[kjin]

Re : probleme d'affichage dans un MsgBox

Bonsoir,
Dans le code
remplace la colonne 1 (A) par 2 (B)

If Target.Column <> [COLOR="Blue"]2[/COLOR] Or Target.Row < 6 Or

remplace la formule de la variable Cod

Cod = CLng(Right(Target, [COLOR="Blue"]5[/COLOR]))

A+
kjin

 

[nikon72]

Re : probleme d'affichage dans un MsgBox

Re,

Super

encore merci