XL 2019 Si cellule vide alors...on copie la cellule en regard de la colonne suivante

[thespeedy20]

Bonjour à tous

J'ai un tableau avec des noms comme celui-ci

et j'aimerais que le tableau soit comme celui-ci

Je parviens à transférer les noms de la nom1 et pour le reste je cale....

Merci pour votre aide

OLi

 

[mapomme]

Bonsoir @thespeedy20,

Un essai dans le fichier joint.

Sub col_vide()
Dim t, i&, j&, k&

   t = Range("a1:c10")
   For i = 2 To UBound(t)
      For k = 1 To UBound(t, 2)
         If t(i, k) = "" Then Exit For
      Next k
      For j = k + 1 To UBound(t, 2)
         If t(i, j) <> "" Then t(i, k) = t(i, j): t(i, j) = "": k = k + 1
      Next j
   Next i
   Range("a1:c10") = t
End Sub

 

[chris]

Bonjour à tous

Une solution par PowerQuery, intégré à Excel
Actualiser par Données, Actualiser Tout

 

[soan]

Bonsoir @thespeedy20, le fil,

je propose le fichier Excel ci-dessous.

attention : avant de cliquer sur le bouton "Transfert",
regarde d'abord C12 ! 😉

la dernière ligne est détectée automatiquement,
même si tu ajoutes des données.

soan

 

[mapomme]

Salut @soan 🙂

Dans ta version, tu décales toutes les cellules d'une ligne modifiant ainsi la structure des colonnes après le tableau à compacter.

Si on accepte les décalages des colonnes à droite du tableau à traiter, le code se simplifie :

Sub col_vide()
   Application.ScreenUpdating = False: On Error Resume Next
   Range("a2:c12").SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftToLeft
End Sub

 

[soan]

salut mapomme,

je n'ai d'abord pas compris ton « modifiant ainsi la structure des colonnes
après le tableau à compacter » ; puis j'ai compris que « après », c'est :
« à droite » ; or le tableau de droite, en F1:H10, n'est qu'un exemple du
résultat qui est à obtenir ; normalement, il n'est pas là ; et si tu ouvres
le fichier Excel que j'ai joint dans mon post #4, tu verras que j'ai tout
simplement supprimé ce tableau. (j'ai supprimé aussi la zone de texte)

le plus important : j'ai ajouté un prénom en C12 ; et y'a rien à gauche :
ni en B12, ni en A12 ; ma sub marche aussi si y'a une ligne vide,
comme la ligne 11 ; note bien que même avec cette ligne vide,
ça fait le job jusqu'à la ligne 12, sans s'arrêter en ligne 10.

alors, ton avis ? c'est pas mal, non ? 😉

soan

 

[mapomme]

alors, ton avis ? c'est pas mal, non ?

Oui oui. Ce n'était pas une critique. C'était juste un constat. Comme toi, je pense que dans 90% des cas, il n'y a rien à droite. Dans ce cas, je pense que mon petit de 4 lignes peut faire l'affaire.

 

[Staple1600]

Bonsoir le fil (et un particulier aux connaissances)

Issu de naguère

Sub Tri_Gauche_Droite()
Dim i As Long
Application.ScreenUpdating = False
t = Timer()
'tri les données lignes par lignes de la gauche vers la droite
With Range(Cells(2, 1), Cells(Rows.Count, 3).End(3))
    For i = 1 To .Rows.Count
    .Cells(i, 1).Resize(, 3).Sort Key1:=.Cells(i, 1), Order1:=2, Orientation:=xlLeftToRight
    Next
End With
MsgBox Timer - t
End Sub

Pour le jadis, c'était ici

Tri lignes Gauche-Droite, cherche solution par Array

Bonjour le fil, le forum Je cherche à trier les données de trois colonnes adjacentes (dans cet exemple A,B,C), lignes par lignes mais de la gauche vers la droite. J'ai écrit cette macro (qui fonctionne) Mais j'aimerai pouvoir faire la même chose en utilisant les tableaux (Array) Surtout si le...

www.excel-downloads.com

 

[mapomme]

Bonjour Staple1600 🙂,

Tu profites de chaque confinement pour venir faire un tour ici ? 😀😀😀😀

 

[Staple1600]

Bonsoir mapomme,

Non, je m'amuse à retrouver les fils où je peux tester la différence entre mes 4Go de jadis et mes 8Go de maintenant.
Et si sur la route, je peux aider mon prochain en croisant des vieux de la vieille, alors youpi. 😉

PS: Pendant le confinement, le couvre-feu perdure-t-il?

 

[mapomme]

PS: Pendant le confinement, le couvre-feu perdure-t-il?

Intéressante interrogation, n'est-il pas ?

 

[mapomme]

Non, je m'amuse à retrouver les fils où je peux tester la différence entre mes 4Go de jadis et mes 8Go de maintenant.

Est ce une juste une simple augmentation de RAM, ou bien le processeur -t-il aussi été modifié ?

 

[Staple1600]

Re

J'ai remplacé les barrettes d'origine (2*2) par 2*4
Et je suis deg, la MsgBox indique la même chose que ce que j'indiquais en 2018 (pour ce qui est de mon code)

 

[thespeedy20]

Bonsoir tout le monde,

Merci pour toutes ses propositions...

@soan
si je désire transposer ta macro sur la colonne de K à M, que dois-je changer...?

Je suis entrain de tester toutes les autres propositions...

Encore merci de m'aider

Oli

 

[mapomme]

si je désire transposer ta macro sur la colonne de K à M, que dois-je changer...?

Pour mon code, il suffit de remplacer Range("a1:c10") par : Range("k1:m9999"). Le 9999 doit être supérieur au numéro de la dernière ligne possible du tableau en colonnes K à M.