Discussion :

[Mots06]

Bonjour,
Si vous pouviez me sortir le ma galère ...
Ma macro extrait des données lignes par ligne d'un fichier dans un autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
... 'extraction des informations LignePV , colonnes 1 à 4 (présence de données obligatoires)
Do While WbCumul.Sheets(Produit).Cells(2, Col) <> "" 'prend les valeurs tant que toutes les colonnnes où se trouvent potentiellement des mesures n'ont pas été copiées
     WbCumul.Sheets(Produit).Cells(NumCumLigneVide, Col) = wb.Sheets(2).Range(WbCumul.Sheets(Produit).Cells(2, Col) & LignePV).Value
     Col = Col + 1
Loop
...'extraction des informations à lignePV et colonnes suivantes (de Col à Col+11) (présence de données obligatoires)

J'utilise "Col" (Byte) pour me déplacer dans les tableaux (la ligne 2 de WbCumul.Sheets(Produit) contient les lettres des colonnes à extraire de wb.Sheets(2))
Les colonnes 1 à 5 et ?? à la fin de WbCumul.Sheets(Produit) ont toujours des valeurs extraites (?? dépendant du produit et jamais identique) (date et nom produit par exemple)
Comme certaines lignes extraites dans WbCumul.Sheets(Produit) ne contiennent pas toujours des informations (sauf sur les colonnes A à D et ?? à la fin) je souhaite les supprimer
Comme je ne connais pas ?? je pensais faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ColF = Col - 1
Col = 5 'on remet la valeur de la colonne à "zéro"
With WbCumul.Sheets(Produit)
        If WorksheetFunction.CountA(.Range("Cells(NumCumLigneVide,Col):Cells(NumCumLigneVide,ColF)")) = 0 Then WbCumul.Sheets(Produit).Cells(NumCumLigneVide, 1).entire.Row.Delete 'effacer la ligne
End With

Mais même en fixant les valeur de .Cells (".Cells(5, 2): .Cells(5, 3)") j'ai un run-time error 1004 (application defined or objet defined error) en sur le if
Comment faire pour supprimer mes lignes dont les cellules sont vides entre les colonnes 5 et ?? (sans convertir les numéros de colonne en lettre) donc en restant en référence absolue

Merci pour vos propositions (ou correction )

[mat955]

Bonjour,

Un conseil, si tu veux que les forumeurs t'aident et prennent le temps de lire ton message, utilise les balises pour ton code, sinon c'est peu lisible et ça ne donne pas trop envie de lire ce gros pavé...

Si je comprends bien, tu veux copier colonne par colonne les données d'une feuille 1 vers une feuille 2.
Mais avant de faire ça, tu souhaites supprimer les colonnes qui n'ont aucune données ? (aucune données dans toutes la colonnes, ou juste sur la ligne 2 ?)

Si c'est bien le cas, je te conseille de faire ta boucle en commençant par la dernière colonne, tout à droite.
Ainsi, pas besoin d'utiliser un Col-1, que tu supprimer une colonne ou non, tu te décales d'une colonne sur la gauche.

[Mots06]

Bonjour,
Un conseil, si tu veux que les forumeurs t'aident et prennent le temps de lire ton message, utilise les balises pour ton code, sinon c'est peu lisible et ça ne donne pas trop envie de lire ce gros pavé...

Merci pour ta réponse. Désolée, je viens de corriger

Si je comprends bien, tu veux copier colonne par colonne les données d'une feuille 1 vers une feuille 2.
Mais avant de faire ça, tu souhaites supprimer les colonnes qui n'ont aucune données ? (aucune données dans toutes la colonnes, ou juste sur la ligne 2 ?)

C'est presque ça : je prends toutes les informations dont j'ai besoin dans un fichier (wb) et je les copie dans le 2ème fichier (wbCumul). Les premières et dernières colonnes de wbCumul sont forcément remplies par des informations par défaut. Je veux supprimer la ligne que je viens de créer dans wbCumul si les colonnes de cette ligne sont vides. Le "if countA(...)=0" ne fonctionne pas

Si c'est bien le cas, je te conseille de faire ta boucle en commençant par la dernière colonne, tout à droite.
Ainsi, pas besoin d'utiliser un Col-1, que tu supprimer une colonne ou non, tu te décales d'une colonne sur la gauche.

J'aurais aimé éviter la boucle, d'autant que countA (ou Empty ?) peut le faire

[mat955]

