erreur d'éxécution 91

erreur d'éxécution 91 - VB/VBA/VBS - Programmation

Marsh Posté le 13-04-2010 à 11:42:55    

Bonjour tout le monde,
 
je débute dans le domaine de la macro excel et n'y comprend pas grand chose actuellement d'où mon appelle à vous.
 
j'ai une erreur d'exécution '91' qui s'affiche à la fin de ma macro qui est la suivante:
 

Code :
  1. Sub renomer_tlssyp()
  2. '
  3. ' renomer_tlssyp Macro
  5. Dim i As Variant
  6. i = "=COUNTIF(C[1],60814545)"
  7.     Windows("Classeur1" ).Activate
  8.     Sheets("Montants facturés par carte" ).Select
  9.     Do
  10.     Columns("E:E" ).Select
  11.     selection.Find(What:="TLSSYP", After:=ActiveCell, LookIn:=xlFormulas, _
  12.         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
  13.         MatchCase:=False, SearchFormat:=False).Activate
  14.     ActiveCell.Offset(rowOffset:=0, columnOffset:=-4).Activate
  15.     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],Codex!C:C[2],2,FALSE)"
  16.     selection.Copy
  17.     ActiveCell.Offset(rowOffset:=0, columnOffset:=4).Activate
  18.     selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  19.         :=False, Transpose:=False
  20.     ActiveCell.Offset(rowOffset:=0, columnOffset:=-4).Activate
  21.     Application.CutCopyMode = False
  22.     selection.ClearContents
  23.     Loop Until i = 1
  24. End Sub


 
Et il bloque à cette endroits  
selection.Find(What:="TLSSYP", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
pour quelle raison?
 
je vous remercie de votre aide

Reply

Marsh Posté le 13-04-2010 à 11:42:55   

Reply

Marsh Posté le 14-04-2010 à 11:50:13    

j'ai trouvé une autre solution et elle fonctionne bien
 
Sub autre_test()
 
Sheets("Montants facturés par carte" ).Select
With Worksheets("Montants facturés par carte" ).Range("e:e" )
    Set c = .Find("TLSSYP", LookIn:=xlValues)
         
    If Not c Is Nothing Then
         
        Do
            Cells(c.Row, c.Column - 4) = "=VLOOKUP(RC[4],Codex!C:C[2],2,FALSE)"
            c.Value = Cells(c.Row, c.Column - 4)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
    End If
     
    Columns("A:A" ).ClearContents
     
End With
 
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed