Regrouper cellules non vides non adjacentes...

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #18848211
Bonsoir,

http://boisgontierjacques.free.fr/pages_site/sommeprod.htm#ListeSansVide

JB
http://boisgontierjacques.free.fr

On 7 mar, 19:39, "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


MichDenis
Le #18848481
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"
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
MichDenis
Le #18848621
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"
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"
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
yves
Le #18848921
Merci beaucoup, cets exactement ce que je cherchais sous forme de code...


"yves" 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



Publicité
Poster une réponse
Anonyme