Remonter valeurs si cellule vide sans supprimer colonne
sormick
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
J'ai plusieurs valeurs inscrites dans la colonne A
Parfois il m'arrive d'effacer une valeur au milieu de la liste de valeurs.
ce qui fait par exemple que de la cellule a1 à a7 il y a des valeurs.
la cellule a8 est vide et ensuite il y a des valeurs de a9 à a13 .
comment faire pour remonter ces valeurs qui sont de a9 à a13 jusqu'à a8 à a12.
sans supprimer de colonnes?
Je veux uniquement remonter ces valeurs pour ne pas qu'il y ait de cellules vides sans toucher à la mise en forme
J'ai plusieurs valeurs inscrites dans la colonne A
Parfois il m'arrive d'effacer une valeur au milieu de la liste de valeurs.
ce qui fait par exemple que de la cellule a1 à a7 il y a des valeurs.
la cellule a8 est vide et ensuite il y a des valeurs de a9 à a13 .
comment faire pour remonter ces valeurs qui sont de a9 à a13 jusqu'à a8 à a12.
sans supprimer de colonnes?
Je veux uniquement remonter ces valeurs pour ne pas qu'il y ait de cellules vides sans toucher à la mise en forme
4 réponses
-
Bonjour
Sans macro, je ne vois pas, avec macro, un début de réponse
https://www.cjoint.com/?3BquAFg7NlM
Cdlmnt-
Bonsoir,
Ce n'est pas du tout ce que je souhaite faire.
Par exemple dans votre tableau dans la colonne Q il y a la cellule q3 et q4 qui sont vides.je voudrais que les valeurs qui sont en dessous de Q3 et Q4 qu'elles remontent pour qu'au contraire il n'y ait aucune cellule vide dans cette colonne mais je souhaite le faire sans supprimer la colonne .
Est ce possible?
et oui je souhaite le faire avec un code vba bien sûr si c'est possible.
je ne sais pas si je me suis bien exprimé sur mes souhaits
-
-
Désolé, je me suis un peu mélangé les lignes et les colonnes
est ce que ça va mieux ?
https://www.cjoint.com/?3BqvA6FAMAw
Cdlmnt-
-
j'ai trouvé ce code vba:
Dim rng As Range, Cell As Range
Set rng = Range("a1:a30")
For Each Cell In rng
If Cell.Value = "" Then
Cell.SpecialCells(xlCellTypeBlanks).Delete (xlShiftUp)
End If
Next
ça a l'air de bien fonctionner par rapport à ce que je souhaite
est ce ça ne changera pas ma mise en forme des cellules et tableau?
-
-
Ton code intégré à la procédure Worksheet_BeforeDoubleClick
L'exécution de la macro se fait par un double-clic en ligne 1
https://www.cjoint.com/?3Bqwl5CV4ot
Cdlmnt -
