XL 2021 code que je n'arrive pas à faite fonctionner avec Range("ActiveCell.Offset(0, 0).Resize(10, 1)")

Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous :)

Grrrr !!! encore dans les choux :mad:

Mon besoin
dans ce fichier "test1"il me faut importer des valeurs du classeur "test2" (les 2 fichiers sont ouverts)
J'ai trouvé sur le net (le lien est en haut dans le classeur) comment le faire
Ce code fonctionne nickel
VB: 
Sub Macro1()
Workbooks("test1").Sheets("Feuil1").Range("a2:a100") = Workbooks("test2").Sheets("Feuil1").Range("l2:l100").Value
End Sub

En revanche, j'ai besoin de coller à partir de la cellule active dans mon fichier "test1"
J'ai fait ce code
Code: 
Sub Macro1()
Workbooks("test1").Sheets("Feuil1").Range("ActiveCell.Offset(0, 0).Resize(10, 1)") = Workbooks("test2").Sheets("Feuil1").Range("l2:l100").Value
End Sub
Qui beug avec cette information
1695474793232.png

Je n'arrive pas à trouver mon erreur.

Pourriez-vous m'aider ?
En cas, je joins les 2 fichiers test

Un grand merci à toutes et à tous :)
 

Pièces jointes

  • test1.xlsm
    18.3 KB · Affichages: 7
  • test2.xlsm
    8.5 KB · Affichages: 8
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Re, Bonjouer @laurent950

@Usine à gaz
Conseil en passant
Quand tu bloques sur un code VAB, utilises des MsgBox (comme je l'ai fait) pour voir d'où peut venir l'erreur de syntaxe.

PS: Tu remarqueras que dans le code de @laurent950, la taille des plage est identique
Enrichi (BBcode): 
' Copie
    Ftest1.Range("A2:A100").Value = Ftest2.Range("L2:L100").Value
C'était ce que devait te montrer le test du message#2
A savoir que dans ton code initial, la taille n'était pas identique.
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
laurent950 à dit:
Bonjour @Usine à gaz

si ton classeur Test2 est déjà Ouvert
Set Wkb = Workbooks.Item("test2.xlsm")

Mais si il n'est pas ouvert alors
Set Wkb = Workbooks.Open(Ftest1.Parent.Path & "\test2.xlsm")

VB: 
Sub Macro1()
    Application.ScreenUpdating = False
    Dim Ftest1 As Worksheet
        Set Ftest1 = ThisWorkbook.Worksheets("Feuil1")
    Dim Wkb As Workbook
    Dim Ftest2 As Worksheet
    On Error Resume Next
    ' Remplacez "Nom_du_Fichier.xlsm" par le nom du fichier que vous souhaitez copier
        'Set Wkb = Workbooks.Open(Ftest1.Parent.Path & "\test2.xlsm")
        Set Wkb = Workbooks.Item("test2.xlsm")
        Set Ftest2 = Wkb.Worksheets("Feuil1")
    On Error GoTo 0
    ' Copie
    Ftest1.Range("A2:A100").Value = Ftest2.Range("L2:L100").Value
    Application.ScreenUpdating = True
End Sub

Pour ton information Lionel
Code: 
For Each wb In Workbooks
    MsgBox "Le classeur " & wb.Name & " est ouvert."
    For Each ws In wb.Worksheets
        MsgBox ws.Name
    Next ws
Next wb

Ici si tu sais que ton classeur est Ouvert alors tu connais le nom du classeur "Test2"
et tu n'a plus besoin de le rechercher avec cette boucle ci-dessus

la clé c'est .Item("Nom du classeur . suivie de l'extension")
Set Wkb = Workbooks.Item("test2.xlsm")

C'est le principe de la POO (Programation Orienté Objet)
Cliquez pour agrandir...
Bjr Laurent :)
Merci à toi c'est nickel
Merci aussi pour toutes tes explications...
:)
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Re-JM :)
Si tu veux bien m'accorder encore un peu de ton temps, je voudrais comprendre mon erreur :
tu me dis : que la taille des plages ne sont pas identiques dans mon code initial
C'était vrai bien sûr !
J'ai donc modifié mon code comme ceci :
VB: 
Workbooks("test1").Sheets("Feuil1").Range("ActiveCell.Offset(0, 0).Resize(99, 1)") = Workbooks("test2").Sheets("Feuil1").Range("L2:L100").Value
Si je reprends mon code
Partie 1 :
Workbooks("test1").Sheets("Feuil1").Range("ActiveCell.Offset(0, 0).Resize(99, 1)") =
j'ai 99 cellules concernées

