FORUM MP | Bureautique - Excel : report de cellules

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

report de cellules
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

jean_denis001
Nouveau membre

Inscrit : 11/09/2007
Messages : 4

#142622 Posté le 11/09/07 à 09:55

Bonjour à tous,
Novice en Excel, j\'aimerais reporter plusieurs cellules (une colonne avec des cellules remplies ou vides) dans une autre colonne de la même feuille, en supprimant en ne gardant que les cellules non vides.
J\'espère que je me suis bien exprimé parce que c pas évident.
Merci d\'avance

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#142625 Posté le 11/09/07 à 10:34

Bonjour

pour reporter les cellules dans une autre colonne faire tout simplement la selection des cellules et ensuite faire un coller / copier dans la colonne désirée

pour enlever les cellules vides selectionner les cellules en appuyant sur la touche Ctrl et une fois selectionnées faites Edition / supprimer choisir l'option "décaler les cellules vers le haut"

ou si vous voulez automatiser voilà le code qui va bien

selectionner la zone dans laquelle il faut enléver les cellules vides et lancez ce code
Sub effacer_cell_vides()
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

jean_denis001
Nouveau membre

Inscrit : 11/09/2007
Messages : 4

#142626 Posté le 11/09/07 à 10:41

Je viens de me relire, j'avais fait une petite erreur, je veux bien supprimer les cellules vides pour ne garder que lles "pleines".
En effet RGI, je souhaiterais automatiser cela , mais le probleme c'est que moi et VBA... c'est fait plus que 2!
J'ai donc essayé ce que tu m'a conseillé... mais en vain.
Merci quand même!

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#142628 Posté le 11/09/07 à 10:59

voilà de quoi faire avec les explications en clip

Cliquer ICI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#142630 Posté le 11/09/07 à 11:19

me dire si problème ne pas hésiter
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

jean_denis001
Nouveau membre

Inscrit : 11/09/2007
Messages : 4

#142631 Posté le 11/09/07 à 11:23

Ca marche! Mais le problème c'est que je viens de me rendre compte que pour mon application ca ne fonctionne pas!
En fait, ce n'est pas des cellules "vides", mais ce sont des formules qui donnent une cellules blanches.

En clair, les cellules que j'essaie de reporter contiennent toutes des formules SI, et la formules renvoient un texte sous une condition et renvoient "" sous une autres.
De ce fait, la cellule n'est pas vide mais rien n'est affiché.
Y'aurait il un moyen de modifier la macro pour contourner cela??

Merci d'avance!

Ps: super la presentation RGI! Pour les gros nuls comme moi, c impeccable!! encore merci! Smiley

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#142637 Posté le 11/09/07 à 13:50

remplacer l'ancien code par celui-ci

Sub effacer_cell_vides()
' Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
col = Selection.Column
deb = Cells(1, col).End(xlDown).Row
For i = Cells(65536, col).End(xlUp).Row To deb Step -1
If Cells(i, col) = "" Then Cells(i, col).Delete shift:=xlUp
Next
End Sub
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#142665 Posté le 12/09/07 à 08:48

Qu'en est-il ???? Smiley

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

jean_denis001
Nouveau membre

Inscrit : 11/09/2007
Messages : 4

#142674 Posté le 12/09/07 à 11:04

excusez moi pour cette réponse tardive, eh bien ca marche!
Merci encore, problème résolu, j'oublie pas le tag...

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#142675 Posté le 12/09/07 à 11:07

Merci pour le TAG

à votre service pour une autre question
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.