Virer les lignes vides
Bonsoir,
Je récupère dans une nouvelle feuille le résultat de calcul
Je fais ensuite un collage valeurs (pour écraser les formules)
Quand je fais un export au format .csv il me remplace les lignes vides par des ";"
Je fais un tri par valeur pour rejeter les lignes vides en dernier mais elles sont quand même exportées
Comment détecter et inhiber les lignes avant mon export ?
Merci d'avance
Salut Rémi,
Ta demande n'est pas très claire. Supprimes-tu les lignes vides d'un fichier Excel avant l'exportation ?
Un début de piste dans le fichier ci-joint ??
Autrement fourni-nous un fichier exemple.
A te relire.
Merci Yvouille mais dans mon cas ca marche pas
avant il y avait des formules
la zone se remplissait si la condition vrai était remplie
le collage avec valeur laisse une trace dans les cellules "vides"
je joins un exemple
dan la feuille Plusformule les lignes 46 et 47 apparaissent vierge
mais en exportant en .csv séparateur ";" il ressort des ;
(mon export réel porte sur 3000 lignes et ce sont évidement pas toujours les mêmes qui sont vides,
sinon je ferai un tri...)
si tu as une idée...
Bonsoir
Avec ce Code qui supprime les lignes lorsque la valeur en colonne D n'est pas numérique
j'ai mis D2:D100, mais, tu peux mettre D2:D1000 ou autre dans le code
Cordialement
Bonsoir,
merci mais cela marche que partiellement.
il faut lancer une dizaine de fois la macro pour purger les 3000 lignes
pas grave je vais faire autrement
si le résultat de la formule n'est pas supérieur à zero j'écris "S" et je vais supprimer tous les lignes contenant S
merci de ton aide
bonne continuation
Bonjour,
Essaie avec ce code
Sub SupprimeNonNumerique()
Dim i As Long
For i = Range("D" & Rows.Count).End(xlUp).Row To 2 Step -1
If IsNumeric(Range("D" & i)) = False Then
If Range("D" & i).HasFormula = True Then Rows(i).Delete
End If
Next
End SubAmicalement
Merci pour votre aide mais rien ne marche !
dégouté
même en pointant chaque ligne vide avec un S puis en masquant les autres pour supprimer tout S
à l'export j'ai plein de ;;;;;;;;;;;;;;;;
Merci à tous de pas m'abandonner
Banzai ca marche pas
erreur : With Sheets("plus formule")
mais j'ai trouvé sur internet
Sub test()
Dim X As String, Sh As Worksheet, DerLig As Long
X = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False
Set Sh = Worksheets("Export (2)") 'Nom de la feuille à adapter
With Sh
'Plage e1:e2 : Plage critère pour filtre élaboré
.Range("e1") = ""
.Range("e2").Formula = "=COUNTA(A2:d2)=0"
With .Range("A:D") 'Plage sur lequel se fait le filtre
DerLig = .Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End With
With .Range("A1:D" & DerLig)
.AdvancedFilter xlFilterInPlace, Sh.Range("e1:e2")
On Error Resume Next
.Offset(1).Resize(.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
.Range("e2").Formula = ""
.ShowAllData
End With
Application.Calculation = X
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
là ca marche
mais reste
les ;;;;; qui s'exportent quand meme
et à enlever les message d'avertissements :
* "un fichier toto.xlsm existe déjà voulez-vous le remplacer" ?
* "les feuilles sélectionnées peuvent contenir des données. Pour supprimer définitivement les données, cliquez sur supprimer"
Finissez bien l'année....
-- 31 Déc 2010, 16:11 --
Salut,
bon j'ai trouvé comment enlever les message d'alerte
Application.DisplayAlerts = False ' enlève message d'alerte si fichier déjà existant
Reste à enlever ces cailles de ";"
Si je fais un "Crtl+Fin" je vais bien sur la dernière cellule de chiffre
Comment supprimer les lignes suivantes sachant que le tarif ne fait pas forcement le même nombre de ligne ?
Mon réveillon dépend de vos réponses.....
a+
Re,
Je t'ai proposé quelque chose. As-tu essayé ?
A te relire
Bonjour Dan,
oui bien sûr !
cela ne fonctionne pas mais, comme indiqué dans le forum, j'ai trouvé la solution
En revanche, le problème qui demeure c'est d'exporter en .csv (avec ";") que la plage concernée !!
Merci pour tout
Meilleurs vœux à tous
-- 01 Jan 2011, 21:02 --
Ouf, c'est enfin bon
La suppression des lignes vides et l'export que des lignes renseignées
Bonne continuation
Edit dan : Fil cloturé