Amener valeurs Feuil1 vers Feuil2

[Hulk]

Hello Forum,

Encore besoin de votre aide...

Je n'arrive pas à faire ce que je souhaite 😡 c'est rageant 😀

Le mieux est de voir le fichier joint.

Juste pour la colonne A, le reste je me débrouillerais...

Si un génie veut bien me filer un coup de main.

Vous souhaite un agréable dimanche.

Cdt, Hulk.

 

[vbacrumble]

Re : Amener valeurs Feuil1 vers Feuil2

Bonjour Hulk


Pourquoi tu te compliques la vie ?

Sub hulk()
Dim Source As Range, Desti As Range
Set Source = Sheets(1).Range("A1")
Set Desti = Sheets(2).Range("A1")
Source.CurrentRegion.Copy Desti
End Sub

 

[nolich]

Re : Amener valeurs Feuil1 vers Feuil2

Bonsoir Hulk et vbacrumble, bonsoir à toutes et à tous 🙂

Encore besoin de votre aide...

Je n'arrive pas à faire ce que je souhaite 😡 c'est rageant 😀

Le mieux est de voir le fichier joint.

Je pense que tu devrais modifier ta ligne For Each... comme ceci :

[COLOR="Blue"]For Each[/COLOR] x In Sheets("Feuil2").Range("A1:A" & [B][COLOR="Red"]Sheets("Feuil2").[/COLOR][/B]Range("A65536").End(xlUp).Row)

Tiens-nous au courant.

@+

 

[Roland_M]

Re : Amener valeurs Feuil1 vers Feuil2

bonjour

pourquoi pas simplement comme ceci !?

 

[nolich]

Re : Amener valeurs Feuil1 vers Feuil2

Re Hulk et vbacrumble, bonsoir Roland, bonsoir à toutes et à tous 🙂

pourquoi pas simplement comme ceci !?

Alors pourquoi pas comme cela 😉

[COLOR="Blue"]Option Explicit[/COLOR]

[COLOR="blue"]Private Sub[/COLOR] BntCopie_Click()

  [COLOR="blue"]With[/COLOR] Sheets(1).Range("A1").CurrentRegion
    .Copy Sheets(2).Range("A1")
  [COLOR="blue"]End With[/COLOR]
  
  Sheets(2).Select
  
[COLOR="blue"]End Sub[/COLOR]

Eh oui, je préfère CurrentRegion 🙂

@+

EDIT : tout comme vbacrumble 😉

 

[vbacrumble]

Re : Amener valeurs Feuil1 vers Feuil2

Bonsoir nolich

nolich
Pourquoi pas comme cela ?

Sheets(1).Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")

(version courte de ma proposition de 20h40 😉 )

 

[Hulk]

Re : Amener valeurs Feuil1 vers Feuil2

Hello tout le monde,

Merci beaucoup pour vos réponses.

Efffectivement, je me complique la vie...

Impec, m'en veuillez pas, je garde celle de VbaCrumble... la plus simple 😀

Bravo et merci à vous tous !

Bonne soirée, Hulk.

 

[nolich]

Re : Amener valeurs Feuil1 vers Feuil2

Re,

Bonsoir nolich

nolich
Pourquoi pas comme cela ?

Sheets(1).Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")

(version courte de ma proposition de 20h40 😉 )

Je vois qu'on a la même approche 🙂 😉

@+

 

[Hulk]

Re : Amener valeurs Feuil1 vers Feuil2

Hello,

Encore plus simple Nolich...

Thanks à tous !

Cdt, Hulk.

 

[Roland_M]

Re : Amener valeurs Feuil1 vers Feuil2

re

attention avec CurrentRegion !
s'il y a une seule ligne ou une seule colonne de vide dans le champ des données,
le range de données à copier sera incomplet !
tandis que UsedRange inclus toutes les données de la feuille !

il faut savoir au départ ce dont on a besoin !?

sur ce, je vais me coucher, et vous souhaite à tous une bonne nuit.

 

[nolich]

Re : Amener valeurs Feuil1 vers Feuil2

Re,

attention avec CurrentRegion !
s'il y a une seule ligne ou une seule colonne de vide dans le champ des données,
le range de données à copier sera incomplet !
tandis que UsedRange inclus toutes les données de la feuille !

Tu as tout à fait raison, Roland, mais si, dans une même feuille, il y a plusieurs tableaux séparés par quelques lignes, UsedRange prendra tous les tableaux alors que CurrentRegion ne prendra que le tableau dont fait partie la cellule désignée.

Comme tu le dis, il faut savoir au départ ce dont on a besoin 🙂

@+

 

[vbacrumble]

Re : Amener valeurs Feuil1 vers Feuil2

Re


J'ai lu ici (sur XLD) que Usedrange n'était pas fiable 😉

 

[myDearFriend!]

Re : Amener valeurs Feuil1 vers Feuil2

Bonsoir,

C'est peut-être ce qu'on lit parfois qui n'est pas fiable... 😉

Cordialement,

 

[vbacrumble]

Re : Amener valeurs Feuil1 vers Feuil2

Re, bonsoir myDearFriend


C'est pourtant le Grand Jacques qui l'affirme

https://www.excel-downloads.com/thr...e-de-cellules-dans-une-feuille-cachee.115908/

(PS: n'est-ce pas nolich ? 😉 )

 

[Hulk]

Re : Amener valeurs Feuil1 vers Feuil2

Hello,

Bien ben je note toutes ces précisions apportées, malgré que tout ça est encore bien compliqué pour moi 😱

Cela dit, si j'ai bien compris, comme je n'ai besoin que de ce bout de feuille, j'ai donc plus besoin du CurrentRegion que de l'UsedRange...

Encore merci pour vos lumières !

Cdt, Hulk.