Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compresser en une ligne

Compresser en une ligne

17 réponses
Avatar
Claire
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
A peine plus court que les autres, mais Claire peut choisir le nom la
feuille.

tiret = Workbooks("Caisse sku").Sheets("Feuil1").[J2].Value

JJ

"Claire" a écrit dans le message de
news:OGD%
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois
que

j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire




Avatar
Claire
Merci à tous
Cela fonctionne très bien.

Serait-il possible de ne pas activer le fichier "Caisse sku".


"Claire" a écrit dans le message de
news:OGD%
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois
que

j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire




Avatar
FxM
Ne pas activer ? Euh, je croyais avoir donné la réponse, non ?

@+
FxM


Merci à tous
Cela fonctionne très bien.

Serait-il possible de ne pas activer le fichier "Caisse sku".


"Claire" a écrit dans le message de
news:OGD%

Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois


que

j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire









Avatar
michdenis
With Workbooks("Classeur3") 'Nom du classeur
With .Worksheets("Feuil1") 'Nom de la feuille
tiret = .Range("j2").Value
End With
End With


Salutations!




"Claire" a écrit dans le message de news:
Merci à tous
Cela fonctionne très bien.

Serait-il possible de ne pas activer le fichier "Caisse sku".


"Claire" a écrit dans le message de
news:OGD%
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois
que

j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire




Avatar
AV
tiret = ['[Caisse sku]Feuil1'!J2]

AV
Avatar
Jacky
tiret = ['[Caisse sku]Feuil1'!J2]


En ce jour du Seigneur, que je prends comme témoin, je l'avais pourtant
cherché celle là.

JJ

"AV" a écrit dans le message de
news:%
tiret = ['[Caisse sku]Feuil1'!J2]

AV




Avatar
FxM
Si je comprends bien, tu evaluates l'evaluate. Ca vaut bien un pffff
:o)

@+
FxM


tiret = ['[Caisse sku]Feuil1'!J2]

AV




1 2