Bonjour à tous,
Voilà mon pbm:
J'avais un macro qui marchait super bien en excel 2003 mais j'ai du sauvegarder mon fichier en excel 2010 avec prise en charge de macros (xlsm). Depuis j'ai un pbm : msg erreur : Erreur execution "1004" : la methode insert de la classe range a échoué"
Voici la macro qui doit rechercher dans une ligne de la colonne "R" si une valeur à été notée et la copier pour l'inserer dans la feuille "archives". Toutes les lignes bien sur n'ont pas de valeur renseignées.
Sub copierresultatnonnul()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("archives").Activate
Col = "r"
NumLig = 1
With Sheets("insersion chimio")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 2 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("archives").Cells(NumLig, 1).Insert Shift:=xlDown
End If
Next
End With
Sheets("insersion chimio").Activate
Call effaceretenregistrer
End Sub
Auriez vous une idée d'ou cela peut venir ?
Si je peux abuser un peu, est-ce que quelqu'un pourrait "m'accélérer" la macro, car il prend un temps assez conséquent pour se réaliser (quand ça marchait) ?
Merci d'avance
Zoub