vba Chercher une chaîne de caractère Résolu

Question

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

onra · Answer

Désolé petite erreur:

Il faut remplacer les L par des i

Mais ca ne cahnge rien eu problème

onra · Answer

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

Vba Chercher une chaîne de caractère

2 réponses

Votre réponse

Discussions similaires