Pb macro Selection.Find

Résolu/Fermé

Gilles - 30 sept. 2011 à 11:05
Gilles - 3 oct. 2011 à 14:06

Bonjour,

J'ai une erreur 91 au deuxième passage dans ma boucle For...Next
Lors de la commande Selection.Find

Si vous avez des idées je suis preneur !!

Voici mon code:

Sub Macro2()

Dim customer As Integer
Dim top As Integer
Dim client As String

Sheets("Cas RTE").Select
customer = 3
Range("AF" & customer).Select

Do While Not (IsEmpty(ActiveCell))

Sheets("top63").Select
top = 2
Range("A" & top).Select
Selection.Copy

For top = 2 To 64

Sheets("top63").Select
Range("A" & top).Select
client = Range("A" & top).Value
Selection.Copy

Sheets("Cas RTE").Select
Range("AF" & customer).Select

On Error GoTo NonTrouve
Selection.Find(What:=client, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("Cas RTE").Range("B" & customer).Value = "O"
Exit For

NonTrouve:
Sheets("Cas RTE").Range("B" & customer).Value = "N"

Next

customer = customer + 1
Sheets("Cas RTE").Select
Range("AF" & customer).Select
Loop

End Sub

MERCI de votre aide !

A voir également:

Pb macro Selection.Find
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Tri automatique excel sans macro ✓ - Forum Excel

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 689
Modifié par gbinforme le 30/09/2011 à 12:05

bonjour

Je ne suis pas sûr d'avoir tout compris sans ton classeur mais il me semble que tu as des copy qui ne servent à rien alors je te propose de voir si ceci fonctionnerait :

Sub Macro2_bis() 
Dim customer As Integer 
Dim top As Integer 
Dim client As Range 

customer = 3 
With Sheets("Cas RTE") 
    Do While Not IsEmpty(.Range("AF" & customer)) 
        For top = 2 To 64 
            Set client = .Cells.Find(What:=Sheets("top63").Range("A" & top).Value, _
                LookAt:=xlwhole)

            If client Is Nothing Then 
                .Range("B" & customer).Value = "N" 
            Else 
                .Range("B" & customer).Value = "O" 
            End If 
        Next top 
        customer = customer + 1 
    Loop 
End With 
End Sub

Toujours zen

Gilles
3 oct. 2011 à 14:06

Merci de ton aide,
Ta proposition fonctionnait presque, sauf que si j'avais un client Top63 ("top63").Range("A" & top) dans la colonne Range("AF") sur la feuille "Cas RTE"
Le programme indiqué "O" sur tous les clients.

Par contre en remplaçant la fonction .Cells.Find par Selection.Find
Je sais pas pourquoi mais ça marche nikel !

Discussions similaires

faire une boucle sans VBA

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

Discussions similaires

Newsletters