Erreur Visual Basic

Bonjour,

Je souhaite executer l'écriture suivante mais je ne sais pas ou se trouve mon erreur.

Sub pro()
'
' pro Macro
' Macro enregistrée le 24/11/2010 par r393671
'

'
    Windows("Projet1.xls").Activate
    Range("A6:G29").Select
    Selection.Copy
    Windows("Planning global.xls").Activate
    Rows("6:6").Select
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown

    Dim Cel_vide As Range
Dim ad_cel As Byte

    For Each Cel_vide In Range('A6:G29')
        If Cel_vide.Value = '' Then
            ad_cel = Cel_vide.Row
            Rows(ad_cel).Delete
        End If
    Next Cel_vide
End Sub

Merci,

Cdlmt

Bonjour

D'après ce que j'ai cru comprendre

Tu veux copier une zone d'un classeur vers un autre ?

Ensuite tu veux effacer la ligne si entre la colonne A et la colonne G il y a une cellule vide

Si je me trompe fais le savoir

Pour effacer il vaut mieux commencer par la fin de la zone et remonter

Dans l'attente de tes explications

Bonjour,

Il manque " dans la ligne :

If Cel_vide.Value = '' Then

Il faut ...= "" Then...

Quel est le message de l'erreur ? Il se peut que projet1 ou planning global soit fermé. Il y a deux fois Rows("6:6").Select.

A+

C'est exactement ca Banzai64.

Je souhaite copier des données d'un classeur vers un autre puis ensuite supprimer les lignes vides.

-- 24 Nov 2010, 16:39 --

Voici le fichier dans lequel je souhaite que les données correspondantes au Projet 1 apparaissent au desous du titre "Projet 1" sans que des cellules vides n'apparaissent. Ainsi les données du Projet 1 apparaiteront avant celles du projet 2.

Merci,

Re

Un essai a tester

Voici le fichier que je souhaite obtenir

Bonsoir

A essayer

Il faut que la source soit ouverte