sélectionner des lignes (RE)

Le
jiffey
Merci beaucoup JB (et vous tous) pour tes réponses

Donc, comme tu le précises, j'ai un souci avec ton code, c'est que mon
fichier a en effet des scories, donc impossible d'avoir le résultat escompté.
Comment pourrais-je faire pour éliminer les scories ?

Merci d'avance ;-D

Slts

JF




-


derlig = [A:F].Find("*", , , , xlByRows, xlPrevious).Row
[A:A].Find("").Select
For i = 2 To derlig
If Len(Cells(i, 1)) = 0 Then
Union(Selection, Cells(i, 1).Resize(, 6)).Select
End If
Next i

http://cjoint.com/?gglUzSNNVb

JB

On 6 juin, 11:16, jiffey <jif@discussions.microsoft.com> wrote:
> Bonjour et merci à JB et AV ! Je ne vois pas ma réponse à leurs posts, je me
> permets donc de reposter
>
> Malheureusement, je n'arrive toujours pas à résoudre mon pb et je crois en
> fait que je m'étais mal exprimé. Pour être plus clair donc, ci-après un
> exemple de fichier.
>
> http://cjoint.com/?ggliRUnWhK
>
> Dans cet exemple, je souhaiterais créer une macro qui sélectionne les
> cellules en jaune.
>
> Mais (et c'est bien là la difficulté), je ne connais pas à l'avance le
> contenu des cellules du tableau.
>
> Merci encore d'avance de me dire comment je peux faire.
>
> Slts
>
> JF
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4939091
Bonjour,

Le code sélectionne les lignes (même avec les cellules qui ne sont pas
Blanks)

derlig = [A:F].Find("*", , , , xlByRows, xlPrevious).Row
[A:A].Find("").Select
For i = 2 To derlig
If Len(Cells(i, 1)) = 0 Then
Union(Selection, Cells(i, 1).Resize(, 6)).Select
End If
Next i

Pour nettoyer:

Sub nettoie()
For i = 2 To ([A:F].Find("*", , , , xlByRows, xlPrevious).Row)
If Len(Cells(i, 1)) = 0 Then Cells(i, 1) = Empty
Next
End Sub

Sub selectionne2()
derlig = [A:F].Find("*", , , , xlByRows, xlPrevious).Row
Range("A2", "A" &
derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Select
End Sub

http://cjoint.com/?gimrBUWCw0

JB


On 8 juin, 11:36, jiffey
Merci beaucoup JB (et vous tous) pour tes réponses

Donc, comme tu le précises, j'ai un souci avec ton code, c'est que mon
fichier a en effet des scories, donc impossible d'avoir le résultat esc ompté.
Comment pourrais-je faire pour éliminer les scories ?

Merci d'avance ;-D

Slts

JF

----------------------

derlig = [A:F].Find("*", , , , xlByRows, xlPrevious).Row
[A:A].Find("").Select
For i = 2 To derlig
If Len(Cells(i, 1)) = 0 Then
Union(Selection, Cells(i, 1).Resize(, 6)).Select
End If
Next i

http://cjoint.com/?gglUzSNNVb

JB

On 6 juin, 11:16, jiffey


Bonjour et merci à JB et AV ! Je ne vois pas ma réponse à leurs p osts, je me
permets donc de reposter...

Malheureusement, je n'arrive toujours pas à résoudre mon pb et je c rois en
fait que je m'étais mal exprimé. Pour être plus clair donc, ci-a près un
exemple de fichier.

http://cjoint.com/?ggliRUnWhK

Dans cet exemple, je souhaiterais créer une macro qui sélectionne l es
cellules en jaune.

Mais (et c'est bien là la difficulté), je ne connais pas à l'avan ce le
contenu des cellules du tableau.

Merci encore d'avance de me dire comment je peux faire.

Slts

JF- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme