Je souhaiterais qu'Excel recherche la valeur contenue dans la cellule
"AF13" dans la colonne A seulement....Cependant, excel ne veut pas.
Voici le code:
Private Sub CommandButton1_Click()
Dim valeur, vt
valeur =3D Sheet3.Range("AF13").Value
Sheet3.Range("A2").Activate
'On Error Resume Next
ActiveSheet.Columns(1).Find(What:=3Dvaleur, After:=3DRange("A2"),
_
LookIn:=3DxlFormulas, LookAt:=3D _
xlPart, SearchOrder:=3DxlByRows,
SearchDirection:=3DxlNext, _
MatchCase:=3DTrue) _
.Offset(0, 1).Activate
Unload UserForm3
UserForm4.Show
End Sub
Je souhaiterais qu'Excel recherche la valeur contenue dans la cellule "AF13" dans la colonne A seulement....Cependant, excel ne veut pas. Voici le code:
Private Sub CommandButton1_Click() Dim valeur, vt valeur = Sheet3.Range("AF13").Value
Sheet3.Range("A2").Activate 'On Error Resume Next ActiveSheet.Columns(1).Find(What:=valeur, After:=Range("A2"), _ LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=True) _ .Offset(0, 1).Activate Unload UserForm3 UserForm4.Show End Sub
Voyez-vous ou est mon erreur?
Merci pour votre temps
Denys
Bonjour,
-Si les valeurs de la colonne A sont le résultat de formules:
LookIn:=xlValues?
-Si la colonne A contient des dates:
Le format de la colonne A doit être le même que celui de la date
cherchée.
On 25 juin, 16:23, Denys <denys.perrea...@rbc.com> wrote:
Bonjour à tous,
Je souhaiterais qu'Excel recherche la valeur contenue dans la cellule
"AF13" dans la colonne A seulement....Cependant, excel ne veut pas.
Voici le code:
Private Sub CommandButton1_Click()
Dim valeur, vt
valeur = Sheet3.Range("AF13").Value
Sheet3.Range("A2").Activate
'On Error Resume Next
ActiveSheet.Columns(1).Find(What:=valeur, After:=Range("A2"),
_
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=True) _
.Offset(0, 1).Activate
Unload UserForm3
UserForm4.Show
End Sub
Je souhaiterais qu'Excel recherche la valeur contenue dans la cellule "AF13" dans la colonne A seulement....Cependant, excel ne veut pas. Voici le code:
Private Sub CommandButton1_Click() Dim valeur, vt valeur = Sheet3.Range("AF13").Value
Sheet3.Range("A2").Activate 'On Error Resume Next ActiveSheet.Columns(1).Find(What:=valeur, After:=Range("A2"), _ LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=True) _ .Offset(0, 1).Activate Unload UserForm3 UserForm4.Show End Sub
