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 double variation

double variation

6 réponses
Avatar
François Perruchoud
Voici un code qui fonctionne:

Sub copierOnglet()
Dim tableau() As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes = Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes = Worksheets("0121").Range("A1").CurrentRegion.Rows.Count

tableau = Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
Worksheets("travail").Range("A1").Resize(nombreDeLignes, nombreColonnes) =
tableau
End Sub

Mais que faire si dans l'instrution: tableau =
Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
G varie également
J'ai essayé: tableau = Worksheets("0121").Range("A1", Cells(nombreDeLignes,
nombreColonnes)).Value
mais je reçois erreur 1004 (erreur définie par l' application ou l'objet)
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
anonymousA
Bonjour,

p.e


col= "A"
ligne = 3

tableau = ActiveSheet.Range("A1:" & col & ligne).value

A+


Voici un code qui fonctionne:

Sub copierOnglet()
Dim tableau() As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes = Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes = Worksheets("0121").Range("A1").CurrentRegion.Rows.Count

tableau = Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
Worksheets("travail").Range("A1").Resize(nombreDeLignes, nombreColonnes) > tableau
End Sub

Mais que faire si dans l'instrution: tableau > Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
G varie également
J'ai essayé: tableau = Worksheets("0121").Range("A1", Cells(nombreDeLignes,
nombreColonnes)).Value
mais je reçois erreur 1004 (erreur définie par l' application ou l'objet)




Avatar
docm
Bonjour François Perruchoud.

Je ne rencontre aucune erreur avec ton code.
Cependant j'ai remplacé Dim tableau () As Variant
par Dim tableau As Variant

Sub copierOnglet()
Dim tableau As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes = Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes = Worksheets("0121").Range("A1").CurrentRegion.Rows.Count
tableau = Worksheets("0121").Range("A1", Cells(nombreDeLignes,
nombreColonnes)).Value

Worksheets("travail").Range("A1").Resize(nombreDeLignes, nombreColonnes) tableau
End Sub

docm

François Perruchoud déclare:
Voici un code qui fonctionne:

Sub copierOnglet()
Dim tableau() As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes > Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes > Worksheets("0121").Range("A1").CurrentRegion.Rows.Count

tableau = Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
Worksheets("travail").Range("A1").Resize(nombreDeLignes,
nombreColonnes) = tableau
End Sub

