Recherche mot vba
zef62
-
zef62 -
zef62 -
Bonjour,
Bonjour,
j'ai un code qui me permet de rechercher des chiffres dans une feuille charger de datas jusque la pas de soucis sauf que je doit également rechercher un nombre appellé e20 et la pas possible quelqu'un a t'il une idée voici mon code .
'
Sheets("feuil1").Select
Range("a1").Select
Dim cell
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = e20 Then
Do While ActiveCell.Value <> ""
Plage.Cells(I).EntireRow.Cut
Sheets("feuil2").Select
cel = ActiveCell.Address
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Select
Loop
End If
Next
End Sub
j'ai essayé avec If Plage.Cells(I).text = e20 Then mais ca ne marche pas
merci d'avance
Bonjour,
j'ai un code qui me permet de rechercher des chiffres dans une feuille charger de datas jusque la pas de soucis sauf que je doit également rechercher un nombre appellé e20 et la pas possible quelqu'un a t'il une idée voici mon code .
'
Sheets("feuil1").Select
Range("a1").Select
Dim cell
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = e20 Then
Do While ActiveCell.Value <> ""
Plage.Cells(I).EntireRow.Cut
Sheets("feuil2").Select
cel = ActiveCell.Address
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Select
Loop
End If
Next
End Sub
j'ai essayé avec If Plage.Cells(I).text = e20 Then mais ca ne marche pas
merci d'avance
A voir également:
- Recherche mot vba
- Trousseau mot de passe iphone - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide