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
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