Mais que faire si dans l'instrution: tableau > Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
G varie également
J'ai essayé: tableau = Worksheets("0121").Range("A1",
Cells(nombreDeLignes, nombreColonnes)).Value
mais je reçois erreur 1004 (erreur définie par l' application ou
l'objet)


Avatar
François Perruchoud
Bonjour docm,

chez moi la ligne:

nombreColonnes = Worksheets("0121").Range("A1").CurrentRegion.Columns.Count

me renvoie l'erreur 1004 même en remplaçant Dim tableau As Variant par dim
tableau as Variant

Merci et à bientôt!

"docm" a écrit dans le message de
news:
Bonjour François Perruchoud.

Je ne rencontre aucune erreur avec ton code.
Cependant j'ai remplacé Dim tableau () As Variant
par Dim tableau As Variant

Sub copierOnglet()
Dim tableau As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes = Worksheets("0121").Range("A1").CurrentRegion.Rows.Count
tableau = Worksheets("0121").Range("A1", Cells(nombreDeLignes,
nombreColonnes)).Value

Worksheets("travail").Range("A1").Resize(nombreDeLignes, nombreColonnes) > tableau
End Sub

docm

François Perruchoud déclare:
Voici un code qui fonctionne:

Sub copierOnglet()
Dim tableau() As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes > > Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes > > Worksheets("0121").Range("A1").CurrentRegion.Rows.Count

tableau = Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
Worksheets("travail").Range("A1").Resize(nombreDeLignes,
nombreColonnes) = tableau
End Sub

Mais que faire si dans l'instrution: tableau > > Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
G varie également
J'ai essayé: tableau = Worksheets("0121").Range("A1",
Cells(nombreDeLignes, nombreColonnes)).Value
mais je reçois erreur 1004 (erreur définie par l' application ou
l'objet)






Avatar
François Perruchoud
Merci anonymousA,

Cela fonctionne bien! Il ne me reste plus qu'à régler un petit problème:
chez moi col est un nombre qu'il me faut convertir en lettre..

A bientôt!

"anonymousA" a écrit dans le message de
news:438e04dc$0$19722$
Bonjour,

p.e


col= "A"
ligne = 3

tableau = ActiveSheet.Range("A1:" & col & ligne).value

A+


Voici un code qui fonctionne:

Sub copierOnglet()
Dim tableau() As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes = Worksheets("0121").Range("A1").CurrentRegion.Rows.Count

tableau = Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
Worksheets("travail").Range("A1").Resize(nombreDeLignes, nombreColonnes)
tableau
End Sub

Mais que faire si dans l'instrution: tableau > > Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
G varie également
J'ai essayé: tableau = Worksheets("0121").Range("A1",
Cells(nombreDeLignes,


nombreColonnes)).Value
mais je reçois erreur 1004 (erreur définie par l' application ou
l'objet)








Avatar
docm
Bonjour François Perruchoud.

Peux-tu publier sur http://www.cjoint.com/ un exemple de classeur faisant
problème ?

docm

François Perruchoud déclare:
Bonjour docm,

chez moi la ligne:

nombreColonnes > Worksheets("0121").Range("A1").CurrentRegion.Columns.Count

me renvoie l'erreur 1004 même en remplaçant Dim tableau As Variant
par dim tableau as Variant

Merci et à bientôt!

"docm" a écrit dans le message de
news:
Bonjour François Perruchoud.

Je ne rencontre aucune erreur avec ton code.
Cependant j'ai remplacé Dim tableau () As Variant
par Dim tableau As Variant

Sub copierOnglet()
Dim tableau As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes > Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes >> Worksheets("0121").Range("A1").CurrentRegion.Rows.Count tableau >> Worksheets("0121").Range("A1", Cells(nombreDeLignes,
nombreColonnes)).Value

Worksheets("travail").Range("A1").Resize(nombreDeLignes,
nombreColonnes) = tableau
End Sub

docm

François Perruchoud déclare:
Voici un code qui fonctionne:

Sub copierOnglet()
Dim tableau() As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes >>> Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes >>> Worksheets("0121").Range("A1").CurrentRegion.Rows.Count

tableau = Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
Worksheets("travail").Range("A1").Resize(nombreDeLignes,
nombreColonnes) = tableau
End Sub

Mais que faire si dans l'instrution: tableau >>> Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
G varie également
J'ai essayé: tableau = Worksheets("0121").Range("A1",
Cells(nombreDeLignes, nombreColonnes)).Value
mais je reçois erreur 1004 (erreur définie par l' application ou
l'objet)






Avatar
François Perruchoud
Malheureusement les données sont confidentielles. Je pense qu'effectivement
l'erreur doit venir de ma base de donnée. Merci pour tout!

"docm" a écrit dans le message de
news:
Bonjour François Perruchoud.

Peux-tu publier sur http://www.cjoint.com/ un exemple de classeur faisant
problème ?

docm

François Perruchoud déclare:
Bonjour docm,

chez moi la ligne:

nombreColonnes > > Worksheets("0121").Range("A1").CurrentRegion.Columns.Count

me renvoie l'erreur 1004 même en remplaçant Dim tableau As Variant
par dim tableau as Variant

Merci et à bientôt!

"docm" a écrit dans le message de
news:
Bonjour François Perruchoud.

Je ne rencontre aucune erreur avec ton code.
Cependant j'ai remplacé Dim tableau () As Variant
par Dim tableau As Variant

Sub copierOnglet()
Dim tableau As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes > > Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes > >> Worksheets("0121").Range("A1").CurrentRegion.Rows.Count tableau > >> Worksheets("0121").Range("A1", Cells(nombreDeLignes,
nombreColonnes)).Value

Worksheets("travail").Range("A1").Resize(nombreDeLignes,
nombreColonnes) = tableau
End Sub

docm

François Perruchoud déclare:
Voici un code qui fonctionne:

Sub copierOnglet()
Dim tableau() As Variant
Dim nombreColonnes As Long, nombreDeLignes As Long

nombreColonnes > >>> Worksheets("0121").Range("A1").CurrentRegion.Columns.Count
nombreDeLignes > >>> Worksheets("0121").Range("A1").CurrentRegion.Rows.Count

tableau = Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
Worksheets("travail").Range("A1").Resize(nombreDeLignes,
nombreColonnes) = tableau
End Sub

Mais que faire si dans l'instrution: tableau > >>> Worksheets("0121").Range("A1:G" & nombreDeLignes).Value
G varie également
J'ai essayé: tableau = Worksheets("0121").Range("A1",
Cells(nombreDeLignes, nombreColonnes)).Value
mais je reçois erreur 1004 (erreur définie par l' application ou
l'objet)