Selection ligne si colonne non vide

[Guib's]

Bonjour à tous,

Voici mon problème :
je souhaiterais créer une macro sélectionnant les lignes où la colonne G contient du texte.
Pour cela, j'ai le code suivant :
Sub test()
Dim i As Integer
For i = 10000 To 1 Step -1
If Not IsEmpty(Range("G" & i).Value) Then Rows.Select
Next i
End Sub

Le problème, c'est que la macro considère une cellule mise en forme comme cellule non vide même si elle ne contient pas de texte. Je souhaiterais donc améliorer la macro afin qu'elle ne prenne en compte que les cellules ou du texte est présent.
En vous remerciant très grandement par avance,
Guib's

 

[MJ13]

Re : Selection ligne si colonne non vide

Bonjour
A tester

if Range("G" & i).Value) <>"" Then Rows.Select

 

[Guib's]

Re : Selection ligne si colonne non vide

Merci pour cette réponse rapide !

Malheureusement, aucun changement lors de l'utilisation de ce code à la place du mien... 🙁
Autre idée peut etre ?
Ne manquerait-il pas quelque chose avant le Rows ? J'ai l'impression qu'avec ce code, dès qu'une cellule de la colonne G est non vide, l'ensemble des lignes sont sélectionnées. Je me trompe ?

Merci beaucoup d'avance en tout cas 🙂

 

[Spitnolan08]

Re : Selection ligne si colonne non vide

Bonjour Guib's, MJ13,

si bien compris toutes les contraintes, tout simplement en utilisant une variante du code que tu avais utilisé dans ton dernier fil 😉:

Sub test()
ActiveSheet.Range("B1:B10000").SpecialCells(xlCellTypeConstants, xlTextValues).Activate
End Sub

Cordialement

 

[Guib's]

Re : Selection ligne si colonne non vide

Bonjour !

Merci pour ce code qui fonctionne très bien ! Cependant, lors de son exécution, il n'y a que les cellules de la colonne qui sont sélectionnées. Comment sélectionner les lignes entières à la place ?

Encore merci pour votre aide !!

 

[Spitnolan08]

Re : Selection ligne si colonne non vide

Re,

ActiveSheet.Range("B1:B10000").SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Select

Mais là, tu abuses un peu... Ce forum apporte une aide mais le demandeur doit faire un petit effort!😎

D'autant que la réponse figure quasiment dans le fil dont je parlais dans mon précédent post🙄...

Cordialement

 

[Guib's]

Re : Selection ligne si colonne non vide

Toutes mes excuses. J'avais essayé avec ActiveRow mais cela ne marchait pas... Encore merci pour tout !! 🙂🙂🙂

 

[Spitnolan08]

Re : Selection ligne si colonne non vide

Re,

Tant que j'y suis, avant que tu ne le demandes😛 un code qui permet de sélectionner et les cellules contenant du texte et celles contenant des nombres

Sub test()
Dim PlageText As Range, PlageNombr As Range
Set PlageText = ActiveSheet.Range("B1:B10000").SpecialCells(xlCellTypeConstants, xlTextValues)
Set PlageNombr = ActiveSheet.Range("B1:B10000").SpecialCells(xlCellTypeConstants, xlNumbers)
Union(PlageText, PlageNombr).EntireRow.Select
End Sub

Que l'on peut réduire également à une ligne avec :

Sub test()
ActiveSheet.Range("B1:B10000").SpecialCells(xlCellTypeConstants, 3).EntireRow.Select
End Sub

C'est pas beau Excel 😕😀

Cordialement

 

[MJ13]

Re : Selection ligne si colonne non vide

Bonjour à tous

Oui mon code ne marchait pas (je ne l'avais pas testé!).

Voici un code qui fonctionne mieux (J'ai fait simple sur la colonne A de ligne 1 à 100, c'est a adpapter).

Sub test()
Stop
Dim i As Integer
For i = 1 To 100 Step 1
'If Not IsEmpty(Range("A" & i).Value) Then Row.Select
If Range("A" & i).Value <> "" Then Rows(i).Select
Next i
End Sub

 

[Spitnolan08]

Re : Selection ligne si colonne non vide

Re,

MJ13, laisse tomber les rames et monte dans l'hydrospeed!😉😛

Cordialement

 

[MJ13]

Re : Selection ligne si colonne non vide

Re bonj

Ok Spit, mais j'aime bien corriger mes erreurs.

Ensuite tout dépend de ce que l'on veut faire avec le VBA, et la c'était pour faire un traitement ultérieur sur chaque ligne.

Par contre je garde ta proposition que je testerai le jour où j'en aurai besoin.

c'est pour cela aussi que je répond lorsque le sujet m'intéresse.

 

[Spitnolan08]

Re : Selection ligne si colonne non vide

Re,

Tu as bien raison, c'était juste pour t'embêter un peu et pour blaguer.
...et pour que tes comptes se fassent plus vite😉

Cordialement

 

[Guib's]

Re : Selection ligne si colonne non vide

En tout cas c'est vraiment bien agréable de trouver des gens prêts à aider et à donner des solutions aussi satisfaisantes. Merci encore à vous ! 😉