Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Regrouper cellules non vides non adjacentes...

4 réponses
Avatar
yves
Bonjour,

Tableau comprenant plusieurs colonnes avec des cellules vides et non
vides...
Je cherche un code qui me permette de regrouper colonne par colonne les
cellules non vide de chaque colonne
en partant de la 1ère ligne....
Merci a tous de votre aide
Yves

4 réponses

Avatar
JB
Bonsoir,

http://boisgontierjacques.free.fr/pages_site/sommeprod.htm#ListeSansVide" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://boisgontierjacques.free.fr/pages_site/sommeprod.htm#ListeSansVide

JB
http://boisgontierjacques.free.fr

On 7 mar, 19:39, "yves" wrote:
Bonjour,

Tableau comprenant plusieurs colonnes avec des cellules vides et non
vides...
Je cherche un code qui me permette de regrouper colonne par colonne les
cellules non vide de chaque colonne
en partant de la 1ère ligne....
Merci a tous de votre aide
Yves


Avatar
MichDenis
Pour faire disparaître les cellules vides de chaque
colonne dans ta plage de cellules

Adapte la plage selon ton application
'---------------------------------
Sub test()
Dim Colonne As Range
On Error Resume Next
For Each Colonne In Range("A1:E10") 'à adapter
Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp)
Next
End Sub
'---------------------------------



"yves" a écrit dans le message de groupe de discussion :

Bonjour,

Tableau comprenant plusieurs colonnes avec des cellules vides et non
vides...
Je cherche un code qui me permette de regrouper colonne par colonne les
cellules non vide de chaque colonne
en partant de la 1ère ligne....
Merci a tous de votre aide
Yves
Avatar
MichDenis
J'ai omis le mot Columns dans la procédure :

Sub test()
Dim Colonne As Range
On Error Resume Next
For Each Colonne In Range("A1:E10").Columns
Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp)
Next
End Sub




"MichDenis" a écrit dans le message de groupe de discussion :

Pour faire disparaître les cellules vides de chaque
colonne dans ta plage de cellules

Adapte la plage selon ton application
'---------------------------------
Sub test()
Dim Colonne As Range
On Error Resume Next
For Each Colonne In Range("A1:E10") 'à adapter
Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp)
Next
End Sub
'---------------------------------



"yves" a écrit dans le message de groupe de discussion :

Bonjour,

Tableau comprenant plusieurs colonnes avec des cellules vides et non
vides...
Je cherche un code qui me permette de regrouper colonne par colonne les
cellules non vide de chaque colonne
en partant de la 1ère ligne....
Merci a tous de votre aide
Yves
Avatar
yves
Merci beaucoup, cets exactement ce que je cherchais sous forme de code...


"yves" a écrit dans le message de
news:
Bonjour,

Tableau comprenant plusieurs colonnes avec des cellules vides et non
vides...
Je cherche un code qui me permette de regrouper colonne par colonne les
cellules non vide de chaque colonne
en partant de la 1ère ligne....
Merci a tous de votre aide
Yves