Excel VBA suppression de ligne vide
Résolu/Fermé
supermoun
Messages postés
38
Date d'inscription
dimanche 10 septembre 2006
Statut
Membre
Dernière intervention
26 juillet 2009
-
16 sept. 2006 à 16:13
zertree - 21 août 2013 à 09:35
zertree - 21 août 2013 à 09:35
A voir également:
- Excel VBA suppression de ligne vide
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Forcer suppression fichier - Guide
- Site de vente en ligne particulier - Guide
- Formule excel - Guide
2 réponses
Kobaya
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
214
16 sept. 2006 à 17:52
16 sept. 2006 à 17:52
bonjour supermoun,
je te propose ce code, à adapter à tes données :
je te propose ce code, à adapter à tes données :
Sub SupprLignesVides()
' désactiver le rafraîchissement de l'écran pour accélérer le traitement
Application.ScreenUpdating = False
' désactiver les alertes pour empêcher l'affichage
' des messages du genre "Voulez-vous etc."
Application.DisplayAlerts = False
' se placer sur la dernière ligne contenant des données
Range("A65536").End(xlUp).Select
Do
If IsEmpty(ActiveCell) Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop Until ActiveCell.Row = 1
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
supermoun
Messages postés
38
Date d'inscription
dimanche 10 septembre 2006
Statut
Membre
Dernière intervention
26 juillet 2009
7
20 juil. 2007 à 18:32
20 juil. 2007 à 18:32
Excel VBA suppression de ligne vide
17 sept. 2006 à 12:17
j'ai bien reçu le message mais je me suis mal exprimé.
C'est dans le cas ou l'on fait plusieurs fois entrée dans le textbox.
Si vous avez la solution ?
A+
17 sept. 2006 à 22:08
Function PurgerChaine(Chaine As String) As String ' Chaine = contenu de la textbox Dim strTampon As String Dim intNbCar As Integer Dim intC1 As Integer Dim intC2 As Integer strTampon = Chaine Do intNbCar = Len(strTampon) ' dernier caractère de la chaîne intC1 = Asc(Mid(strTampon, intNbCar, 1)) ' avant-dernier caractère de la chaîne intC2 = Asc(Mid(strTampon, intNbCar - 1, 1)) ' la passage à la ligne se traduit par la succession ' des caractères Chr(10) et Chr(13) If intC1 = 10 And intC2 = 13 Then ' donc si on les détecte en fin de chaine, on les supprime strTampon = Left(strTampon, Len(strTampon) - 2) End If ' la boucle va s'effectuer tant qu'elle trouvera le couple ' Chr(10) et Chr(13) en fin de chaîne Loop Until intC1 <> 10 And intC2 <> 13 ' la fonction PurgerChaine() renvoie le contenu ' de la TextBox purgé des retour-chariots intempestifs PurgerChaine = strTampon End Functionfais appel à cette fonction avant de transférer le contenu du textbox dans la feuille.j'ai commenté le code, mais si tu as des questions, n'hésite pas :-)
19 sept. 2006 à 20:36
Merci encore pour ce partage du savoir.
A+
21 août 2013 à 09:35
Très utile :)