Partie 2 :
Workbooks("test2").Sheets("Feuil1").Range("L2:L100")
j'ai aussi 99 cellules concernées
Donc plages identiques semble-t-il
Alors pourquoi ça beug avec ce message ?
1695480542784.png

Je n'arrive pas à comprendre ???
:)
 
Vote positif 0 Vote négatif
laurent950

laurent950

XLDnaute Barbatruc
Re @Usine à gaz

en Poste #14 tu as la réponse
tu as noté
"test1"
Mais c'est .xlsm qu'il faut Noté
"test1.xlsm"

Soit :
Workbooks.Item("test2.xlsm")
Ou
Workbooks("test2.xlsm")
Mais
.xlsm ou une Autres extension
Puis
Le fichier doit être ouvert bien sûr Lionel

VB: 
Sub Macro1()
Workbooks("test1.xlsm").Sheets("Feuil1").Range("a2:a100") = Workbooks("test2.xlsm").Sheets("Feuil1").Range("l2:l100").Value
End Sub
 
Vote positif 0 Vote négatif
laurent950

laurent950

XLDnaute Barbatruc
Re @Usine à gaz

C'est une autres demandes Lionel et bien sur que ca fonctionne.

VB: 
Sub Macro1()
Workbooks("test1.xlsm").Sheets("Feuil1").Range("a2:a100").Select
'OU
' La cellule Active est A2 (Pour l'exemple ci-dessus)
' Avec Select tu veras a l'écrans les plages que tu selectionnes Lionel
Workbooks("test1.xlsm").Sheets("Feuil1").Range(ActiveCell, ActiveCell.Offset(98, 0)).Select
End Sub

Explication :
Si vous voulez sélectionner une plage qui commence à partir de la cellule active et qui s'étend sur 99 lignes dans une seule colonne, vous pouvez le faire comme ceci
Alors :
Workbooks("test1.xlsm").Sheets("Feuil1").Range(ActiveCell, ActiveCell.Offset(98, 0))
et donc :
Cela utilisera la cellule active comme coin supérieur gauche de la plage et la fonction Offset pour spécifier le coin inférieur droit de la plage, qui est décalé de 98 lignes vers le bas par rapport à la cellule active.

J'espère que cela va t'aider Lionel

Laurent
 
Dernière édition:
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
je l'ai mis au #Post 18 :)
J'ai donc modifié mon code comme ceci :
code
VB: 
Workbooks("test1").Sheets("Feuil1").Range("ActiveCell.Offset(0, 0).Resize(99, 1)") = Workbooks("test2").Sheets("Feuil1").Range("L2:L100").Value
Si je reprends mon code
Partie 1 :
Workbooks("test1").Sheets("Feuil1").Range("ActiveCell.Offset(0, 0).Resize(99, 1)") =
j'ai 99 cellules concernées

Partie 2 :
Workbooks("test2").Sheets("Feuil1").Range("L2:L100")
j'ai aussi 99 cellules concernées
Donc plages identiques semble-t-il
Alors pourquoi ça beug avec ce message ?
1695480542784.png

Je n'arrive pas à comprendre ???

