OVH Cloud OVH Cloud

.range(.cell.....

12 réponses
Avatar
Yvan
Bonjour,

L'un de mes UF bloque lorsqu'il utilise la syntaxe suivante :

With Sheets("Journal Client")

a = Application.WorksheetFunction.CountA(.Range("N:N")) + 3
.Cells(a, 14).Select

End With

Pourtant je croyais qu'en spécifiant un point devant "cells", Excel savait
que la feuille concernée était celle indiquée au niveau du "With"...

--
Merci pour vos réponses.

10 réponses

1 2
Avatar
lSteph
Bonjour Yvan,

.activate
.cells(a, 14).Select


'cordialement.

lSteph


Bonjour,

L'un de mes UF bloque lorsqu'il utilise la syntaxe suivante :

With Sheets("Journal Client")

a = Application.WorksheetFunction.CountA(.Range("N:N")) + 3
.Cells(a, 14).Select

End With

Pourtant je croyais qu'en spécifiant un point devant "cells", Excel sav ait
que la feuille concernée était celle indiquée au niveau du "With"...

--
Merci pour vos réponses.


Avatar
Yvan
Tu veux dire pas de point devant cells, et ou places-tu activate car cela
génère une erreur dans mon UF...
--
Merci pour vos réponses.



Bonjour Yvan,

..activate
..cells(a, 14).Select


'cordialement.

lSteph


Bonjour,

L'un de mes UF bloque lorsqu'il utilise la syntaxe suivante :

With Sheets("Journal Client")

a = Application.WorksheetFunction.CountA(.Range("N:N")) + 3
.Cells(a, 14).Select

End With

Pourtant je croyais qu'en spécifiant un point devant "cells", Excel savait
que la feuille concernée était celle indiquée au niveau du "With"...

--
Merci pour vos réponses.






Avatar
Céline
Bjour Yvan, bjour Isteph

Isteph te conseille d'ajouter
.activate juste avant
.cells(a, 14).select

en effet l'expérience m'a montré à moi aussi qu'on ne peut
sélectionner des cellules sur une feuille que si elle est activée....
ce n'est donc pas le point qui pose problème...
bonne journée
céline



Tu veux dire pas de point devant cells, et ou places-tu activate car cela
génère une erreur dans mon UF...
--
Merci pour vos réponses.



Bonjour Yvan,

..activate
..cells(a, 14).Select


'cordialement.

lSteph


Bonjour,

L'un de mes UF bloque lorsqu'il utilise la syntaxe suivante :

With Sheets("Journal Client")

a = Application.WorksheetFunction.CountA(.Range("N:N")) + 3
.Cells(a, 14).Select

End With

Pourtant je croyais qu'en spécifiant un point devant "cells", Excel savait
que la feuille concernée était celle indiquée au niveau du "Wit h"...

--
Merci pour vos réponses.








Avatar
lSteph
Si si j'ai mis un point,
c'est encore une cagade d'interface
le point activate sur la ligne juste avant le point cells(

@+


Tu veux dire pas de point devant cells, et ou places-tu activate car cela
génère une erreur dans mon UF...
--
Merci pour vos réponses.



Bonjour Yvan,

..activate
..cells(a, 14).Select


'cordialement.

lSteph


Bonjour,

L'un de mes UF bloque lorsqu'il utilise la syntaxe suivante :

With Sheets("Journal Client")

a = Application.WorksheetFunction.CountA(.Range("N:N")) + 3
.Cells(a, 14).Select

End With

Pourtant je croyais qu'en spécifiant un point devant "cells", Excel savait
que la feuille concernée était celle indiquée au niveau du "Wit h"...

--
Merci pour vos réponses.








Avatar
lSteph
Bonjour Céline ,

Oui c'et bien cela
......
en effet l'expérience m'a montré à moi aussi qu'on ne peut
sélectionner des cellules sur une feuille que si elle est activée....


D'ailleurs ce qui peut sembler déroutant puisque la plupart du temps
il est totalement
inutile de sélectionner une cellule pour agir dessus ou avec , par
macro.
Feuil1.[a1]="bonjour"
se moque que l'on soit ailleurs

Exemple

Private Sub CommandButton1_Click()
With Feuil2
.Activate
.Cells(2, 2).Select
Feuil1.[a1] = "bonjour"
End With
End Sub


@+

Avatar
Yvan
Le problème, c'est que cela oblige d'aller sur la feuille...
--
Merci pour vos réponses.




Bjour Yvan, bjour Isteph

Isteph te conseille d'ajouter
..activate juste avant
..cells(a, 14).select

en effet l'expérience m'a montré à moi aussi qu'on ne peut
sélectionner des cellules sur une feuille que si elle est activée....
ce n'est donc pas le point qui pose problème...
bonne journée
céline



Tu veux dire pas de point devant cells, et ou places-tu activate car cela
génère une erreur dans mon UF...
--
Merci pour vos réponses.



Bonjour Yvan,

..activate
..cells(a, 14).Select


'cordialement.

lSteph


Bonjour,

L'un de mes UF bloque lorsqu'il utilise la syntaxe suivante :

With Sheets("Journal Client")

a = Application.WorksheetFunction.CountA(.Range("N:N")) + 3
.Cells(a, 14).Select

End With

Pourtant je croyais qu'en spécifiant un point devant "cells", Excel savait
que la feuille concernée était celle indiquée au niveau du "With"...

--
Merci pour vos réponses.












Avatar
lSteph
Re,
Dans ce cas....

Le problème, c'est que cela oblige d'aller sur la feuille...


... la finalité de sélectionner la cellule revient au même!

Etait-ce bien nécessaire pour la suite du code?

(à suivre)

Amicalement.

lSteph

Avatar
Yvan
A la base, le UserForm copie les données qui ont été saisies par
l'utilisateur dans les TextBox sur la feuille Journal Client, et duplique
vers le bas certaines cellules.

Et c'est pour la duplication que j'avais besoin de sélectionner certaines
cellules pour les étendre vers le bas.

D'ou mon besoin de sélectionner, sans pour autant aller sur la feuille...

As-tu une solution qui aille dans ce sens ???

--
Merci pour vos réponses.



Re,
Dans ce cas....

Le problème, c'est que cela oblige d'aller sur la feuille...


.... la finalité de sélectionner la cellule revient au même!

Etait-ce bien nécessaire pour la suite du code?

(à suivre)

Amicalement.

lSteph





Avatar
Michel Gaboly
Bonsoir,

Voici un exemple :

Sub Macro1()
Sheets("Feuil2").Range("A1:C10").FillDown
End Sub

Devoir sélectionner feuille(s) ou cellule(s) est exceptionnel.

A la base, le UserForm copie les données qui ont été sai sies par
l'utilisateur dans les TextBox sur la feuille Journal Client, et dupliq ue
vers le bas certaines cellules.

Et c'est pour la duplication que j'avais besoin de sélectionner ce rtaines
cellules pour les étendre vers le bas.

D'ou mon besoin de sélectionner, sans pour autant aller sur la feu ille...

As-tu une solution qui aille dans ce sens ???




--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Yvan
Superbe, merci beaucoup Michel. Cela n'aura pas été sans mal.

A plus.
--
Merci pour vos réponses.



Bonsoir,

Voici un exemple :

Sub Macro1()
Sheets("Feuil2").Range("A1:C10").FillDown
End Sub

Devoir sélectionner feuille(s) ou cellule(s) est exceptionnel.

A la base, le UserForm copie les données qui ont été saisies par
l'utilisateur dans les TextBox sur la feuille Journal Client, et duplique
vers le bas certaines cellules.

Et c'est pour la duplication que j'avais besoin de sélectionner certaines
cellules pour les étendre vers le bas.

D'ou mon besoin de sélectionner, sans pour autant aller sur la feuille...

As-tu une solution qui aille dans ce sens ???




--
Cordialement,

Michel Gaboly
www.gaboly.com




1 2