Excel VBA suppression de ligne vide

supermoun, le samedi 16 septembre 2006 à 16:13:14

Bonjour à tous
Dans un formulaire, j'utilise un textbox qui remplie une
cellule dans une feuille avec l'option Multiline.
Comment faire pour supprimer les ligne vides dans le cas
ou l'on appui plusieurs fois de suite sur la touche entrée.
Merci d'avance.

Répondre à supermoun Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Kobaya, le samedi 16 septembre 2006 à 17:52:23

bonjour supermoun,

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

A+,
Kobaya.

Répondre à Kobaya

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

supermoun, le dimanche 17 septembre 2006 à 12:17:57

Bonjour
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+

Répondre à supermoun

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Kobaya, le dimanche 17 septembre 2006 à 22:08:40

dans ce cas, la fonction PurgerChaine() devrait te convenir

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 Function

fais 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 :-) A+,
Kobaya.

Répondre à Kobaya

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

supermoun, le mardi 19 septembre 2006 à 20:36:28

Essais concluants au niveau du textbox.
Merci encore pour ce partage du savoir.
A+

Répondre à supermoun

2Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

supermoun, le vendredi 20 juillet 2007 à 18:32:41

Excel VBA suppression de ligne vide

Répondre à supermoun

Posez votre question Répondre

Résultats pour Excel VBA suppression de ligne vide

VBA excel insérer une ligne vide (Résolu) Bonjour, Je voudrais en vba excel insérer des lignes à chaque fois qu'une valeur d'une cellule change par rapport à celle du dessus. exemple : il faudrait que j'insére une ligne vide entre 15 et 20, entre 20 et 23, entre 23 et 26.... www.commentcamarche.net/forum/affich-4126535-vba-excel-inserer-une-ligne-vide

[Excel]VBA pour supprimer des lignes vides (Résolu) Je recherche un programme VBA pour supprimer des lignes vides dans une feuille de calcul. Cette feuille contient que des formules qui renvoient des données. J’ai cherché sur le forum ce qui pouvait m’interesser et tout ce que j’ai ne marche pas. J’ai... www.commentcamarche.net/forum/affich-2482577-excel-vba-pour-supprimer-des-lignes-vides

Copier à partir de la premier ligne vide (Résolu) Bonjour, je ne sais pas en VBA comment faire pour selectionner toutes les lignes jusqu'à ce qu' une ligne soit vide.. et comment lui dire de commencer à coller dans un onglet à partir de la premiere ligne vide.. en vous remerciant pour votre... www.commentcamarche.net/forum/affich-8647042-copier-a-partir-de-la-premier-ligne-vide

1 2 3 Suivant

Résultats pour Excel VBA suppression de ligne vide

Sed - Trucs et astucesTrucs et astuces en vrac Substitution Affichage Suppression Espace et tabulation Ligne vide Intervalle régulier Divers Substitution Substituer "foo" par "bar" à chaque ligne Seulement la 1ère occurrence sed 's/foo/bar/' Seulement... www.commentcamarche.net/faq/sujet-6699-sed-trucs-et-astuces

Figer une ligne dans un tableau ExcelPour figer la ligne 1 (par exemple) dans une feuille excel : Sélectionnez la ligne 2, Puis allez dans le menu "Fenêtres" et option "Figer les volets". www.commentcamarche.net/faq/sujet-7684-figer-une-ligne-dans-un-tableau-excel

Sed - Trucs et astuces en vracTrucs et astuces en vrac Substitution Affichage Suppression Espace et tabulation Ligne vide Intervalle régulier Substitution Substituer "foo" par "bar" à chaque ligne sed 's/foo/bar/' # Seulement la 1ère occurrence sed... www.commentcamarche.net/faq/sujet-6612-sed-trucs-et-astuces-en-vrac

1 2 3 Suivant

Résultats pour Excel VBA suppression de ligne vide

Comment supprimer une vidéo sur Youtube.fr ?? (Résolu)Bonjour, Je voudrais supprimer une vidéo sur youtube France, comment faut-il faire ? merci. www.commentcamarche.net/forum/affich-7227120-comment-supprimer-une-video-sur-youtube-fr

Inserstion lignes vides en batch dos (Résolu)Bonjour, J'aimerais savoir comment on peut inserer des lignes vides dans un fichier texte avec un *.bat lorsque l'on voit un mot précis. C'est à dire que je veux que mon batch detecte un mot précis, et que lorsqu'il le voit il... www.commentcamarche.net/forum/affich-6741435-inserstion-lignes-vides-en-batch-dos

EXCEL vba SUPPR lignes quand 0 dans ligne (Résolu)Bonjour, But: Quand, dans la colonne C5:C3580, apparaît un "0" => supprimer les lignes correspondantes. (Je ne vois pas vraiment comment je pourrais détailler plus...) Aucune experience en vba : est-ce que ça serait possible de préciser comment lancer... www.commentcamarche.net/forum/affich-7646769-excel-vba-suppr-lignes-quand-0-dans-ligne

1 2 3 Suivant

Résultats pour Excel VBA suppression de ligne vide

Télécharger DivFixIl est fréquent que lors d'un téléchargement de vidéos ou lors d'un gravage sur CD ou autres supports la vidéo soit corrompue et ne soit copiée que partiellement. De part cette erreur, la vidéo ne peut être lue, donc on doit recommencer dès le... www.commentcamarche.net/telecharger/telecharger-34055770-divfix

1 2 3 Suivant