Discussion :

[Mounamidou]

Bonjour,
j'ai un tableau excel avec plusieurs lignes et colones
comment selectionner les cellules de la colonne B avec la condition que les cellules de la colonne C ne soient pas vides?

merci d'avance pour votre aide

mouna

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Plage As Range, NoLigne as long, NoCol as integer, Adres, Valeur
Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Cell In Plage
     if Cell <> "" then
           NoLigne = Cell.row
           NoCol = Cell.column
           Adres = Cell.address
           Valeur = Cell
Next
End Sub

En supposant que ta vérification se fasse sur la colonne A... sinon tu changes

[Mounamidou]

salut ouskel'n'or,

j'ai testé ce dont tu m'as envoyer mais ça n'a rien donner

[ouskel'n'or]

Je m'attendais à tout de ta part mais pas à ça
Que veux-tu faire une fois le cellule sélectionnée ? Tu ne veux tout de même pas voir dans Excel la cellule sélectionnée...
Donc, en attendant d'avoir ta réponse, je refuse de te dire comment faire Cell.select

NB - Il est inutile de sélectionner une cellule pour la bricoler !

[Mounamidou]

Bonjour,


Bon, j’ai édité une formule dans la cellule B2 et je voudrai la copier puis la coller dans les autre cellules sélectionnées de la colonne B (pour votre information, parfois j’ai plus de 5000 lignes) mais à une condition :
1- Que les cellules de la colonne C correspondante aux cellules de la colonne B ne soient pas vide.

Ou

2- Que la sélection des cellules de la colonne B se face jusqu’à la dernière ligne éditer.


mouna

[ouskel'n'or]

Que la sélection des cellules de la colonne B se face jusqu’à la dernière ligne éditer.

dernière ligne de la feuille ou de la colonne B ?
Ceci dit tout dépend de la formule et si tu veux qu'elle s'adapte au N° de ligne. Conditionne la copie sur une plage ou ligne par ligne... cé papa reil !
Donc, ta formule serait la bienvenue

[ouskel'n'or]

Dans ta formule, faut-il incrémenter les N° de lignes dans $A$2:$X$19 et A47940 ?

[Mounamidou]

Salut ouskel'n'or,

$A$2:$X$19 la plage jusqu'à la ligne 19 ce n'est qu'un exemple en réalité la dernière ligne de la plage c'est la dernière ligne de la feuille éditée et même chose pour 47940 (Car chaque semaine j'ai de nouvelles données donc un nouveau nombre de lignes)
les lignes ne sont pas incrémentées.

et si les lignes étaient incrémenté qu'est ce qui change dans notre programme?

et merci
mouna
A+

[ouskel'n'or]

ta formule :

=INDEX(SMDOCK_21_août_07!$A$2:$X$19;EQUIV(A47940;SMDOCK_21_août_07!A:A;0);4)

[QUOTE]Ok, je crois comprendre.
Ceci dit, ta formule ne dit pas dans quelle feuille tu prends A47940.

Pour connaître la derniereLigne renseignée d'une colonne (ici la colonne A) tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoLigne = Worksheets("SMDOCK_21_août_07").Range("A65536").End(xlUp).Row

A utiliser ainsi dans ta formule, ex. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(NLig, NCol).formulaLocal = "=INDEX(SMDOCK_21_août_07!$A$2:$X$" & NoLigne & ";EQUIV(" & ......

[Mounamidou]

Bonjour ouskel'n'or,
Merci beaucoup pour votre aide
le resultat est parfait