VBA Copier COller plage de données

[Julietta]

Bonjour,

Je cherche à copier coller un plage de données d'une feuille à une autre. Hors la colonne est variable (utilisateur entre la variable).
Comment faire pour copier coller la plage de données dans un premier temps???
Et comment faire en sorte que la colonne choisie soit en fonction de l'entrée de l'utilisateur???

(J'ai du mal à expliquer mon problème donc si ce n'est pas clair n'hésitez pas!)

Merci d'avance

Julietta

 

[KenDev]

Re : VBA Copier COller plage de données

Bonjour Julietta,

Un petit fichier aurai été le bienvenu.

Sub J()
Dim r As Range, w1 As Worksheet, c As Integer, w2 As Worksheet

    'définir deux feuille
    Set w1 = Worksheets("Feuil1")
    Set w2 = Worksheets("Feuil2")
    
    'demander à l'utilisateur d'entrer un numéro de colonne
    Do
        c = Application.InputBox(prompt:="Entrez un numéro decolonne", Type:=1)
    Loop Until c > 0 And c < Rows.Count - 1
    
    'définir une plage (ici C2:C10 dans "Feuil1" si l'utilisateur à entré 3)
    Set Rg = w1.Range(w1.Cells(2, c), w1.Cells(10, c))
    
    'copier la plage (ici copié en Feuil2!A1)
    Rg.Copy Destination:=w2.Cells(1, 1)
    
End Sub

Cordialement

KD

 

[Julietta]

Re : VBA Copier COller plage de données

Merci pour ce code il m'a déjà beaucoup aidé!

Je peux pas mettre le fichier (bloqué).
En fait, c'est pour du contrôle de gestion! Le but est de pouvoir comparé les résultats sur 2 périodes. L'utilisateur va pour voir choisir l'année, le mois, la phase (cumulé ou décumulé) et l'objet (réel, budget, forecast). En fonction de ce que choisit l'utilisateur (liste déroulante de choix) je veux pouvoir naviguer entre les différentes feuille et à l'intérieur des feuilles!

Merci

Julietta

(Sub Import1()
'
'
Dim a1 As Integer 'Année 1
Dim m1 As String 'Mois 1
Dim q1 As String 'Quoi 1 : Budget, réel, forcast pour mois 1
Dim t1 As String 'Type 1 : cumulé ou décumulé
Dim w1 As Worksheet
Dim w2 As Worksheet
Dim w3 As Worksheet
Dim w4 As Worksheet
Dim w5 As Worksheet
Dim w6 As Worksheet

Set w1 = Worksheets("Feuil3") 'Feuille de choix
Set w2 = Worksheets("Feuil4") 'Feuille de synthèse
Set w3 = Worksheets("Feuil5") 'Feuille réel 2010
Set w4 = Worksheets("Feuil2") 'Feuille réel 2011
Set w5 = Worksheets("Feuil6") 'Feuille réel 2012
Set w6 = Worksheets("Feuil7") 'Feuille bilan 2012

With Feuil3
a1 = Range("A3").Value
m1 = Range("A4").Value
q1 = Range("A5").Value
t1 = Range("A6").Value
End With