« L'âge de quelqu'un | Accueil | Jours travaillés »

TrackBack

URL TrackBack de cette note:
http://www.typepad.com/services/trackback/6a00e39820eabf883300e398215a138833

Voici les sites qui parlent de Un compteur :

Commentaires

Sophie

Bonjour XXL
j'ai une petite perte demémoire. Comment faire un menu déroulant quand on veut que la valeur rentrée dans une cellule correponde à une liste.
Merci par avance
Sophie

XXL

Regardez là :
Contrôlez les valeurs ->
http://xxl-leblog.svmlemag.fr/xxl/2005/03/contrlez_les_va.html

merci
XXL

sylvie

bonjour
lorsque j'importe un tableau provenant d'un autre logiciel sous excel, il me crée 1 ligne blanche entre 2 lignes.
comment faire pour sélectionner toutes ces lignes blanches en une simple manip afin de les éliminer?
merci de votre réponse

Billy

Il faut d'abord les sélectionner une par une (dans la marge) avec un clic et la touche CTRL appuyée, puis: Edition/supprimer . Ou alors, une macro, mais c'est plus subtile (supprimer les cellules vides...)

XXL

Si c'est possible sans le désorganiser, moi je sélectionnerais l'ensemble du tableau et je ferais un tri sur une colonne pertinente, toutes les lignes blanches seront alors regroupées, donc faciles à effacer.
@+
XXL

Dr Smile

pour ceux que ça interresse une petite macro à rajouter à vos perso pour élminer les lignes vides mais attention cells qui ne doivent pas être éliminer doivent obligatoirement avoir une valeur dans leur première colonne

Public Sub eliminevide()
'élmine les lignes vides à condition que toutes les lignes pleines aient une valeur dans la première colonne
Dim I As String 'définit I comme du texte
Dim j As Integer 'definit J comme un nombre
Dim reponse As Range 'réponse est une cellule
'demande la dernière ligen à traiter pour éviter de boucler
Set reponse = Application.InputBox("sélectionner la dernière cellule à traiter", "ELIMINE LIGNE VIDE", , , , , , 8)
' cherche et élimine les lignes vides (première colonne)
j = 1
While j < reponse.Row
If Cells(j, 1).Value = "" Then I = CStr(j): Rows(I).Select: Selection.Delete Shift:=xlUp: j = j - 1: ligtx = ligtx - 1
j = j + 1
Wend
End Sub

:)

Vérifiez votre commentaire

Aperçu de votre commentaire

Ceci est un essai. Votre commentaire n'a pas encore été déposé.

En cours...
Votre commentaire n'a pas été déposé. Type d'erreur:
Votre commentaire a été enregistré. Poster un autre commentaire

Le code de confirmation que vous avez saisi ne correspond pas. Merci de recommencer.

Pour poster votre commentaire l'étape finale consiste à saisir exactement les lettres et chiffres que vous voyez sur l'image ci-dessous. Ceci permet de lutter contre les spams automatisés.

Difficile à lire? Voir un autre code.

En cours...

Poster un commentaire

Notions de base

Dates & Heures

Formatage de cellules

Caisse à outils

Ficelles

Images, dessins & illustrations

Protections