selection cellules

[poipoi59]

Bonjour,

J'ai une feuille de calcul avec un tri de cellules fait par macro.

J'aimerais ajouter une macro qui permet de selectionner une plage de cellules uniquement si les cellules sont non vides ET différentes de "".


Merci pour votre aide

 

[wilfried_42]

Re : selection cellules

Bonjour

essaye cela :

Cells.SpecialCells(xlCellTypeConstants).Select

 

[job75]

Re : selection cellules

Bonjour,

Annulé, wilfried a raison, mille excuses...

A+

 

[poipoi59]

Re : selection cellules

Bonjour

essaye cela :

Cells.SpecialCells(xlCellTypeConstants).Select

Merci pour la réponse rapide,

Par contre, j'ai mal formulé ma question initiale, si les colonnes de A à J sont alimentés, je ne souhaite sélectionner que toutes les lignes des colonnes A à E

Merci et encore désolé

poipoi59

 

[job75]

Re : selection cellules

Re,

Mais non, je n'aurais pas dû annuler mon 1er post.

Le code proposé par wilfried sélectionne uniquement les constantes, y compris les textes vides "". Et les cellules avec des formules ne sont pas sélectionnées.

Voici donc une autre solution qui dans la plage nommée plage (menu Insertion-Nom) sélectionne les cellules non vides et différentes de "" :

Sub CellulesPleines()
Dim plein As Range, cel As Range
Set plein = [plage].Find("*", LookIn:=xlValues)
If plein Is Nothing Then MsgBox "Plage vide": Exit Sub
For Each cel In [plage]
If cel <> "" Then Set plein = Union(cel, plein)
Next
plein.Select
End Sub

A+

 

[wilfried_42]

Re : selection cellules

re:

bonjour job

il est vrai que j'ai omis les formules, mais venant de faire l'essai en mettant Range("B4") = "", la cellule n'est pas selectionnée donc c'est ok il reste les formules s'il y en a
voici avec les résultats de formules

Sub sel_plage()
    Dim plage As Range, frm As Range, c As Range
    Set plage = Range("A:E")
    Set frm = plage.Cells.SpecialCells(xlCellTypeFormulas)
    Set plage = plage.Cells.SpecialCells(xlCellTypeConstants)
    For Each c In frm
        If c.Text > "" Then Set plage = Application.Union(plage, c)
    Next
    plage.Select
End Sub

si tu n'as pas de formule, le code reste :

range("A:E").Cells.SpecialCells(xlCellTypeConstants).select

 

[job75]

Re : selection cellules

Re,

OK wilfried. A noter qu' on peut avoir du texte vide "" dans une cellule sans formule, mais c'est assez rare...

A+

 

[poipoi59]

Re : selection cellules

re:

bonjour job

il est vrai que j'ai omis les formules, mais venant de faire l'essai en mettant Range("B4") = "", la cellule n'est pas selectionnée donc c'est ok il reste les formules s'il y en a
voici avec les résultats de formules

Sub sel_plage()
    Dim plage As Range, frm As Range, c As Range
    Set plage = Range("A:E")
    Set frm = plage.Cells.SpecialCells(xlCellTypeFormulas)
    Set plage = plage.Cells.SpecialCells(xlCellTypeConstants)
    For Each c In frm
        If c.Text > "" Then Set plage = Application.Union(plage, c)
    Next
    plage.Select
End Sub

si tu n'as pas de formule, le code reste :

range("A:E").Cells.SpecialCells(xlCellTypeConstants).select

Bonjour,

Merci ça marche nickel, par contre qu'il ne sélectionne les cellules vides et différentes de "" qu'à compter de la 3ème ligne

Est-ce possible ?

Merci de mettre à disposition vos connaissances

poipoi59