Discussion :

[sabry0]

Bonjour à tous,
je suis nouvelle dans le forum et d'un coup de pouce svp,
j'utilise la fonction find pour trouver en vba le valeur d'une celulle qui se trouve dans une colonne précise et je souhaiterai lorsque je trouve cette valeur que j'ai nommé nom la supprimer de la colonne. mon probleme est ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

recherche = Application.WorksheetFunction.VLookup(Nom, Sheets("Feuil2").Range("B3:C415"), 1, False)

pour la suppréssion j'ai ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each varI In Sheets("Feuil2").Range("B3:B15")
 If varI = Nom Then
 varI.Select
    Selection.Delete Shift:=xlUp
 End If
 Next

je pense que c'est celles-ci qui posent problème peut être à cause de mes déclarations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim varI As Variant
Dim recherche As Variant
Dim Nom As String

quelqu'un aurait il une solution s'il vous plait?
je ne trouve pas mon erreur...

[Al__22]

Premièrement :


C'est le bouton "#" quand tu écrit un message est ça permet de mieux lire ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ceci est un exemple

Ensuite tu utilise varI comme variant est dans ta condition tu lui demande si elle est égale à un String : chose impossible dans ton cas vu que tu demande à varI d'être une cellule dans un Range :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each varI In Sheets("Feuil2").Range("B3:B15")

Du coup pour faire fonctionner ton code il faut utiliser pour ta condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If varI.Value = Nom Then

Bon courage

[sabry0]

Merci AI__22pour ta reponse j'ai rajouté les quotes
J'ai rahjouté le .value mais ça ne marche toujours pas... voici la partie du code concerné (j'ai testé la recherche elle marche):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim varI As Variant
    If Me.OptionButton1.Activate Then
    Call RechercheV
 For Each varI In Sheets("Feuil2").Range("B3:B15")
If varI.Value = Nom Then
 varI.Select
    Selection.Delete Shift:=xlUp
 End If
 Next
  End If

[riaolle]

Bonjour,

si varI doit de toute façon être une cellule, déclare-le tout de suite en tant que Range :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim varI As Range

Ensuite, évite d'utiliser les Select et Activate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If varI.Value = Nom Then
      varI.Delete Shift:=xlUp
 End If

D'autre part, si j'ai bien compris ton code : tu cherches Nom dans ta feuille, puis tu fais une boucle sur ta feuille pour re-trouver Nom afin de supprimer la cellule où il apparaît. Tu fais 2 fois la même chose. En plus, faire une boucle pour trouver une certaine cellule, ce n'est pas très efficace, surtout qu'il y a des outils plus puissants. Utilise la fonction Match par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim i As Long
i = Application.Match(Nom, Range("B3:B15"), 0) + 2          'donne le n° de la ligne où apparaît Nom
Range("B" & i).Delete Shift:=xlUp                   'supprime la cellule

Enfin, tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If varI.Value = Nom Then

Mais tu ne dis jamais avant ce que vaut Nom. Donc la condition peut difficilement être vérifiée.

Peux-tu nous dire ce que fait la méthode RechercheV.

J'espère que tu arriveras à avancer avec cela

[sabry0]

Bonjour riaolle merci beaucoup cela marche enfin!
un grand merci à vous tous!!