Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Reduction code

9 réponses
Avatar
Jacky
Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ

9 réponses

Avatar
Hervé
Salut Jacky,
Un exemple :

With Feuil1
For Each c In .Range(.[A2], _
.[A65536].End(xlUp))
End With

Hervé

"Jacky" a écrit dans le message
news: u$
Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ




Avatar
isabelle
bonjour Jacky,

[Feuil1].Range("A2:A" & [Feuil1].[A65536].End(3).Row)

isabelle

Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ




Avatar
Jacky
Merci Isabelle
Pas mal plus court déjà.
J'ai omis de préciser qu'en début de code le besoin du nom du classeur.

Bonne soirée
JJ

"isabelle" a écrit dans le message de
news:
bonjour Jacky,

[Feuil1].Range("A2:A" & [Feuil1].[A65536].End(3).Row)

isabelle

Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ






Avatar
isabelle
merci ! Hervé,

du coup tu as raccourci mon exemple,

[Feuil1].Range([A2], [A65536].End(3))

isabelle


Salut Jacky,
Un exemple :

With Feuil1
For Each c In .Range(.[A2], _
.[A65536].End(xlUp))
End With

Hervé

"Jacky" a écrit dans le message
news: u$

Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ









Avatar
Jacky
Ma réponse n'apparaît pas, alors je reposte....

Salut Hervé
Merci, mais je ne souhaite pas utiliser ' With ', je fais appel à d'autres
feuilles à l'intérieur de la boucle.
J'ai vu passer (AV bien sûr) des codes du genre ['[classeur1! feuil1!]'a1] ,
(je dit bien du genre), et j'ai pensé que le mien dans le style d' Alain
pouvait être réduit.
Je souhaite
For Each c In .Range [nom du classeur...nomde la feuille.....cellule+ fin de
plage]

Bonne soirée
JJ

"Hervé" a écrit dans le message de
news:uQFwj%
Salut Jacky,
Un exemple :

With Feuil1
For Each c In .Range(.[A2], _
.[A65536].End(xlUp))
End With

Hervé

"Jacky" a écrit dans le
message

news: u$
Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ








Avatar
MichDenis
Bonjour Jacky,

['[classeur1! feuil1!]'a1]

Si tu veux faire une boucle en VBA, tu ne peux utiliser cette syntaxe pour faire référence à une plage de cellules
situées dans un autre classeur fermé. Cette syntaxe ne s'utilise que dans les cellules du classeur ... non en VBA.



Salutations!



"Jacky" a écrit dans le message de news:

Ma réponse n'apparaît pas, alors je reposte....

Salut Hervé
Merci, mais je ne souhaite pas utiliser ' With ', je fais appel à d'autres
feuilles à l'intérieur de la boucle.
J'ai vu passer (AV bien sûr) des codes du genre ['[classeur1! feuil1!]'a1] ,
(je dit bien du genre), et j'ai pensé que le mien dans le style d' Alain
pouvait être réduit.
Je souhaite
For Each c In .Range [nom du classeur...nomde la feuille.....cellule+ fin de
plage]

Bonne soirée
JJ

"Hervé" a écrit dans le message de
news:uQFwj%
Salut Jacky,
Un exemple :

With Feuil1
For Each c In .Range(.[A2], _
.[A65536].End(xlUp))
End With

Hervé

"Jacky" a écrit dans le
message

news: u$
Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ








Avatar
isabelle
voici ce que j'ai trouvé de plus court,

Set cf = Workbooks("PERSO.XLS").Sheets("Feuil1")
'.address est pour vérifier
x = cf.Range("A2:A" & cf.[A65536].End(3).Row).Address

isabelle


Merci Isabelle
Pas mal plus court déjà.
J'ai omis de préciser qu'en début de code le besoin du nom du classeur.

Bonne soirée
JJ

"isabelle" a écrit dans le message de
news:

bonjour Jacky,

[Feuil1].Range("A2:A" & [Feuil1].[A65536].End(3).Row)

isabelle


Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ











Avatar
Jacky
Ok, c'est noté..
Merci beaucoup Denis
JJ



"MichDenis" a écrit dans le message de
news:
Bonjour Jacky,

['[classeur1! feuil1!]'a1]

Si tu veux faire une boucle en VBA, tu ne peux utiliser cette syntaxe
pour faire référence à une plage de cellules

situées dans un autre classeur fermé. Cette syntaxe ne s'utilise que
dans les cellules du classeur ... non en VBA.




Salutations!



"Jacky" a écrit dans le
message de news:


Ma réponse n'apparaît pas, alors je reposte....

Salut Hervé
Merci, mais je ne souhaite pas utiliser ' With ', je fais appel à
d'autres

feuilles à l'intérieur de la boucle.
J'ai vu passer (AV bien sûr) des codes du genre ['[classeur1!
feuil1!]'a1] ,

(je dit bien du genre), et j'ai pensé que le mien dans le style d' Alain
pouvait être réduit.
Je souhaite
For Each c In .Range [nom du classeur...nomde la feuille.....cellule+
fin de

plage]

Bonne soirée
JJ

"Hervé" a écrit dans le message de
news:uQFwj%
Salut Jacky,
Un exemple :

With Feuil1
For Each c In .Range(.[A2], _
.[A65536].End(xlUp))
End With

Hervé

"Jacky" a écrit dans le
message

news: u$
Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ













Avatar
Jacky
Ok, merci beaucoup Isabelle.
Je ne crois pas qu'il y a plus court.

Bonne journée
JJ

"isabelle" a écrit dans le message de
news:%
voici ce que j'ai trouvé de plus court,

Set cf = Workbooks("PERSO.XLS").Sheets("Feuil1")
'.address est pour vérifier
x = cf.Range("A2:A" & cf.[A65536].End(3).Row).Address

isabelle


Merci Isabelle
Pas mal plus court déjà.
J'ai omis de préciser qu'en début de code le besoin du nom du
classeur.



Bonne soirée
JJ

"isabelle" a écrit dans le message de
news:

bonjour Jacky,

[Feuil1].Range("A2:A" & [Feuil1].[A65536].End(3).Row)

isabelle


Bonsoir à tous

Je cherche à réduire ceci:

For Each c In [Feuil1].Range("A2:A" &
[Feuil1].Range("A65536").End(xlUp).Row)

La syntaxe bien sûr ; o))
Juste pour voir les possibilitées.
La feuille n'étant pas active.
(xl97)

JJ