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 Sans la sélection de la feuille

Sans la sélection de la feuille

6 réponses
Avatar
Didier
Bonjour, je désire envoyer le textbox1 et le textbox2 dans la feuille Liste
sans sélectionner celle-ci
mais ma syntaxe est erronée
Merci pour votre aide
Bonne journée
Didier

With Sheets("Liste")
.Range("A10000").End(xlUp)(2).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
End With
Signaler un problème avec ce contenu

6 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
Avatar
Joël GARBE
Bonjour Didier,

With Sheets("Liste")
.Range("A10000").End(xlUp)(2).value = TextBox1.Value
.Range("A10000").End(xlUp)(2)..Offset(0, 1) = TextBox2.Value
End With


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Didier" a écrit dans le message de news:

Bonjour, je désire envoyer le textbox1 et le textbox2 dans la feuille
Liste
sans sélectionner celle-ci
mais ma syntaxe est erronée
Merci pour votre aide
Bonne journée
Didier

With Sheets("Liste")
.Range("A10000").End(xlUp)(2).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
End With




Avatar
Michel Gaboly
Bonjour,

Le problème vient de ce que ActiveCell se réfère à la feuille active.

Par ailleurs, il est inutile d'utiliser Select, qui ralentit inutilement
le traitement.

Voici une façon de faire :


Sub Toto()
Dim Ref As Range
Set Ref = Worksheets("Liste").Range("A10000").End(xlUp)(2)
With Ref
.Value = 1
.Offset(0, 1) = 2
End With
End Sub
Avatar
Didier
Merci beaucoup Michel, très sympa de ta part
Didier

"Michel Gaboly" a écrit dans le message de news:

Bonjour,

Le problème vient de ce que ActiveCell se réfère à la feuille active.

Par ailleurs, il est inutile d'utiliser Select, qui ralentit inutilement
le traitement.

Voici une façon de faire :


Sub Toto()
Dim Ref As Range
Set Ref = Worksheets("Liste").Range("A10000").End(xlUp)(2)
With Ref
.Value = 1
.Offset(0, 1) = 2
End With
End Sub


Avatar
Didier
Merci beaucoup Joël
Bonne journée
Didier



"Joël GARBE" a écrit dans le message de news:
41b2e42b$0$9048$
Bonjour Didier,

With Sheets("Liste")
.Range("A10000").End(xlUp)(2).value = TextBox1.Value
.Range("A10000").End(xlUp)(2)..Offset(0, 1) = TextBox2.Value
End With


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Didier" a écrit dans le message de news:

Bonjour, je désire envoyer le textbox1 et le textbox2 dans la feuille
Liste
sans sélectionner celle-ci
mais ma syntaxe est erronée
Merci pour votre aide
Bonne journée
Didier

With Sheets("Liste")
.Range("A10000").End(xlUp)(2).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
End With








Avatar
Michel Gaboly
De rien, Didier ;-))

Didier wrote:
Merci beaucoup Michel, très sympa de ta part
Didier

"Michel Gaboly" a écrit dans le message de news:


Bonjour,

Le problème vient de ce que ActiveCell se réfère à la feuille active.

Par ailleurs, il est inutile d'utiliser Select, qui ralentit inutilement
le traitement.

Voici une façon de faire :


Sub Toto()
Dim Ref As Range
Set Ref = Worksheets("Liste").Range("A10000").End(xlUp)(2)
With Ref
.Value = 1
.Offset(0, 1) = 2
End With
End Sub




Cordialment,


Michel Gaboly
www.gaboly.com


Avatar
Didier
Mais si, en plus ton site est remarquable !!!
Génial et bravo
Didier


"Michel Gaboly" a écrit dans le message de news:

De rien, Didier ;-))

Didier wrote:
Merci beaucoup Michel, très sympa de ta part
Didier

"Michel Gaboly" a écrit dans le message de news:


Bonjour,

Le problème vient de ce que ActiveCell se réfère à la feuille active.

Par ailleurs, il est inutile d'utiliser Select, qui ralentit inutilement
le traitement.

Voici une façon de faire :


Sub Toto()
Dim Ref As Range
Set Ref = Worksheets("Liste").Range("A10000").End(xlUp)(2)
With Ref
.Value = 1
.Offset(0, 1) = 2
End With
End Sub




Cordialment,


Michel Gaboly
www.gaboly.com