Même si j'ajoute .xlsm, ça ne fonctionne pas.
:)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Relire mes posts, et les tests avec MsgBox
La taille des plages doivent être identiques
Ce qui veut dire
Meme nombre de lignes et de colonnes
Donc encore un test MsgBox
Sub test_taille()
Dim Plage As Range
Set Plage = Range("I2:I100")
MsgBox "Nombre de lignes: " & Plage.Rows.Count & vbCr & "Nombre de colonne: " & Plage.Columns.Count
End Sub
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Staple1600 à dit:
Re

Relire mes posts, et les tests avec MsgBox
La taille des plages doivent être identiques
Ce qui veut dire
Meme nombre de lignes et de colonnes
Donc encore un test MsgBox
Sub test_taille()
Dim Plage As Range
Set Plage = Range("I2:I100")
MsgBox "Nombre de lignes: " & Plage.Rows.Count & vbCr & "Nombre de colonne: " & Plage.Columns.Count
End Sub
Cliquez pour agrandir...
lol :)
Mais B....L, j'ai le même nombre de lignes et de colonnes concernées :
Partie 1 :
Workbooks("test1").Sheets("Feuil1").Range("ActiveCell.Offset(0, 0).Resize(99, 1)") =
j'ai 99 cellules concernées

Partie 2 :
Workbooks("test2").Sheets("Feuil1").Range("L2:L100")
j'ai aussi 99 cellules concernées

Sur 1 colonne pour les 2

Grrrrr !!!! je vire au vert
:)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

@Usine à gaz
Tu as zappé le message où je parle d'erreur de syntaxe...
excel-downloads.com

XL 2021 - code que je n'arrive pas à faite fonctionner avec Range("ActiveCell.Offset(0, 0).Resize(10, 1)")

Bonjour à toutes et à tous :) Grrrr !!! encore dans les choux :mad: Mon besoin dans ce fichier "test1"il me faut importer des valeurs du classeur "test2" (les 2 fichiers sont ouverts) J'ai trouvé sur le net (le lien est en haut dans le classeur) comment le faire Ce code fonctionne nickel Sub...
excel-downloads.com excel-downloads.com

Encore un test illustratif
Code: 
Sub test_taille_B()
Dim Plage As Range, Active As Range, Plage2 As Range
Set Plage = Range("I2:I100")
MsgBox "Nombre de lignes: " & Plage.Rows.Count & vbCr & "Nombre de colonne: " & Plage.Columns.Count, , "Plage1"
MsgBox Plage.Address
Set Active = Range("K2")
MsgBox Active.Resize(99).Address
Range("C3").Select
Set Plage2 = Range("C3").Resize(Plage.Rows.Count)
MsgBox "Nombre de lignes: " & Plage2.Rows.Count & vbCr & "Nombre de colonne: " & Plage2.Columns.Count, vbInformation, "Plage2"
End Sub
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Hi,

Perso, si que j'srais Arthour, que j'testrais carrément ça :
VB: 
Sub Macro1()
Workbooks("test1").Sheets("Feuil1").Range("en partant de la cellule active, agrandir à dix lignes") = Workbooks("test2").Sheets("Feuil1").Range("l2:l100").Value
End Sub








🥳
 
Vote positif 0 Vote négatif

Discussions similaires

Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
404
Chaton77
Chaton77
Usine à gaz
  • Résolu(e)
XL 2021 Ligne de code que je n'arrive pas à faire correctement
2
Réponses
17
Affichages
992
TooFatBoy
TooFatBoy
Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
582
Usine à gaz
Usine à gaz
F
  • Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
452
francha62
F
Usine à gaz
  • Question
XL 2021 Besoin de modifier Workbooks("classeur1") selon le classeur ouvert
3 4 5
Réponses
64
Affichages
3 K
TooFatBoy
TooFatBoy
T
  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
454
thierry33670
T
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
438
Quentin2106
Q
Nicolas JACQUIN
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
G
  • Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
439
guiyom
G
O
  • Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
767
ChTi160
ChTi160

Membres actuellement en ligne

7 membres et 96 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 095
Messages
2 116 166
Membres
112 675
dernier inscrit
Tazra_IMOU