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

[Zerife]

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

 

[xUpsilon]

Bonjour,

As-tu regardé dans les variables locales la valeur de rngTrouve lorsque ça plante ?

Bonne continuation

 

[Zerife]

rngTrouve = Nothing

 

[xUpsilon]

Voilà, donc le problème vient de là

Set rngTrouve = .Columns("AZ:AZ").Find("*", After:=.Range("AZ1"), searchdirection:=xlPrevious, LookIn:=xlValues)

Quel est le but de cette ligne ?

 

[Zerife]

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,

 

[xUpsilon]

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

 

[Zerife]

faut lancer avant cela les macro ajouter_feuille_horaire et la macro ajouter_feuille_jour

sorry j'ai zapé de vous envoyer le fichier avec tous les onglets personnes

 

[Zerife]

Ci joint le fichier avec les onglets personnes

 

[xUpsilon]

Re,

Ok ! Et du coup tout doit aller se mettre dans AZ:BC de la feuille "REF" ?

 

[Zerife]

tout doit aller se mettre dans l'onglet "ImportDV" (lui même créé par la macro) en colonne A1

 

[xUpsilon]

Tu les exécutes depuis où toutes ces macros ? Je vois pas de boutons

 

[Zerife]

depuis affichage / macro / afficher les macro

 

[xUpsilon]

Re,

Est-ce que comme ceci ça va ?

La macro s'appelle Rassembler.

Bonne continuation

 

[Zerife]

Merci pour ton retour,

message erreur : Indice n’apparaît pas pour la sélection
en ligne derLig = Worksheets("EVImport").Range("A1").End(xlDown).Row

 

[Zerife]

l'erreur persiste ....