XL 2016 Dans une colonne décaler des cellules vides vers le bas

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2020

• #2

Bonsoir @berru76,

Essayer le code suivant dans module1 :

VB:

Sub Tasser()
Dim derlig&, t, i&, n&, j&
   Sheets("Inscriptions").Select
   derlig = Cells(Rows.Count, "a").End(xlUp).Row
   t = Range(Cells(4, "c"), Cells(derlig, "c"))
   For i = 1 To UBound(t)
      If t(i, 1) <> "" Then
         n = n + 1
         t(n, 1) = t(i, 1)
      End If
   Next i
   For i = n + 1 To UBound(t): t(i, 1) = Empty: Next
   Range(Cells(4, "c"), Cells(derlig, "c")) = t
End Sub

 

Pièces jointes

• berru76- Decaler- v1.xlsm

  75.8 KB · Affichages: 11

Dernière édition: 10 Octobre 2020

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Octobre 2020

• #3

Bonjour @berru76, mapomme,

oh le gros cachotier ! 1 seule feuille visible sur 58 !!!
sur l'unique feuille visible, la colonne B était cachée !

et cerise sur le gâteau, B2:C3 : vide ! même tes en-têtes sont inconnus !!!
bon, à tout hasard, j'ai quand même complété B2, B3, et C2 ; on sait jamais, hein ?
(explication de C2 en G11 et G12)

fais Ctrl e ➯ travail effectué

bien sûr, vu que tes valeurs en colonne B sont tout à fait aléatoires grâce à la fonction ALEA(), il va de soi qu'elles
ont changé au cours de l'opération, mais tu t'en doutais, non ? sinon, si tu voulais garder exactement les
mêmes valeurs pour chaque Jxx de la colonne C, il faudra bien sûr une autre macro... (je pense quand même que
non, vu que la colonne B était cachée... mais peut-être avais-tu prévu de nous faire la surprise plus tard ? )

fais Alt F11 pour voir la macro, puis revenir sur Excel

à te lire pour avoir ton avis.

soan

 

Pièces jointes

• Decaler.xlsm

  75.4 KB · Affichages: 9

Vote positif 0 Vote négatif

Solution

B

berru76

XLDnaute Occasionnel

• 10 Octobre 2020

• #4

Merci a vous les deux solutions fonctionnent
effectivement j'ai une autre macro tri auquel je vais essayer d'ajouter vos formules pour n'en faire qu'une macro Tri +tasser ou essai
j'ai teste avec Tri +tasser j'ai une erreur de compilation
avec Tri +essai cela fonctionne
Merci a vous

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Octobre 2020

• #5

berru76 à dit:

j'ai teste avec Tri +tasser j'ai une erreur de compilation

Cliquez pour agrandir...

Même pas curieux de savoir d'où peut venir cette erreur ?????

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Octobre 2020

• #6

@mapomme

si, si, bien sûr, le demandeur est curieux de le savoir !
mais il attendait juste que tu viennes l'aider !

soan

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 11 Octobre 2020

• #7

excusez moi si impoli je ne suis pas trop compétant
je vous donne les résultats avec la formule mise a jour
Merci

 

Pièces jointes

• Essai.PNG

  21.5 KB · Affichages: 14
• Tasser.PNG

  31.7 KB · Affichages: 13

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 11 Octobre 2020

• #8

Bonjour @berru76,

Dim n& est la même chose que Dim n As Long

L'erreur de compilation est : « Déclaration existante dans la portée en cours »

Ça se produit car un nom de variable ne peut pas être déclaré plus d'une fois
dans une même sub ; sur la 1ère ligne de la sub, il y a : Dim ... n As Long ;
c'est pour ça que plus bas, la compilation a bloqué (avec raison) sur Dim ... n&

Solution : dans la 2ème ligne Dim, supprime , n& ➯ Dim derlig&, t, i&, j&
avec ça, la compilation sera ok ; de plus, la variable j n'est pas utilisée dans
la suite de la sub, donc tu peux la supprimer aussi ➯ Dim derlig&, t, i&

soan

 

Vote positif 0 Vote négatif