Problème compatibilité macro excel 2003 / 2010

Bonsoir à toutes et à tous,
Cela fait plusieurs jours que je cherche la solution mais je ne m'en sors pas.
J'ai créé grace à des connaissances sommaires en vba un fichier de création et de demande de DUE (déclaration unique d'embauche) au sein de la société dans laquelle je travaille.
Mais voilà nous sommes passés à excel 2010 et le fichier créé sous excel 2003 ne fonctionne plus.... !
En fait le problème vient quand on envoie les due (onglet DUE EXPORT -> Envoyer par mail ces DUE)
La macro bloque sur ces lignes :

Code:

---

1 2	Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete

---

Je peux vous envoyer le fichier si vous le souhaitez.
Quelqu'un pour m'éclairer ?
un grand merci à vous pour votre aide
Anne Lise

Bonjour,
Tu dis que la macro bloque sur ces lignes, mais encore.
Qu'est-ce qui bloque ?
Reçois-tu un message d'erreur et si oui lequel ?
Ces instructions signifient qu'il faut sélectionner les cellules vides de la sélection et ensuite de supprimer les lignes entières des cellules sélectionnées.
C'est vraisemblablement la sélection qui est mal faite

Bonjour,
Je vais de surprise en surprise, en effet l'erreur revoie un message d'erreur "pas de cellules correspondantes" mais lorsque j'exécute la macro en pas à pas détaillé, elle fonctionne sans problème !!
Je n'y comprends plus rien !!
Merci de votre aide
Anne Lise

Code:

---

1 2 3 4 5 6 7 8 9 10

Sheets("DUE export").Select Application.GoTo Reference:="plage_dueafaire" Selection.Copy Sheets("Récap DUE et PAYES").Select Application.GoTo Reference:="deb_base_recappayes" Selection.Insert Shift:=xlDown Application.GoTo Reference:="avirer_recappayes2" Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete

---

Bonjour,
Le message Pas de cellules correspondantes signifie dans le cas qui nous occupe qu'il n'y a pas de cellules vides dans la zone de sélection, soit la plage nommée avirer_recappayes2.
Tout au moins si le message d'erreur se situe bien à l'instruction de la ligne 9

Code:

---

Selection.SpecialCells(xlCellTypeBlanks).Select

---

Le message d'erreur se situe bien à cette ligne en effet.
Mais le problème est bien qu'il y a au moins une cellule vide (copie totale d'un tableau avec une ligne de titre vide + d'autres cellules vides possibles).
Ce que je ne comprends pas c'est que la macro fonctionne en pas à pas détaillé mais pas en intégralité quand je la lance.
Merci de votre réponse et votre aide
Anne Lise

Bonjour,

Citation:

---

Envoyé par alf62000

Ce que je ne comprends pas c'est que la macro fonctionne en pas à pas détaillé mais pas en intégralité quand je la lance.

---

C'est en effet curieux sauf si les zones "deb_base_recappayes" et "avirer_recappayes2" ne sont pas toutes les deux sur la feuille Récap DUE et PAYES.

En VBA, il faut proscrire les Select, Selection, Activate et...
Par exemple : Au lieu d'écrire

Code:

---

1 2 3 4

Sheets("db").Select Application.GoTo Reference:="maZone" Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete

---

Il vaut mieux

Code:

---

Sheets("db").Range("maZone").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

---

C'est plus propre, plus sûr, plus rapide.

Merci pour ce retour, j'ai enlevé comme indiqué toutes les "fioritures", mais malheureusement ça ne fonctionne toujours pas...
je commence à désespérer.
Quoi qu'il en soit merci à vous
Anne Lise

Bonjour,
Joins ton fichier à la discussion.

En PJ le fichier.
Il s'agit du bouton de contrôle "envoyer par mail ces DUE" dans l'onglet "DUE export" qui lance la macro qui ne fonctionne pas.
Merci à vous
Anne Lise

Bonjour,
Désolé mais j'ai regardé la procédure en question qui comporte près d'une centaine de lignes de code et c'est loin d'être nettoyé comme vous l'avez dit.
Un simple exemple

Code:

---

1 2 3 4 5 6 7 8 9

Application.GoTo Reference:="plage_dueafaire" Selection.Copy Sheets("Récap DUE et PAYES").Range("deb_base_recappayes").Insert Shift:=xlDown Range("avirer_recappayes2").SpecialCells(xlCellTypeBlanks).EntireRow.Delete ActiveWindow.SmallScroll Down:=-1 ActiveSheet.Range("plage_recap").AutoFilter Field:=11 ActiveSheet.Range("plage_recap").AutoFilter Field:=12 ActiveSheet.Range("plage_recap").AutoFilter Field:=13 ActiveSheet.Range("plage_recap").AutoFilter Field:=14

---

Le range que j'ai mis en évidence en rouge n'est attribué à aucune feuille alors que cette plage ou cellule est de portée Feuille.
C'est plein d'ActiveSheet, ActiveWindows de Select, Activate etc...
De plus il est important de préciser la feuille mais aussi le classeur d'un objet au risque d'écrire ou de lire sur la feuille active surtout qu'à un moment donné la code fait un export vers un classeur Temporaire.
Il faut franchement revoir l'ensemble en travaillant avec des variables Objets déclarées et assignées en début de procédure.
Cela facilite la maintenance et surtout rends l'application pérenne.
Pour tout nettoyer et rendre cela lisible, il y en a pour un bout de temps.
Cela dépasserais largement le temps que j'accepte de consacrer pour une aide.

Merci Corona, je vais tenter d'avancer encore
Cordialement
Anne Lise