Vba Chercher une chaîne de caractère

Résolu/Fermé

onra - 19 juin 2008 à 14:04
onra - 19 juin 2008 à 14:15

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

A voir également:

Vba Chercher une chaîne de caractère
Caractère ascii - Guide
Caractere speciaux - Guide
Caractère spéciaux - Guide
Caractère spéciaux mac clavier - Guide
Chaine tnt gratuite sur mobile - Guide

2 réponses

Réponse 1 / 2

onra
19 juin 2008 à 14:06

Désolé petite erreur:

Il faut remplacer les L par des i

Mais ca ne cahnge rien eu problème

Réponse 2 / 2

onra
19 juin 2008 à 14:15

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

Discussions similaires

Caractère invisible ou vide pour pseudo invisible

Comment insérer correctement des caractères spéciaux ou émojis ?

Dessiner avec son clavier et avec des lettres

Excel : extraire le texte après un caractère

Discussions similaires

Newsletters