ou est le bug ?

[manwholooklikedude]

Bonjour les cops, ça baigne ?

j'ai une macro que voici, elle n'est certainement pas optimisée mais en gros elle va chercher des infos dans un classeur et les colle dans un autre avec l'ajout d'une recherchev

Mais elle bugue et je ne comprend pas pourquoi.... Si quelqu'un voit le truc....

Dim derligne As Long
derligne = Range("A65536").End(xlUp).Row 'trouve la dernière ligne remplie

    Cells.Select
    Selection.ClearContents ' RAZ
    
    Dim wb As Workbook, classeursource As Workbook
For Each wb In Workbooks
    If wb.Name Like "*appro*" Then Set classeursource = wb
Next wb 'regarde si un classeur contenant le mot appro dans le titre est ouvert (extraction)


'copie le détail appro :
    classeursource.Activate
    Range("C5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
'colle dans la feuille
    Windows("BDC MAGASIN.xls").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Localisation"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],MAPU!C[-9]:C[-1],9,FALSE)"
    Selection.AutoFill Destination:=Range("J2:J" & derligne), Type:=xlFillDefault

Merci d'avance

 

[Raja]

Re : ou est le bug ?

Bonsoir,

Peux-tu nous dire où est-ce qu'elle bug et quel est le message de déboggage ? Nous avons besoin de précisions ?

 

[wilfried_42]

Re : ou est le bug ?

bonjour

à première vue, je n'ai pas tout regardé, mais tu as deja un bug ici

    Range("C5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select

tu selectionnes une ligne et ensuite une colonne mais seule la colonne reste selectionnée
à tester mais çà doit selectionner le bloc

Range("C5",cells(Range("C5").end(xldown).row,Range("C5").end(xltoright).column)).select

Edit : Bonjour Raja

 

[manwholooklikedude]

Re : ou est le bug ?

Merci de vos réponses,

Je sais que c'est pas trés précis mais comme c'est des trucs du boulot je peux pas trop les répandre sur le net....désolé

Par contre un autre bug se situe à la fin de la macro: la formule vlookup ne s'étend pas jusqu'à la fin des lignes remplies, elle remplit uniquement la 1ère cellule:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],MAPU!C[-9]:C[-1],9,FALSE)"
    Selection.AutoFill Destination:=Range("J2:J" & derligne), Type:=xlFillDefault