Remonter valeurs si cellule vide sans supprimer colonne [Fermé]

Signaler
-
Messages postés
9644
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
3 janvier 2021
-
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

4 réponses

Messages postés
9644
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
3 janvier 2021
2 006
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
Messages postés
9644
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
3 janvier 2021
2 006
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
c'est super!!!! génial on y est presque!!
je souhaiterais simplement une sorte de boucle
du genre si il y a une cellule vide parmis les valeurs
que les valeurs remontent automatiquement.
je vais essayer de le faire je ne sais pas si je vais y arriver.
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?
Messages postés
9644
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
3 janvier 2021
2 006
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
bonjour
j'ai besoin du meme fichier , par ce que j 'ai la meme question ms j'arrive pas a ouvrir votre fichier , est ce que c est possible de le mettre a jour
cordialemnt
Messages postés
9644
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
3 janvier 2021
2 006
Voilà, voilà
https://www.cjoint.com/c/EFjovClu0BU

PS. Lien modifié

Cdlmnt