selectionner cellule non vide de la colonne A

[maval]

Bonsoir,

j'ai une colonne "A" avec des noms et un nombre aléatoire j'aimerai trouver un code pour sélectionner les cellules non vide j'avais ceci
Sheets("Index").Select
Range("A2:A1000")
mais sa ne vas pas?

je vous remercie d'avance

Max

 

[maval]

re
Bon j'ai trouvé ceci qui fonctionne

Columns("A:A").Cells.SpecialCells(2).Select

Bonne soirée
Max

 

[zebanx]

Bonsoir Maval, le forum

Je ne suis pas sur que cela fonctionne si tu as des formules.

En fait ce qui fonctionnerait plutôt serait :
Columns("A:A").Cells.Union(.SpecialCells(xlCellTypeConstants), .SpecialCells(xlCellTypeFormulas)).Select

Mais cela sélectionne les cellules qui se présentent comme "" et contiennent une formule (ici formule d'erreur en A14 et A29 renvoient "").

Si quelqu'un sait comment séléctionner par .specialcells toutes les cellules non vides (sans affichage "", sans celles contenant une formule qui affiche "" ), je suis preneur aussi.
(...même s'il vaut mieux si limiter aux cellules vraiment "blank")

Merci.
@+

 

[job75]

Bonsoir maval, zebanx,

Si quelqu'un sait comment séléctionner par .specialcells toutes les cellules non vides (sans affichage "", sans celles contenant une formule qui affiche "" ), je suis preneur aussi.

Sub Test()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange.Columns(1)
    .Insert xlToRight
    .Columns(0) = "=IF(ISERROR(RC[1]),1,IF(RC[1]<>"""",1))"
    If Application.Count(.Columns(0)) Then
        .Columns(0).SpecialCells(xlCellTypeFormulas, 1).Select
    Else
        MsgBox "Aucune valeur..."
    End If
    .Columns(0).Delete xlToLeft
End With
End Sub

Les valeurs d'erreur sont aussi sélectionnées.

A+

 

[zebanx]

Bien évidemment, le back-up de JOB75 même en plein France-Allemagne

Merci, je vais copier ce code immédiatement avec mon fichier de "specialcells".

Bonne nuit.
zebanx

ps : toujours pas de Staples1600 depuis un moment, surprenant..

 

[maval]

Bonsoir Job, Zebanx,

Sa fonctionne mais sa me sélectionne les cellules "A1 2 3 et 4 " alors que j'ai d'autre valeur ?

Lerci et bonne soirée

Max

 

[zebanx]

Re-

Sans fichier, impossible de comprendre post #6. Pouvez-vous envoyer l'extraction svp de votre colonne complète ? Merci.

++

 

[maval]

Re,

Voila le fichier

 

[zebanx]

Re-

post 1 : j'ai une colonne "A" avec des noms et un nombre aléatoire j'aimerai trouver un code pour sélectionner les cellules non vide
post 8 : tu as inséré le code de JOB75 qui te sélectionne, en colonne "A", les cellules non vides (A1, A5 :A82)

So...what ?
Désolé, pas compris sinon

++ (dodo)

 

[job75]

Re,

Surtout maval (barbatruc depuis peu) devrait savoir qu'en VBA les Select sont en général inutiles.

Et vu le fichier l'intérêt de ce fil est vraiment nul !

Bonne nuit.