Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Déplacer un groupe de cellules

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite un beau WE (pas trop chaud) 🙂

Comme l'indique le titre du fil, je n'arrive pas à réaliser mon besoin : Déplacer un groupe de cellules

1 - déplacer les cellules Col B qui contiennent un n° de téléphone en colonne A au niveau des cellules col B qui contiennent le mot date,
2 - supprimer les lignes des cellules déplacées (cellules col B devenues vides).

Je cherche depuis un bon moment mais j'ai pas trouver le bon code pour l'instant.

Auriez-vous le bon code ?
Je joins un fichier test avec le résultat attendu.

Un grand merci comme d'habitude,
Entre temps, je continue mes recherches et tests.

Amicalement, lionel 🙂
 

Pièces jointes

Dernière édition:
Solution
Bonjour Lone-wolf, Robert,

Quel plaisir de te revoir Lone-wolf 🙂

Comme je le disais cette macro est très rapide :
VB: 
Sub Restructurer()
Dim tablo, resu(), i&, n&
With ActiveSheet 'à adapter au besoin
    tablo = .Range("B1:B" & .Cells.SpecialCells(xlCellTypeLastCell).Row).Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    ReDim resu(1 To UBound(tablo), 1 To 2)
    For i = 1 To UBound(tablo)
        n = n + 1
        If tablo(i, 1) Like "Expediteur*" Then resu(n, 1) = tablo(i, 1): i = i + 1
        resu(n, 2) = tablo(i, 1)
    Next
    '---restitution---
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[A1]
        If n Then .Resize(n, 2) = resu
        .Offset(n).Resize(Rows.Count - n - .Row + 1...
Trier par date Trier par votes
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Comptage du nombre de cellules non vides, par groupe
Réponses
10
Affichages
145
sylvanu
D
  • Question Question
XL 2021 Déplacer un saut de page (manuel ou pas)
Réponses
4
Affichages
239
vgendron
  • Question Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
603
alexga78
A
  • Résolu(e)
XL 2021 Compter le nombre de cellules qui contiennent la date d'aujourd'hui
2
Réponses
17
Affichages
1 K
job75
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
91
AtTheOne
A
  • Question Question
Autres Copie avec incrémentation de cellules de type =$A$nn
Réponses
6
Affichages
97
sylvanu
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
619
Usine à gaz
C
  • Question Question
XL 2010 Trier des lignes par nombre de mots pertinent
Réponses
3
Affichages
659
crocrocro
C
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
349
zendb
Z
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
401
Leo98
L
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
394
jeff1494
E
  • Question Question
XL 2019 Incrémentation avec saut de lignes
Réponses
7
Affichages
626
EUPH974
E
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
562
Usine à gaz
  • Question Question
Microsoft 365 Selon de cellule : je n'ai pas la main
Réponses
3
Affichages
515
Dranreb
S
  • Résolu(e)
Microsoft 365 Gestion flotte automobile, feuille 1 "accueil" gestion des infos, feuille 2 "tableau" pour consultation"
2
Réponses
17
Affichages
2 K
Phil69970
  • Question Question
XL 2021 formule pour modifier le CONTENU de certaines cellules
2
Réponses
23
Affichages
1 K
Usine à gaz
W
  • Question Question
XL 2016 Supprimer une image.JPG puis Intégrer une nouvelle.JPG au-dessus du groupe de cellules A13:A14
Réponses
4
Affichages
531
Webperegrino
W
  • Question Question
Microsoft 365 Filtre direct sans formuler
Réponses
11
Affichages
520
patricktoulon
T
  • Résolu(e)
XL 2010 VBA - Copier (sans coller) une cellule ou un groupe de cellules avec le bouton droite de la souris
Réponses
3
Affichages
580
Compte Supprimé 979
C
  • Résolu(e)
Autres Combinaison de formules : =SI(NB.SI(I3;"*Tel1 *");"Tel1 ";"") et formule "=33&DROITE(I3;9)
Réponses
2
Affichages
409
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…