Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 erreur d’exécution 91 "variable de bloc With non définie"

Zerife

XLDnaute Nouveau
Bonjour,

J'ai un blocage sur une macro, et je ne comprends pas pourquoi ça bloque. J'ai besoin d'aide.

La macro bloque sur la ligne :
DerLignesh = rngTrouve.Row

erreur d’exécution 91 "variable de bloc With non définie"

--------------------------------------------------------------------------------------------------------------
Sub Concatene_EVImport()
Dim sarray
Dim sh As Worksheet, shimp As Worksheet
Dim DerLigne As Long, DerLignesh As Long, rngTrouve As Range

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Sheets.Add.Name = "ImportDV"
Set shimp = Sheets("ImportDV")
sarray = Array("ImportDV", "Base", "REF", "Modele Horaire", "Modele Forfait jour", "Liste des onglets")

For Each sh In ActiveWorkbook.Worksheets
If IsError(Application.Match(sh.Name, sarray, 0)) Then
With sh

DerLigne = shimp.Cells(.Rows.Count, "A").End(xlUp).Row + 1
Set rngTrouve = .Columns("AZ:AZ").Find("*", After:=.Range("AZ1"), searchdirection:=xlPrevious, LookIn:=xlValues)
DerLignesh = rngTrouve.Row
.Range("AZ9:BC" & DerLignesh).Copy
shimp.Cells(DerLigne, 1).PasteSpecial (xlPasteValues)
shimp.Cells(DerLigne, 1).PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
End With
End If
Next sh

With shimp.Range("A11")
.HorizontalAlignment = xlCenter
.MergeCells = False
.Merge
.Value = "synthese salarié horaire"
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

---------------------------------------------------------------
Merci pour votre aide,
Cdl
Zérife
 

Zerife

XLDnaute Nouveau
Le but est que la macro est de copier coller les valeurs des colonnes AZ9 à BC de l'onglet n°1, et dès qu'elle ne trouve plus de valeur passe à l'onglet suivant pour copier coller valeur des colonnes AZ9 à BC etc ...en mettant à la suite les données collées dans une nouvelle feuille "ImportDV"

Ci-joint le fichier test

Merci bcp bcp pour votre aide,
 

Pièces jointes

  • test Modele SUD.xlsm
    207.4 KB · Affichages: 2

xUpsilon

XLDnaute Accro
Re,

Dans le fichier que tu me transmets, il n'y qu'un onglet au début, c'est un peu bizarre.
Tu pourrais faire un fichier exemple qui s'approche plus de la réalité stp ? Avec plus d'onglets exemples par ex ?

Bonne continuation
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…