2 lignes sur une ligne et supprimer une ligne sur 2

Résolu/Fermé

ray23bulls Messages postés 5 Date d'inscription dimanche 25 avril 2021 Statut Membre Dernière intervention 27 avril 2021 - 25 avril 2021 à 11:54
ray23bulls Messages postés 5 Date d'inscription dimanche 25 avril 2021 Statut Membre Dernière intervention 27 avril 2021 - 27 avril 2021 à 19:07

Bonjour,
Dans un tableau j'ai 60 lignes. Je voudrais regrouper 2 lignes sur seule ligne et supprimer une ligne sur deux du coup.
Merci pour votre aide.

A voir également:

2 lignes sur une ligne et supprimer une ligne sur 2
Comment supprimer une page sur word - Guide
Aller à la ligne excel - Guide
Hors ligne instagram - Guide
Vente en ligne particulier - Guide
Partage de photos en ligne - Guide

4 réponses

Réponse 1 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 avril 2021 à 15:40

Bonjour,

En vba

Faire Alt F11 sur la feuille concernée pour accéder au module de la feuille.

se déclenche au double clic sur la cellule concernée

Mettre ce code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne
ActiveCell = Target.Value & vbLf & Range("A" & Target.Row + 1).Value '2 lignes dans la même cellule
 Rows(Target.Row + 1 & ":" & Target.Row + 1).Delete Shift:=xlUp 'supression ligne
  End If
End Sub

voilà

Réponse 2 / 4

ray23bulls Messages postés 5 Date d'inscription dimanche 25 avril 2021 Statut Membre Dernière intervention 27 avril 2021
25 avril 2021 à 18:42

Bonsoir,
Merci pour votre aide.
Mais ce n'est pas exactement ce que je souhaite.
Pour mieux me faire comprendre, je vous joins un fichier exemple. https://www.cjoint.com/c/KDzqNRoH2W2
L'onglet feuil1 est mon document (je n'ai mis que 4 lignes mais j'en ai jusqu'à 60), l'onglet feuil2 est ce que je souhaiterais.
Merci pour votre aide.
Cordialement

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 avril 2021 à 19:05

se déclenche au double clic:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne
Worksheets("feuil 1").Range("A" & Target.Row + 1 & ":D" & Target.Row + 1).Copy _
    Destination:=Worksheets("feuil 1").Range("E" & Target.Row)
    Rows(Target.Row + 1 & ":" & Target.Row + 1).Delete Shift:=xlUp 'supression ligne
End If
End Sub

@+ Le Pivert

Réponse 3 / 4

ray23bulls Messages postés 5 Date d'inscription dimanche 25 avril 2021 Statut Membre Dernière intervention 27 avril 2021
25 avril 2021 à 19:26

Merci!
Si j'ai bien compris, je dois double cliquer sur chaque ligne que je garde?
Bien cordialement

Réponse 4 / 4

ray23bulls Messages postés 5 Date d'inscription dimanche 25 avril 2021 Statut Membre Dernière intervention 27 avril 2021
25 avril 2021 à 19:42

De plus, y a t il possibilité d'enregistrer cela comme une macro?
PS : je ne suis pas du tout expert....
Merci

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 avril 2021 à 20:58

Voilà un exemple:

https://www.cjoint.com/c/KDzs5q2Grp1

@+ Le Pivert

ray23bulls Messages postés 5 Date d'inscription dimanche 25 avril 2021 Statut Membre Dernière intervention 27 avril 2021 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
27 avril 2021 à 19:07

Merci mille fois.

Discussions similaires

Statut « en ligne » alors que non

Que veut dire "correspondant occupé" lors d'un appel ?

On me voit connecté sur facebook alors que je n'y suis pas

Ligne occupée : pourquoi mon téléphone sonne occupé ?

En ligne sur Messenger alors que non

Discussions similaires

Newsletters