Vba Chercher une chaîne de caractère
Résolu
Bonjour,
J'ai une colonne où je recherche une ligne en paritculier. La colonne comporte des chaîne de caractères:
FM1
FM2
FM3
....
Mais du coup quand je fais ma recherche, il ne trouve pas aucune valeur; certainement car je défini mal ma chaîne de caractère.
Voici le code:
Sub Chercher()
Dim L, i As Integer
Dim NimFM
NumFm = InputBox("Fm rechercher:")
For i = 2 To 500
If Cells(L, 1) = NumFm Then
Rows(L, L).Insert Shift:=xlUp
Cells(L, 2) = Workbooks("Fiche Modificative").Sheets("Fiche imprimable").Range(B10)
End If
Next
End Sub
L'erreur est l'erreur1004 "défini par l'application ou par l'objet".
bref , je comprend pas bien ce qui se passe...
Si quelqu'un pouvait me donner un petit coup de main
Merci d'avance
J'ai une colonne où je recherche une ligne en paritculier. La colonne comporte des chaîne de caractères:
FM1
FM2
FM3
....
Mais du coup quand je fais ma recherche, il ne trouve pas aucune valeur; certainement car je défini mal ma chaîne de caractère.
Voici le code:
Sub Chercher()
Dim L, i As Integer
Dim NimFM
NumFm = InputBox("Fm rechercher:")
For i = 2 To 500
If Cells(L, 1) = NumFm Then
Rows(L, L).Insert Shift:=xlUp
Cells(L, 2) = Workbooks("Fiche Modificative").Sheets("Fiche imprimable").Range(B10)
End If
Next
End Sub
L'erreur est l'erreur1004 "défini par l'application ou par l'objet".
bref , je comprend pas bien ce qui se passe...
Si quelqu'un pouvait me donner un petit coup de main
Merci d'avance
Configuration: Windows 2000 Internet Explorer 6.0
2 réponses
-
Désolé petite erreur:
Il faut remplacer les L par des i
Mais ca ne cahnge rien eu problème -
Ne tenez pas compte de ce problème il n'y en a paws (tout marche). la prochaine fois je reflechirais un peu plus avant de poser une question....(o)
Pour ce que ca interresse voici le code:
Sub Chercher()
Dim i As Integer
Dim Cell As Range
Dim NumFM
NumFM = InputBox("Fm rechercher:")
For i = 2 To 500
If Cells(i, 1) = NumFM Then
Cells(i + 1, 1).Select
Selection.EntireRow.Insert
Cells(i + 1, 2) = "azerty"
Exit Sub
End If
Next
End Sub