La partie de code qui te renvoie une erreur est mal écrite.
Quand tu utilises Range, il ne faut pas mettre de guillemets, sauf si tu fais appel à une référence Excel. Par exemple : Range("B5")
Sinon, pour faire appel à une plage de cellule :

Range(Range1,Range2)

Dans ton cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If WorksheetFunction.CountA(.Range(Cells(NumCumLigneVide,Col),Cells(NumCumLigneVide,ColF))) = 0

Ca ne devrait plus renvoyer d'erreur mais je ne pense pas que ça fera ce que tu souhaites, regarde bien tes deux Cells et à quoi elle font référence, je pense qu'il faut modifier leurs argument Lignes/Colonne pour bien compter les bonnes cellules.

[Mots06]

OK, donc Range n'interprète pas ce qui est entre " (ce qui est logique). Avec le code ci-dessous il devrait donc vérifier que le contenu des cellules de la ligne 7, colonnes de 5 à 15 sont "vides".
J'ai toujours une erreur 1004, même en changeant les variables par des valeurs (des fois que...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If WorksheetFunction.CountA(.Range(Cells(7, 5), Cells(7, 15))) = 0 Then
ou
If WorksheetFunction.CountA(WbCumul.Sheets(Produit).Range(Cells(7, 5), Cells(7, 15)).Value) = 0 Then

CountA ou WorksheetFunction nécessitent-ils des addins ou autre pour fonctionner ? Car il ne semble pas que ce soit le code lui même qui lui pose problème mais une définition (error 1004 (application defined or objet defined error))

Merci

[mat955]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If WorksheetFunction.CountA(.Range(Cells(7, 5), Cells(7, 15))) = 0 Then
ou
If WorksheetFunction.CountA(WbCumul.Sheets(Produit).Range(Cells(7, 5), Cells(7, 15)).Value) = 0 Then

Dans la première ligne, je vois que tu utilises un bloc With car il y a un point devant le Range. Il faut plutôt mettre les points devant les cells, car ce sont bien eux qui appartiennent à la feuille choisie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If WorksheetFunction.CountA(Range(.Cells(7, 5), .Cells(7, 15))) = 0 Then

Et dans la deuxième ligne, tu as un .Value en trop.

CountA ou WorksheetFunction nécessitent-ils des addins ou autre pour fonctionner ? Car il ne semble pas que ce soit le code lui même qui lui pose problème mais une définition (error 1004 (application defined or objet defined error))

Il ne me semble pas, peux-tu me dire quelles références sont activées dans ton fichier ? (Dans la fenêtre VBA, menu Outils >> Références...)

[Mots06]

Dans la première ligne, je vois que tu utilises un bloc With car il y a un point devant le Range. Il faut plutôt mettre les points devant les cells, car ce sont bien eux qui appartiennent à la feuille choisie.

Oh là, il me faut aller reprendre mes connaissances sur l'utilisation de ces '.' J'étais convaincue que le . était nécessaire à chaque niveau.
D'habitude je n'utilise pas de with mais la totalité de ""l'adresse"" wb.sheet().range.cells ça simplifie ma lecture. Perd-on beaucoup de temps à choisir l'un par rapport à l'autre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If WorksheetFunction.CountA(Range(.Cells(7, 5), .Cells(7, 15))) = 0 Then

Maintenant j'ai un run time '428' (object doesn't support the property or method) ... mais sur le "Then" qui était mal écrit. Donc ta réponse est la bonne !!!
Ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If WorksheetFunction.CountA(Range(.Cells(NumCumLigneVide, Col), .Cells(NumCumLigneVide, ColF))) = 0 Then .Cells(NumCumLigneVide, Col).EntireRow.Delete 'effacer le contenu de la ligne

Il ne reste plus qu'à tester l'ensemble de la macro sur tous mes fichiers (et corriger un petit pb de compteur)
Un énorme merci à toi pour ton temps et ton aide

Et dans la deuxième ligne, tu as un .Value en trop.

Ma faute : reste d'un essai

Il ne me semble pas, peux-tu me dire quelles références sont activées dans ton fichier ? (Dans la fenêtre VBA, menu Outils >> Références...)

Tu as raison, ce n'était pas du à ça mais à mes "mauvais points"

[mat955]

Perd-on beaucoup de temps à choisir l'un par rapport à l'autre ?

Le bloc With ne fait pas perdre de temps, il sert à simplifier l'écriture et à rendre le code plus lisible.
Comme tu l'as fait remarquer, ça aurait été lourd de réécrire tout à chaque fois.

Bonne nouvelle si ça fonctionne, n'hésite pas à cliquer sur Résolu.

A bientôt.